|
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 - metrics - 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