home *** CD-ROM | disk | FTP | other *** search
/ Soft 19 / Soft19.iso / win95-rc / win95_15.cab / apple230.spd < prev    next >
PostScript Printer Description  |  1995-07-11  |  6KB  |  170 lines
  1. *PPD-Adobe: "4.0"
  2. *% APPLE230.spd: Simplified form of APPLE230.ppd
  3. *PCFileName: "APPLE230.PPD"
  4. *Product: "(LaserWriter)"
  5. *PSVersion: "(23.0) 0"
  6. *ModelName: "Apple LaserWriter"
  7. *NickName: "Apple LaserWriter v23.0"
  8. *ColorDevice: False
  9. *FreeVM: "173936"
  10. *LanguageLevel: "1"
  11. *Password: "0"
  12. *ExitServer: "
  13.   count 0 eq {  % is the password on the stack?
  14.     true
  15.   }{
  16.     dup    % potential password
  17.     statusdict /checkpassword get exec not
  18.   } ifelse
  19.   {  %  if no password or not valid
  20.     (WARNING : Cannot perform the exitserver command.) =
  21.     (Password supplied is not valid.) =
  22.     (Please contact the author of this software.) = flush
  23.     quit
  24.   } if
  25.   serverdict /exitserver get exec
  26. "
  27. *End
  28. *DefaultResolution: 300dpi
  29. *?Resolution: "
  30. save
  31.   initgraphics
  32.   0 0 moveto currentpoint matrix defaultmatrix transform
  33.   0 72 lineto currentpoint matrix defaultmatrix transform
  34.   3 -1 roll sub dup mul
  35.   3 1 roll exch sub dup mul
  36.   add sqrt round cvi
  37.   (          ) cvs print (dpi) = flush
  38. restore
  39. "
  40. *End
  41. *ScreenFreq: "60.0"
  42. *ScreenAngle: "45.0"
  43. *OpenUI *PageSize: PickOne
  44. *OrderDependency: 30 AnySetup *PageSize
  45. *DefaultPageSize: Letter
  46. *PageSize Letter/US Letter: "letter"
  47. *PageSize Legal/US Legal: "legal"
  48. *PageSize LetterSmall/US Letter Small: "lettersmall"
  49. *PageSize LegalSmall/US Legal Small: "legal"
  50. *PageSize A4: "a4"
  51. *PageSize Monarch/Monarch Envelope Edge Fed: "letter"
  52. *PageSize Com10/Com10 Envelope Edge Fed: "letter"
  53. *?PageSize: "
  54. save
  55.   [(Letter)(Legal)] statusdict /pagetype get exec
  56.   {get} stopped { pop pop (Unknown)} if = flush
  57. restore
  58. "
  59. *End
  60. *CloseUI: *PageSize
  61. *OpenUI *PageRegion: PickOne
  62. *OrderDependency: 40 AnySetup *PageRegion
  63. *DefaultPageRegion: Letter
  64. *PageRegion Letter/US Letter: "letter"
  65. *PageRegion Legal/US Legal: "legal"
  66. *PageRegion LetterSmall/US Letter Small: "lettersmall"
  67. *PageRegion LegalSmall/US Legal Small: "legal"
  68. *PageRegion A4: "a4"
  69. *PageRegion Monarch/Monarch Envelope Edge Fed: "letter"
  70. *PageRegion Com10/Com10 Envelope Edge Fed: "letter"
  71. *CloseUI: *PageRegion
  72. *DefaultImageableArea: Letter
  73. *ImageableArea Letter/US Letter: "18 8 593 784 "
  74. *ImageableArea Legal/US Legal: "65 37 547 972 "
  75. *ImageableArea LetterSmall/US Letter Small: "31 31 583 761 "
  76. *ImageableArea LegalSmall/US Legal Small: "64 54 548 954 "
  77. *ImageableArea A4:"17 22 578 820 "
  78. *ImageableArea Monarch/Monarch Envelope Edge Fed: "19 269 274 773 "
  79. *ImageableArea Com10/Com10 Envelope Edge Fed: "19 125 292 773 "
  80. *?ImageableArea: "
  81. save
  82.   /cvp {(                ) cvs print ( ) print } bind def
  83.   /upperright {10000 mul floor 10000 div} bind def
  84.   /lowerleft {10000 mul ceiling 10000 div} bind def
  85.   newpath clippath pathbbox
  86.   4 -2 roll exch 2 {lowerleft cvp} repeat
  87.   exch 2 {upperright cvp} repeat flush
  88.  restore
  89. "
  90. *End
  91. *DefaultPaperDimension: Letter
  92. *PaperDimension Letter/US Letter: "612 792"
  93. *PaperDimension Legal/US Legal: "612 1008"
  94. *PaperDimension LetterSmall/US Letter Small: "612 792"
  95. *PaperDimension LegalSmall/US Legal Small: "612 1008"
  96. *PaperDimension A4: "595 842"
  97. *PaperDimension Monarch/Monarch Envelope Edge Fed: "611 792"
  98. *PaperDimension Com10/Com10 Envelope Edge Fed: "610 792"
  99. *RequiresPageRegion All: True
  100. *OpenUI *InputSlot: PickOne
  101. *OrderDependency: 20 AnySetup *InputSlot
  102. *DefaultInputSlot: Cassette
  103. *InputSlot Cassette: ""
  104. *CloseUI: *InputSlot
  105. *OpenUI *ManualFeed/Manual Feed: Boolean
  106. *OrderDependency: 20 AnySetup *ManualFeed
  107. *DefaultManualFeed: False
  108. *ManualFeed True: "statusdict /manualfeed true put"
  109. *ManualFeed False: "statusdict /manualfeed false put"
  110. *?ManualFeed: "
  111. save
  112.  statusdict /manualfeed get {(True)}{(False)}ifelse = flush
  113. restore
  114. "
  115. *End
  116. *CloseUI: *ManualFeed
  117. *DefaultFont: Courier
  118. *Font Courier-Bold: Standard "(001.000)" Standard ROM
  119. *Font Courier-BoldOblique: Standard "(001.000)" Standard ROM
  120. *Font Courier-Oblique: Standard "(001.000)" Standard ROM
  121. *Font Helvetica: Standard "(001.001)" Standard ROM
  122. *Font Helvetica-Bold: Standard "(001.001)" Standard ROM
  123. *Font Helvetica-BoldOblique: Standard "(001.000)" Standard ROM
  124. *Font Helvetica-Oblique: Standard "(001.000)" Standard ROM
  125. *Font Symbol: Special "(001.001)" Special ROM
  126. *Font Times-Bold: Standard "(001.001)" Standard ROM
  127. *Font Times-BoldItalic: Standard "(001.001)" Standard ROM
  128. *Font Times-Italic: Standard "(001.001)" Standard ROM
  129. *Font Times-Roman: Standard "(001.000)" Standard ROM
  130. *JobPatchFile 1/ManualFeedDelay: "
  131. save 
  132. /version23-manualfeedpatch where { pop false } { true }ifelse
  133.  % we don't do an explicit 'get' since product and version MAY
  134.  % be in systemdict or statusdict - this technique gets the lookup
  135.  % without failure
  136. statusdict begin
  137.   product (LaserWriter) eq        % true if LaserWriter
  138.   version cvr 23.0 eq             % true if version 23
  139. end
  140.  
  141. and  % only install this patch if both are true
  142. and  % true only if patch is not installed and is for this printer
  143.      % save object and boolean on stack
  144. dup { exch restore }if
  145. % either true OR saveobject false
  146. dup
  147. {
  148.   /version23-manualfeedpatch true def
  149.   /oldversion23-showpage /showpage load def
  150.   /showpage       % this showpage will wait extra time if manualfeed is true
  151.   {%
  152.      statusdict /manualfeed known
  153.      {% manualfeed known in statusdict
  154.         statusdict /manualfeed get
  155.         {% if true then we loop for 5 seconds
  156.            usertime 5000 add       % target usertime
  157.            { % loop
  158.              dup usertime sub 0 lt
  159.              { exit }if
  160.            }loop
  161.            pop             % pop the usertime off the stac
  162.         }if
  163.      }if
  164.      oldversion23-showpage
  165.   }bind def
  166. }if
  167. not{ restore }if
  168. "
  169. *End
  170.