home *** CD-ROM | disk | FTP | other *** search
/ What the Doctor Required - The Freshest December / December.iso / windows / mem1614 / driver20.cab / vt530522.spd < prev    next >
Encoding:
PostScript Printer Description  |  1997-10-20  |  6.8 KB  |  237 lines
  1. *PPD-Adobe: "4.1"
  2. *% VT530522.spd: Simplified form of VT530522.ppd
  3. *PCFileName: "VT530522.PPD"
  4. *LanguageEncoding: ISOLatin1
  5. *Product: "(Varityper)"
  6. *PSVersion: "(49.3) 4.1"
  7. *PSVersion: "(52.2) 4.1"
  8. *ModelName: "Varityper Series 4000-5300"
  9. *ShortNickName: "Varityper Series 4000-5300"
  10. *NickName: "Varityper Series 4000-5300 v49.3 or 52.2"
  11. *FreeVM: "2415554"
  12. *LanguageLevel: "1"
  13. *ColorDevice: False
  14. *Password: "0"
  15. *ExitServer: "
  16.   count 0 eq {  % is the password on the stack?
  17.     true
  18.   }{
  19.     dup    % potential password
  20.     statusdict /checkpassword get exec not
  21.   } ifelse
  22.   {  %  if no password or not valid
  23.     (WARNING : Cannot perform the exitserver command.) =
  24.     (Password supplied is not valid.) =
  25.     (Please contact the author of this software.) = flush
  26.     quit
  27.   } if
  28.   serverdict /exitserver get exec
  29. "
  30. *End
  31. *SetResolution 2400dpi: "
  32.   count 0 eq {  % is the password on the stack?
  33.     true
  34.   }{
  35.     dup    % potential password
  36.     statusdict /checkpassword get exec not
  37.   } ifelse
  38.   {  %  if no password or not valid
  39.     (WARNING : Cannot set the resolution.) =
  40.     (Password supplied is not valid.) =
  41.     (Please contact the author of this software.) = flush
  42.     quit
  43.   } if
  44.   serverdict /exitserver get exec
  45. 2400 statusdict /setresolution get exec
  46. "
  47. *End
  48. *SetResolution 1200dpi: "
  49.   count 0 eq {  % is the password on the stack?
  50.     true
  51.   }{
  52.     dup    % potential password
  53.     statusdict /checkpassword get exec not
  54.   } ifelse
  55.   {  %  if no password or not valid
  56.     (WARNING : Cannot set the resolution.) =
  57.     (Password supplied is not valid.) =
  58.     (Please contact the author of this software.) = flush
  59.     quit
  60.   } if
  61.   serverdict /exitserver get exec
  62. 1200 statusdict /setresolution get exec
  63. "
  64. *End
  65. *SetResolution 1800dpi: "
  66.   count 0 eq {  % is the password on the stack?
  67.     true
  68.   }{
  69.     dup    % potential password
  70.     statusdict /checkpassword get exec not
  71.   } ifelse
  72.   {  %  if no password or not valid
  73.     (WARNING : Cannot set the resolution.) =
  74.     (Password supplied is not valid.) =
  75.     (Please contact the author of this software.) = flush
  76.     quit
  77.   } if
  78.   serverdict /exitserver get exec
  79. 1800 statusdict /setresolution get exec
  80. "
  81. *End
  82. *SetResolution 900dpi: "
  83.   count 0 eq {  % is the password on the stack?
  84.     true
  85.   }{
  86.     dup    % potential password
  87.     statusdict /checkpassword get exec not
  88.   } ifelse
  89.   {  %  if no password or not valid
  90.     (WARNING : Cannot set the resolution.) =
  91.     (Password supplied is not valid.) =
  92.     (Please contact the author of this software.) = flush
  93.     quit
  94.   } if
  95.   serverdict /exitserver get exec
  96. 900 statusdict /setresolution get exec
  97. "
  98. *End
  99. *SetResolution 600dpi: "
  100.   count 0 eq {  % is the password on the stack?
  101.     true
  102.   }{
  103.     dup    % potential password
  104.     statusdict /checkpassword get exec not
  105.   } ifelse
  106.   {  %  if no password or not valid
  107.     (WARNING : Cannot set the resolution.) =
  108.     (Password supplied is not valid.) =
  109.     (Please contact the author of this software.) = flush
  110.     quit
  111.   } if
  112.   serverdict /exitserver get exec
  113. 600 statusdict /setresolution get exec
  114. "
  115. *End
  116. *?Resolution: "
  117. save
  118.   initgraphics
  119.   0 0 moveto currentpoint matrix defaultmatrix transform
  120.   0 72 lineto currentpoint matrix defaultmatrix transform
  121.   3 -1 roll sub dup mul
  122.   3 1 roll exch sub dup mul
  123.   add sqrt round cvi
  124.   (          ) cvs print (dpi) = flush
  125. restore
  126. "
  127. *End
  128. *ScreenFreq: "141.0"
  129. *ScreenAngle: "45.0"
  130. *OpenUI *PageSize: PickOne
  131. *OrderDependency: 30 AnySetup *PageSize
  132. *DefaultPageSize: Letter
  133. *PageSize Letter: "letter"
  134. *PageSize Legal: "legal"
  135. *PageSize Ledger: "ledger"
  136. *PageSize Tabloid: "11x17"
  137. *PageSize A3: "a3"
  138. *PageSize A4: "a4"
  139. *PageSize A5: "a5"
  140. *PageSize ISOB5: "b5"
  141. *PageSize Letter.Transverse: "Letter"
  142. *PageSize A4.Transverse: "A4"
  143. *PageSize A5.Transverse: "A5"
  144. *PageSize ISOB5.Transverse: "B5"
  145. *?PageSize: "
  146.  save
  147.  mark  statusdict /pageparams get exec  exch pop
  148.  5 dict
  149.    dup [595 420] (A5.Transverse) put
  150.    dup [709 499] (ISOB5.Transverse) put
  151.    dup [842 595] (A4.Transverse) put
  152.    dup [792 612] (Letter.Transverse) put
  153.    dup [1224 792] (Ledger) put
  154.  7 dict
  155.    dup [420 595] (A5) put
  156.    dup [499 709] (ISOB5) put
  157.    dup [612 792] (Letter) put
  158.    dup [595 842] (A4) put
  159.    dup [612 1008] (Legal) put
  160.    dup [842 1191] (A3) put
  161.    dup [792 1224] (Tabloid) put
  162.  3 -1 roll 0 eq { pop } { exch pop }ifelse
  163.  (Unknown) exch
  164.  { exch aload pop
  165.    4 index eq exch 5 index eq and
  166.    { exch pop exit } { pop } ifelse
  167.  } bind forall = flush cleartomark
  168.  restore
  169. "
  170. *End
  171. *CloseUI: *PageSize
  172. *OpenUI *PageRegion: PickOne
  173. *OrderDependency: 40 AnySetup *PageRegion
  174. *DefaultPageRegion: Letter
  175. *PageRegion Letter: "letter"
  176. *PageRegion Legal: "legal"
  177. *PageRegion Ledger: "ledger"
  178. *PageRegion Tabloid: "11x17"
  179. *PageRegion A3: "a3"
  180. *PageRegion A4: "a4"
  181. *PageRegion A5: "a5"
  182. *PageRegion ISOB5: "b5"
  183. *PageRegion Letter.Transverse: "Letter"
  184. *PageRegion A4.Transverse: "A4"
  185. *PageRegion A5.Transverse: "A5"
  186. *PageRegion ISOB5.Transverse: "B5"
  187. *CloseUI: *PageRegion
  188. *DefaultImageableArea: Letter
  189. *ImageableArea Letter: "0 1 612 792 "
  190. *ImageableArea Legal: "0 1 612 1008 "
  191. *ImageableArea Ledger: "0 0 1223 792 "
  192. *ImageableArea Tabloid: "0 1 792 1224 "
  193. *ImageableArea A3: "0 1 842 1191 "
  194. *ImageableArea A4: "0 1 595 842 "
  195. *ImageableArea A5: "0 1 420 595 "
  196. *ImageableArea ISOB5: "0 1 499 709 "
  197. *ImageableArea Letter.Transverse: "0 0 611 792 "
  198. *ImageableArea A4.Transverse: "0 0 594 842 "
  199. *ImageableArea A5.Transverse: "0 0 419 595 "
  200. *ImageableArea ISOB5.Transverse: "0 0 498 710 "
  201. *?ImageableArea: "
  202. save
  203.   /cvp {(                ) cvs print ( ) print } bind def
  204.   /upperright {10000 mul floor 10000 div} bind def
  205.   /lowerleft {10000 mul ceiling 10000 div} bind def
  206.   newpath clippath pathbbox
  207.   4 -2 roll exch 2 {lowerleft cvp} repeat
  208.   exch 2 {upperright cvp} repeat flush
  209.  restore
  210. "
  211. *End
  212. *DefaultPaperDimension: Letter
  213. *PaperDimension Letter: "612 792"
  214. *PaperDimension Legal: "612 1008"
  215. *PaperDimension Ledger: "1224 792"
  216. *PaperDimension Tabloid: "792 1224"
  217. *PaperDimension A3: "842 1191"
  218. *PaperDimension A4: "595 842"
  219. *PaperDimension A5: "420 595"
  220. *PaperDimension ISOB5: "499 709"
  221. *PaperDimension Letter.Transverse: "612 792"
  222. *PaperDimension A4.Transverse: "595 842"
  223. *PaperDimension A5.Transverse: "420 595"
  224. *PaperDimension ISOB5.Transverse: "499 709"
  225. *RequiresPageRegion All: True
  226. *OpenUI *InputSlot: PickOne
  227. *OrderDependency: 20 AnySetup *InputSlot
  228. *DefaultInputSlot: Cassette
  229. *InputSlot Cassette: ""
  230. *CloseUI: *InputSlot
  231. *DefaultFont: Courier
  232. *Font Courier: Standard "(001.004)" Standard ROM
  233. *Font Courier-Bold: Standard "(001.004)" Standard ROM
  234. *Font Courier-BoldOblique: Standard "(001.004)" Standard ROM
  235. *Font Courier-Oblique: Standard "(001.004)" Standard ROM
  236. *Font Symbol: Special "(001.003)" Special ROM
  237.