|
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: 2636 (0xa4c) 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« └─⟦6f66a8481⟧ └─⟦this⟧
%!PSAdobe-1.0 %%Creator: [Creator] %%Title: [Title] %%CreationDate: [Date] %%Pages: (atend) %%DocumentFonts: Courier Courier-Bold Courier-BoldOblique Courier-Oblique %%EndComments % Standard Prelude for Fancy_File_Input 87/02/13 DSBakin % No true reverse font yet % Standard matrix is x to right, y is up, 1 unit = 1 point = 72 units/inch % Standard printable area is: ? /vtop 10.25 72 mul def /vpos 0 def /lmarg 0.375 72 mul def % The following routine creates a font which is identical to the given % font except that the StrokeWidth is changed. % % originalFont newFontName newStrokeWidth newUniqueId AlterFontWidth /alterfontwidth 7 dict def /AlterFontWidth { alterfontwidth begin /uniqueid exch def /strokewidth exch def /newfontname exch def /basefontname exch def /basefontdict basefontname findfont def /numentries basefontdict maxlength def basefontdict /UniqueID known not { /numentries numentries 1 add def } if basefontdict /StrokeWidth 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 newfontdict /FontName newfontname put newfontdict /StrokeWidth strokewidth put newfontdict /UniqueID uniqueid put newfontname newfontdict definefont pop end } def % The following routine tries to come up with a new UniqueID. There is no % good way to do this except by enumerating fonts known to the system, % which is NOT done here. An existing font is used as a source of a base. /DeriveUniqueId { findfont dup /UniqueID known { /UniqueID get 1235667 add } { pop 1 } ifelse } def /Courier /Courier-70 70 /Courier DeriveUniqueId AlterFontWidth /Courier-Oblique /Courier-Oblique-70 70 /Courier-Oblique DeriveUniqueId AlterFontWidth /norm /Courier-70 findfont [FontSize] scalefont def /bold /Courier-Bold findfont [FontSize] scalefont def /ital /Courier-Oblique-70 findfont [FontSize] scalefont def /itbo /Courier-BoldOblique findfont [FontSize] scalefont def /spacewidth norm setfont ( ) stringwidth pop def /n { norm setfont show } bind def /b { bold setfont show } bind def /i { ital setfont show } bind def /r { itbo setfont show } bind def /top { lmarg vtop moveto /vpos vtop def } bind def /l { spacewidth mul 0 rmoveto } bind def /cr { /vpos vpos [FontSpacing] sub def lmarg vpos moveto } bind def /BeginPage { save } def /EndPage { showpage restore } def %%EndProlo