home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / PLP II / PLP II.rsrc / POST_269 < prev    next >
Encoding:
Text File  |  1992-04-21  |  1011 b   |  35 lines
  1. %!PS-TTS-1.0
  2. % GCC PLP setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /PLP {
  7.   deviceresolutionx dup 300 lt {4 idiv} {5 idiv} ifelse 45 /circlespot load setscreen
  8.   {} settransfer
  9.  
  10.   userdict /letter {statusdict begin 1 setdevicepaper 576 780 setdevicepage end} put
  11.   userdict /legal {statusdict begin 5 setdevicepaper 460 992 setdevicepage end} put
  12.   userdict /a4 {statusdict begin 4 setdevicepaper 560 798 setdevicepage end} put
  13.   userdict /b5 {statusdict begin 6 setdevicepaper 464 702 setdevicepage end} put
  14.  
  15.   /showproc {
  16.     statusdict begin
  17.     /jobstate (printing to PLP II) def
  18.     #copies 13 devicefile setdeviceparam
  19.     devicefile opendevicepage renderproc devicefile closedevicepage
  20.     /jobstate (busy) def
  21.     end
  22.   } def
  23.  
  24.   /setdevicepage {
  25.     devicescaley mul cvi /imageheight exch def
  26.     devicescalex mul cvi /imagewidth exch def
  27.     [devicescalex 0 0 devicescaley neg
  28.      imagewidth devicepaperwidth sub 2 div
  29.      imageheight devicepaperheight add 2 div] installdevice
  30.   } def
  31. } bind def
  32.  
  33. end
  34.  
  35.