home *** CD-ROM | disk | FTP | other *** search
- *PPD-Adobe: "4.0"
- *% AGPRO981.spd: Simplified form of AGPRO981.ppd
- *PCFileName: "AGPro981.PPD"
- *Product: "(AGFA ProSet 9800)"
- *PSVersion: "(52.3) 320"
- *ShortNickName: "AGFA-ProSet 9800 v52.3"
- *ModelName: "AGFA-ProSet9800"
- *NickName: "AGFA-ProSet9800 v52.3"
- *FreeVM: "2453510"
- *LanguageLevel: "1"
- *ColorDevice: False
- *Password: "0"
- *ExitServer: "
- count 0 eq { % is the password on the stack?
- true
- }{
- dup % potential password
- statusdict /checkpassword get exec not
- } ifelse
- { % if no password or not valid
- (WARNING : Cannot perform the exitserver command.) =
- (Password supplied is not valid.) =
- (Please contact the author of this software.) = flush
- quit
- } if
- serverdict /exitserver get exec
- "
- *End
- *OpenUI *Resolution: PickOne
- *OrderDependency: 20 AnySetup *Resolution
- *DefaultResolution: 1200x1200dpi
- *Resolution 1200x1200dpi: " 1200 statusdict /setresolution get exec "
- *Resolution 2400x2400dpi: " 2400 statusdict /setresolution get exec "
- *Resolution 3600x3600dpi: " 3600 statusdict /setresolution get exec "
- *?Resolution: "
- save
- initgraphics
- 0 0 moveto currentpoint matrix defaultmatrix transform
- 0 72 lineto currentpoint matrix defaultmatrix transform
- 3 -1 roll sub dup mul
- 3 1 roll exch sub dup mul
- add sqrt round cvi
- ( ) cvs dup print (x) print print (dpi) = flush
- restore
- "
- *End
- *CloseUI: *Resolution
- *ScreenFreq: "133.0"
- *ScreenAngle: "45.0"
- *OpenUI *PageSize: PickOne
- *OrderDependency: 30 AnySetup *PageSize
- *DefaultPageSize: Letter
- *PageSize Letter: "letter"
- *PageSize Legal: "legal"
- *PageSize Tabloid: "11x17"
- *PageSize LARGE: "979 1944 1 statusdict /setpage get exec"
- *PageSize A3: "a3"
- *PageSize A4: "a4"
- *PageSize A5: "a5"
- *PageSize B5: "b5"
- *PageSize Letter.Transverse: "Letter"
- *PageSize A4.Transverse: "A4"
- *PageSize A5.Transverse: "A5"
- *PageSize B5.Transverse: "B5"
- *?PageSize: "
- save
- mark statusdict /pageparams get exec exch pop
- 5 dict
- dup [420 595] (A5.Transverse) put
- dup [516 729] (B5.Transverse) put
- dup [595 842] (A4.Transverse) put
- dup [612 792] (Letter.Transverse) put
- 8 dict
- dup [595 420] (A5) put
- dup [729 516] (B5) put
- dup [792 612] (Letter) put
- dup [842 595] (A4) put
- dup [1008 612] (Legal) put
- dup [1190 842] (A3) put
- dup [1224 792] (Tabloid) put
- dup [1944 979] (LARGE) put
- 3 -1 roll 0 eq { pop } { exch pop }ifelse
- (Unknown) exch
- { exch aload pop
- 4 index eq exch 5 index eq and
- { exch pop exit } { pop } ifelse
- } bind forall = flush cleartomark
- restore
- "
- *End
- *CloseUI: *PageSize
- *OpenUI *PageRegion: PickOne
- *OrderDependency: 40 AnySetup *PageRegion
- *DefaultPageRegion: Letter
- *PageRegion Letter: "letter"
- *PageRegion Legal: "legal"
- *PageRegion Tabloid: "11x17"
- *PageRegion LARGE: "979 1944 1 statusdict /setpage get exec"
- *PageRegion A3: "a3"
- *PageRegion A4: "a4"
- *PageRegion A5: "a5"
- *PageRegion B5: "b5"
- *PageRegion Letter.Transverse: "Letter"
- *PageRegion A4.Transverse: "A4"
- *PageRegion A5.Transverse: "A5"
- *PageRegion B5.Transverse: "B5"
- *CloseUI: *PageRegion
- *RequiresPageRegion All: True
- *DefaultImageableArea: Letter
- *ImageableArea Letter: "0 0 612 792 "
- *ImageableArea Legal: "0 0 612 1008 "
- *ImageableArea Tabloid: "0 0 792 1224 "
- *ImageableArea LARGE: "0 0 979 1944"
- *ImageableArea A3: "0 0 842 1190 "
- *ImageableArea A4: "0 0 595 842 "
- *ImageableArea A5: "0 0 420 595 "
- *ImageableArea B5: "0 0 516 729 "
- *ImageableArea Letter.Transverse: "0 0 612 792 "
- *ImageableArea A4.Transverse: "0 0 595 842 "
- *ImageableArea A5.Transverse: "0 0 420 595 "
- *ImageableArea B5.Transverse: "0 0 516 729 "
- *?ImageableArea: "
- save /cvp { cvi ( ) cvs print ( ) print } bind def
- newpath clippath pathbbox
- 4 -2 roll exch 2 {ceiling cvp} repeat
- exch 2 {floor cvp} repeat flush
- restore
- "
- *End
- *DefaultPaperDimension: Letter
- *PaperDimension Letter: "612 792 "
- *PaperDimension Legal: "612 1008"
- *PaperDimension Tabloid: "792 1224"
- *PaperDimension LARGE: "979 1944"
- *PaperDimension A3: "842 1190"
- *PaperDimension A4: "595 842 "
- *PaperDimension A5: "420 595 "
- *PaperDimension B5: "516 729 "
- *PaperDimension Letter.Transverse: "612 792 "
- *PaperDimension A4.Transverse: "595 842 "
- *PaperDimension A5.Transverse: "420 595 "
- *PaperDimension B5.Transverse: "516 729 "
- *CustomPageSize True: "exch pop statusdict begin setpageparams end"
- *ParamCustomPageSize Width: 1 points 0 979
- *ParamCustomPageSize Height: 2 points 0 1944
- *ParamCustomPageSize WidthOffset/Margins: 3 points 0 979
- *ParamCustomPageSize HeightOffset: 4 points 0 0
- *ParamCustomPageSize Orientation: 5 int 0 1
- *OpenUI *InputSlot: PickOne
- *OrderDependency: 20 AnySetup *InputSlot
- *DefaultInputSlot: Cassette
- *InputSlot Cassette: ""
- *CloseUI: *InputSlot
- *OpenGroup: Imagesetter
- *OpenUI *MirrorPrint/Mirror Print: Boolean
- *OrderDependency: 50 AnySetup *MirrorPrint
- *MirrorPrint True: "true statusdict /setmirrorprint get exec"
- *MirrorPrint False: "false statusdict /setmirrorprint get exec"
- *DefaultMirrorPrint: False
- *?MirrorPrint: "save statusdict /mirrorprint get exec
- { (True) } { (False) } ifelse = flush restore"
- *End
- *CloseUI: *MirrorPrint
- *CloseGroup: Imagesetter
- *DefaultFont: Courier
- *Font Courier: Standard "(001.004)" Standard ROM
- *Font Courier-Bold: Standard "(001.004)" Standard ROM
- *Font Courier-BoldOblique: Standard "(001.004)" Standard ROM
- *Font Courier-Oblique: Standard "(001.004)" Standard ROM
- *Font Helvetica: Standard "(001.002)" Standard ROM
- *Font Helvetica-Bold: Standard "(001.002)" Standard ROM
- *Font Helvetica-BoldOblique: Standard "(001.002)" Standard ROM
- *Font Helvetica-Oblique: Standard "(001.002)" Standard ROM
- *Font Symbol: Special "(001.003)" Special ROM
- *Font Times-Bold: Standard "(001.002)" Standard ROM
- *Font Times-BoldItalic: Standard "(001.004)" Standard ROM
- *Font Times-Italic: Standard "(001.002)" Standard ROM
- *Font Times-Roman: Standard "(001.002)" Standard ROM
-