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