40 lines
973 B
PostScript
40 lines
973 B
PostScript
%
|
|
% Simple program to print a banner page
|
|
%
|
|
|
|
/banner {
|
|
/saveobj save def
|
|
erasepage initgraphics
|
|
|
|
/#copies 1 def
|
|
/inch {72 mul} bind def
|
|
/pagebbox [clippath pathbbox newpath] def
|
|
|
|
/font /Helvetica def
|
|
/size 20 def
|
|
/height pagebbox 3 get def
|
|
/width pagebbox 2 get .09 mul def
|
|
|
|
.92 setgray
|
|
pagebbox 0 get pagebbox 1 get moveto
|
|
width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill
|
|
pagebbox 2 get pagebbox 1 get moveto
|
|
width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill
|
|
0 setgray
|
|
|
|
font findfont size scalefont setfont
|
|
/linesp size size .15 mul add neg def
|
|
/tab (Destination) stringwidth pop 1.5 mul def
|
|
/nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def
|
|
|
|
pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate
|
|
(Bin) nextline
|
|
(Name) nextline
|
|
(Owner) nextline
|
|
(File) nextline
|
|
(Account) nextline
|
|
(Destination) nextline
|
|
(Spooldate) nextline
|
|
showpage
|
|
saveobj restore
|
|
} bind def
|