home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume15 / tpscript / part01 / pscript / papersize.ps < prev    next >
Encoding:
Text File  |  1988-05-25  |  657 b   |  25 lines
  1. /a4
  2.     [
  3.         [ 300 72 div 0 0 -300 72 div -72 3436 ]
  4.         292 3365
  5.         {statusdict /jobstate (printing) put 0 setblink
  6.         margins exch 142 add exch 256 add 8 div round cvi frametoroket
  7.         statusdict /jobstate (busy) put
  8.         1 setblink }
  9.         /framedevice load
  10.         60 45 {dup mul exch dup mul add 1.0 exch sub } /setscreen load
  11.         {} /settransfer load
  12.         /initgraphics load
  13.         /erasepage load
  14.     ] cvx
  15. statusdict begin bind end readonly def
  16. newpath
  17. /inch { 72 mul } def
  18. /cm { 28.3465 mul } def
  19. /Times-Roman findfont 4 cm scalefont setfont
  20. /sp { 0.9 setgray clippath fill 0 setgray 8 cm 15 cm moveto show showpage } def
  21. letter (letter) sp
  22. note (note) sp
  23. legal (legal) sp
  24. a4 (a4) sp
  25.