1
0

banner.ps 973 B

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