| rsc | 13f7391 | 2004-05-15 23:45:13 +0000 | [diff] [blame] | 1 | % |
| 2 | % Simple program to print a banner page |
| 3 | % |
| 4 | |
| 5 | /banner { |
| 6 | /saveobj save def |
| 7 | erasepage initgraphics |
| 8 | |
| 9 | /#copies 1 def |
| 10 | /inch {72 mul} bind def |
| 11 | /pagebbox [clippath pathbbox newpath] def |
| 12 | |
| 13 | /font /Helvetica def |
| 14 | /size 20 def |
| 15 | /height pagebbox 3 get def |
| 16 | /width pagebbox 2 get .09 mul def |
| 17 | |
| 18 | .92 setgray |
| 19 | pagebbox 0 get pagebbox 1 get moveto |
| 20 | width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill |
| 21 | pagebbox 2 get pagebbox 1 get moveto |
| 22 | width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill |
| 23 | 0 setgray |
| 24 | |
| 25 | font findfont size scalefont setfont |
| 26 | /linesp size size .15 mul add neg def |
| 27 | /tab (Destination) stringwidth pop 1.5 mul def |
| 28 | /nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def |
| 29 | |
| 30 | pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate |
| 31 | (Bin) nextline |
| 32 | (Name) nextline |
| 33 | (Owner) nextline |
| 34 | (File) nextline |
| 35 | (Account) nextline |
| 36 | (Destination) nextline |
| 37 | (Spooldate) nextline |
| 38 | showpage |
| 39 | saveobj restore |
| 40 | } bind def |
