|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1392 (0x570) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦c0a0fbed6⟧ └─⟦this⟧
% The following routine creates a font which is identical to the given % font except that Characters are fixed width. % % originalFont newFontName newUniqueId AlterFontWidth /alterfontwidth 12 dict def /AlterFontWidth { alterfontwidth begin /uniqueid exch def /newfontname exch def /basefontname exch def /basefontdict basefontname findfont def /numentries basefontdict maxlength def /str 1 string def basefontdict /UniqueID known not {/numentries numentries 1 add def} if basefontdict /Metrics known not {/numentries numentries 1 add def} if /newfontdict numentries dict def basefontdict {exch dup /FID ne {exch newfontdict 3 1 roll put} {pop pop} ifelse} forall /width basefontdict 1 scalefont setfont (W) stringwidth pop 1000 mul def /widths basefontdict /CharStrings get length dict def 0 1 255 {/char exch def str 0 char put /charname basefontdict /Encoding get char get def charname /.notdef ne {widths charname [width dup str stringwidth pop 1000 mul sub 2 div exch] put} if } for newfontdict /FontName newfontname put newfontdict /Metrics widths put newfontdict /UniqueID uniqueid put newfontname newfontdict definefont pop end} def %%EndProlog /AvantGarde-Book /Fwf 483324 AlterFontWidt