DataMuseum.dk

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⟧ 

TextFile

%!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