home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / TScript 3.1.4 / TScript 3.1.4.rsrc / POST_257 < prev    next >
Encoding:
Text File  |  1992-02-10  |  1.9 KB  |  50 lines
  1. %!PS-TTS-1.0
  2. % Quickdraw Printer setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /Printer {
  7.   true true false false setframetype
  8.   196608 devicebits div deviceplanes div sqrt floor
  9.   dup deviceresolutionx div exch deviceresolutiony div
  10.   dup 1.0 ge
  11.     {exch floor exch floor}
  12.     {exch 1.0 exch div ceiling 1.0 exch div exch 1.0 exch div ceiling 1.0 exch div} ifelse
  13.   exch deviceresolutionx mul exch deviceresolutiony mul settilesize
  14.   deviceresolutionx dup 192 lt {3 idiv} {dup 300 lt {4 idiv} {dup 600 lt {5 idiv} {7 idiv} ifelse} ifelse} ifelse 45 /circlespot load setscreen
  15.   {} settransfer
  16.  
  17.   userdict /letter {statusdict begin 576 768 setdevicepage end} put
  18.   userdict /legal {statusdict begin 576 992 setdevicepage end} put
  19.   userdict /tabloid {statusdict begin 756 1208 setdevicepage end} put
  20.   userdict /a3 {statusdict begin 806 1176 setdevicepage end} put
  21.   userdict /a4 {statusdict begin 560 798 setdevicepage end} put
  22.   userdict /b5 {statusdict begin 464 702 setdevicepage end} put
  23.   userdict /lettersmall {statusdict begin 554 732 setdevicepage end} put
  24.   userdict /a4small {statusdict begin 538 780 setdevicepage end} put
  25.  
  26.   /opendocument {serverdict /consolesource get not {devicefile opendevicedocument} if} def
  27.   /closedocument {serverdict /consolesource get not {devicefile closedevicedocument} if} def
  28.  
  29.   /showproc {
  30.     statusdict begin
  31.     /jobstate (printing) def
  32.     serverdict /consolesource get {devicefile opendevicedocument} if
  33.     #copies {devicefile opendevicepage renderproc devicefile closedevicepage} repeat
  34.     serverdict /consolesource get {devicefile closedevicedocument} if
  35.     /jobstate (busy) def
  36.     end
  37.   } def
  38.  
  39.   /setdevicepage {
  40.     devicescaley mul cvi /imageheight exch def
  41.     devicescalex mul cvi /imagewidth exch def
  42.     [devicescalex 0 0 devicescaley neg
  43.       imagewidth devicepaperwidth sub 2 div
  44.       imageheight devicepaperheight add 2 div] installdevice
  45.   } def
  46. } bind def
  47.  
  48. end
  49.  
  50.