usr/share/cups/model/PS2PDF.ppd

   1 *PPD-Adobe: "4.3"
   2 *% Adobe Systems PostScript(R) Printer Description File
   3 *% For "DANKA PostScript to PDF Conversion Filter". Useful only for
   4 *% the  "pdf:/"-backend in CUPS on grml system
   5 *% Date: 28-02-2004, Kurt Pfeifle (-kp-). Based on the INFOSTRM.PPD by Heinz Pieper.
   6 *% Latest change: Sun Sep 11 12:54:25 CEST 2005 [mika]
   7 *% ************************************************************************
   8 *%                         D I S C L A I M E R
   9 *% ************************************************************************
  10 *% The above statement indicates that this PPD was written using the
  11 *% Adobe PPD File Format Specification 4.3, but does not intend to imply
  12 *% approval and acceptance by Adobe Systems, Inc.
  13 *%
  14 *% This PPD comes with no guarantee of any kind. Support by its authors, by
  15 *% Knoppix, by Danka Deutschland or by Heise Verlag is not available.
  16 *% Feedback is appreciated, but no response time is guaranteed:
  17 *% Kurt Pfeifle <kpfeifle@danka.de>
  18 *%              <pfeifle@kde.org>
  19
  20 *% ************************************************************************
  21 *%        C O N F O R M A N C E  T E S T  R E S U L T S
  22 *% ************************************************************************
  23 *% This PPD has been tested with the Easy Software Products PPD test tool.
  24 *% This tool, 'testcupsppd' has discovered no deviation from the Adobe PPD
  25 *% Specification. 'testcupsppd' is the best tool known to the author for
  26 *% this purpose....
  27
  28 *% ************************************************************************
  29 *%             INTERNAL INFORMATION
  30 *% ************************************************************************
  31 *% InternalVersion: "07.00.02"
  32 *% Platform(s) Supported: "Windows 95" "Windows 98" "Windows Me"
  33 *%                        "Windows NT" "Windows 2000" "Windows XP"
  34 *%                        "Macintosh"
  35 *%                        "Linux" "AIX" "HP-UX" "NetBSD" "FreeBSD" "OpenBSD"
  36 *%                        "Mac OS X" "Irix" "Solaris" "Digital UNIX" "OSF/1"
  37 *%                        "Compaq Tru64 UNIX" "CUPS" "ESP PrintPro"
  38
  39 *% ************************************************************************
  40 *%             M O D I F I C A T I O N    I N F O R M A T I O N
  41 *% ************************************************************************
  42 *% 28-02-2004 Initial design and testing
  43
  44 *% ************************************************************************
  45 *%             V E R S I O N    I N F O R M A T I O N
  46 *% ************************************************************************
  47 *FormatVersion: "4.3"
  48 *FileVersion:   "1.0"
  49 *PSVersion:     "(3010.103) 0"
  50 *% InternalVersion: "07.00.02"
  51
  52 *% ************************************************************************
  53 *%             N A M E    I N F O R M A T I O N
  54 *% ************************************************************************
  55 *Product:       "(DANKA PS2PDF Conversion)"
  56 *Manufacturer:  "DANKA Digital Product Development"
  57 *ModelName:     "DANKA PS2PDF"
  58 *NickName:      "DANKA PS2PDF Conversion"
  59 *ShortNickName: "DANKA PS2PDF"
  60 *PCFileName:    "PS2PDF.PPD"
  61
  62 *% ************************************************************************
  63 *%            L A N G U A G E    I N F O R M A T I O N
  64 *% ************************************************************************
  65 *LanguageVersion:       German
  66 *LanguageEncoding:      ISOLatin1
  67 *LanguageLevel:         "3"
  68
  69 *% ************************************************************************
  70 *%            C U P S   F I L T E R   I N F O R M A T I O N
  71 *% ************************************************************************
  72 *% *cupsFilter: "application/vnd.cups-postscript 0 dankapdfmark"
  73 *% *cupsFilter: "application/vnd.danka-pdfmarked 0 - "
  74 *% the above lines are currently not used (may change in a later version
  75 *% of the 'DANKA PS2PDF Conversion').
  76
  77 *% *************************************************************************
  78 *%    G E N E R A L   I N F O R M A T I O N   A N D   D E F A U L T S
  79 *% *************************************************************************
  80 *ColorDevice: True
  81 *DefaultColorSpace: RGB
  82 *DefaultResolution: 600dpi
  83 *FreeVM: "5509724"
  84 *Protocols: BCP TBCP
  85 *FileSystem: True
  86 *?FileSystem: "(True) == flush"
  87 *Throughput: "110"
  88
  89 *DefaultOutputOrder:  Normal
  90 *OutputOrder Normal: " "
  91
  92 *Password: "()"
  93 *ExitServer: "
  94   count 0 eq
  95   {  false } { true exch startjob } ifelse
  96   not
  97   {
  98     %  if no password or not valid
  99     (WARNING : Cannot modify initial VM.) =
 100     (Missing or invalid password.) =
 101     (Please contact the author of this software.) = flush
 102     quit
 103   } if
 104 "
 105 *End
 106
 107 *% ************************************************************************
 108 *%             H A L F T O N E    I N F O R M A T I O N
 109 *% ************************************************************************
 110 *ContoneOnly: False
 111 *DefaultHalftoneType: 1
 112 *ScreenFreq: "60.0"
 113 *ScreenAngle: "45.0"
 114 *DefaultScreenProc: Dot
 115 *ScreenProc Dot: "
 116   {abs exch abs 2 copy add 1 gt {1 sub dup mul exch 1 sub dup mul add 1 sub }
 117   {dup mul exch dup mul add 1 exch sub } ifelse }
 118 "
 119 *End
 120
 121 *ScreenProc Line: "
 122   { exch pop abs neg } bind
 123 "
 124 *End
 125
 126 *ScreenProc Ellipse: "
 127   {abs exch abs 2 copy mul exch 4 mul add 3 sub dup 0 lt
 128   { pop dup mul exch .75 div dup mul add 4 div 1 exch sub }
 129   { dup 1 gt { pop 1 exch sub dup mul exch 1 exch sub .75 div dup mul add 4 div 1 sub }
 130   { .5 exch sub exch pop exch pop } ifelse  } ifelse } bind
 131 "
 132 *End
 133
 134 *ScreenProc Cross: "
 135   { abs exch abs 2 copy gt { exch } if pop neg } bind
 136 "
 137 *End
 138
 139 *DefaultTransfer: Null
 140 *Transfer Null: "{ } bind"
 141 *Transfer Null.Inverse: "{ 1 exch sub } bind"
 142
 143 *% ************************************************************************
 144 *%              C U S T O M   P A G E   S I Z E
 145 *% ************************************************************************
 146 *NonUIOrderDependency: 50.0 AnySetup *CustomPageSize
 147 *MaxMediaWidth: "3240"
 148 *MaxMediaHeight: "3240"
 149 *CenterRegistered: True
 150 *HWMargins: 10 10 10 10
 151 *LeadingEdge Forced: ""
 152 *DefaultLeadingEdge: Forced
 153 *VariablePaperSize: True
 154 *ParamCustomPageSize Width: 1 points 283 842
 155 *ParamCustomPageSize Height: 2 points 420 1225
 156 *ParamCustomPageSize WidthOffset: 3 points 0 0
 157 *ParamCustomPageSize HeightOffset: 4 points 0 0
 158 *ParamCustomPageSize Orientation: 5 int 0 3
 159
 160 *CustomPageSize True: "pop pop pop <</PageSize [5 -2 roll] /ImagingBBox null
 161  /DeferredMediaSelection true /Policies <</PageSize 2>> >> setpagedevice"
 162 *End
 163
 164 *% ************************************************************************
 165 *%             P A P E R    H A N D L I N G
 166 *% ************************************************************************
 167 *% make the correct rotation Heinz Pieper 10-05-99
 168 *LandscapeOrientation: Plus90
 169
 170 *OpenUI *InputSlot: PickOne
 171 *DefaultInputSlot: PickOne
 172 *InputSlot OnlyOne: ""
 173 *CloseUI: *InputSlot
 174
 175 *OpenUI *PageSize: PickOne
 176 *OrderDependency: 30 AnySetup *PageSize
 177 *DefaultPageSize: A4
 178 *PageSize Letter/USBrief: "
 179    currentscreen
 180    2 dict
 181      dup /PageSize [612 792] put
 182      dup /ImagingBBox [0 0 612 792] put
 183    setpagedevice setscreen "
 184 *End
 185
 186 *PageSize Legal/USLang: "
 187    currentscreen
 188    2 dict
 189      dup /PageSize [612 1008] put
 190      dup /ImagingBBox [0 0 612 1008] put
 191    setpagedevice setscreen "
 192 *End
 193
 194 *PageSize A5/A5: "
 195    currentscreen
 196    2 dict
 197      dup /PageSize [420 595] put
 198      dup /ImagingBBox [0 0 420 595] put
 199    setpagedevice setscreen "
 200 *End
 201
 202 *PageSize A4/A4: "
 203    currentscreen
 204    2 dict
 205      dup /PageSize [595 842] put
 206      dup /ImagingBBox [0 0 595 842] put
 207    setpagedevice setscreen "
 208 *End
 209
 210 *PageSize A3/A3: "
 211    currentscreen
 212    2 dict
 213      dup /PageSize [842 1191] put
 214      dup /ImagingBBox [0 0 842 1191] put
 215    setpagedevice setscreen "
 216 *End
 217 *CloseUI: *PageSize
 218
 219
 220 *OpenUI *PageRegion: PickOne
 221 *OrderDependency: 40 AnySetup *PageRegion
 222 *DefaultPageRegion: A4
 223 *PageRegion Letter/USBrief: "
 224    currentscreen
 225    2 dict
 226      dup /PageSize [612 792] put
 227      dup /ImagingBBox [0 0 612 792] put
 228    setpagedevice setscreen "
 229 *End
 230
 231 *PageRegion Legal/USLang: "
 232    currentscreen
 233    2 dict
 234      dup /PageSize [612 1008] put
 235      dup /ImagingBBox [0 0 612 1008] put
 236    setpagedevice setscreen "
 237 *End
 238
 239 *PageRegion A5/A5: "
 240    currentscreen
 241    2 dict
 242      dup /PageSize [420 595] put
 243      dup /ImagingBBox [0 0 420 595] put
 244    setpagedevice setscreen "
 245 *End
 246
 247 *PageRegion A4/A4: "
 248    currentscreen
 249    2 dict
 250      dup /PageSize [595 842] put
 251      dup /ImagingBBox [0 0 595 842] put
 252    setpagedevice setscreen "
 253 *End
 254
 255 *PageRegion A3/A3: "
 256    currentscreen
 257    2 dict
 258      dup /PageSize [842 1191] put
 259      dup /ImagingBBox [0 0 842 1191] put
 260    setpagedevice setscreen "
 261 *End
 262 *CloseUI: *PageRegion
 263
 264
 265 *DefaultImageableArea: A4
 266 *ImageableArea Letter/USBrief:           "0 0 612  792 "
 267 *ImageableArea Legal/USLang:             "0 0 612 1008 "
 268 *ImageableArea A4/A4:                    "0 0 595  842 "
 269 *ImageableArea A3/A3:                    "0 0 842 1191 "
 270 *ImageableArea A5/A5:                    "0 0 420  595 "
 271 *ImageableArea Screen:                   "0 0 468  373 "
 272 *ImageableArea Executive:                "0 0 522  756 "
 273 *ImageableArea Ledger:                   "0 0 1224 792 "
 274 *ImageableArea Tabloid/11 x 17:          "0 0 792 1224 "
 275
 276 *DefaultPaperDimension: A4
 277 *PaperDimension Letter/USBrief:          "612  792 "
 278 *PaperDimension Legal/USLang:            "612 1008 "
 279 *PaperDimension A4/A4:                   "595  842 "
 280 *PaperDimension A3/A3:                   "842 1191 "
 281 *PaperDimension A5/A5:                   "420  595 "
 282 *PaperDimension Screen:                  "468  373 "
 283 *PaperDimension Executive:               "522  756 "
 284 *PaperDimension Ledger:                 "1224  792 "
 285 *PaperDimension Tabloid/11 x 17:         "792 1224 "
 286
 287 *RequiresPageRegion All: True
 288
 289
 290 *% ************************************************************************
 291 *%         M U L T I  P L E   R E S O L U T I O N   S U P P O R T
 292 *% ************************************************************************
 293 *OpenUI *Resolution: PickOne
 294 *OrderDependency: 50 AnySetup *Resolution
 295 *DefaultResolution: 600dpi
 296 *Resolution 36dpi: "1 dict dup /HWResolution [36 36] put setpagedevice"
 297 *Resolution 72dpi: "1 dict dup /HWResolution [72 72] put setpagedevice"
 298 *Resolution 144dpi: "1 dict dup /HWResolution [144 144] put setpagedevice"
 299 *Resolution 300dpi: "1 dict dup /HWResolution [300 300] put setpagedevice"
 300 *Resolution 600dpi: "1 dict dup /HWResolution [600 600] put setpagedevice"
 301 *Resolution 1200dpi: "1 dict dup /HWResolution [1200 1200] put setpagedevice"
 302 *Resolution 2400dpi: "1 dict dup /HWResolution [2400 2400] put setpagedevice"
 303 *Resolution 4800dpi: "1 dict dup /HWResolution [4800 4800] put setpagedevice"
 304 *Resolution 9600dpi: "1 dict dup /HWResolution [9600 9600] put setpagedevice"
 305 *?Resolution: "
 306    save
 307    currentpagedevice /HWResolution get
 308    0 get
 309    (          ) cvs print (dpi) = flush
 310    restore"
 311 *End
 312 *CloseUI: *Resolution
 313
 314 *ResScreenFreq 36dpi: "60.0"
 315 *ResScreenFreq 72dpi: "60.0"
 316 *ResScreenFreq 144dpi: "60.0"
 317 *ResScreenFreq 300dpi: "60.0"
 318 *ResScreenFreq 600dpi: "60.0"
 319 *ResScreenFreq 1200dpi: "60.0"
 320 *ResScreenFreq 2400dpi: "60.0"
 321 *ResScreenFreq 4800dpi: "60.0"
 322 *ResScreenFreq 9600dpi: "60.0"
 323
 324 *ResScreenAngle 36dpi: "45.0"
 325 *ResScreenAngle 72dpi: "45.0"
 326 *ResScreenAngle 144dpi: "45.0"
 327 *ResScreenAngle 300dpi: "45.0"
 328 *ResScreenAngle 600dpi: "45.0"
 329 *ResScreenAngle 1200dpi: "45.0"
 330 *ResScreenAngle 2400dpi: "45.0"
 331 *ResScreenAngle 4800dpi: "45.0"
 332 *ResScreenAngle 9600dpi: "45.0"
 333
 334
 335 *% ************************************************************************
 336 *%       O T H E R   U S E R    I N T E R F A C E    O P T I O N S
 337 *% ************************************************************************
 338 *% this version doesn't support any user interface options other than
 339 *% the 'n-up' and 'watermark' stuff derived from HP's MIT-licensed code (-kp-)
 340
 341
 342 *% ******************************************************************
 343 *%              ====== N-up Printing (Kurt Pfeifle)  ========
 344 *% ******************************************************************
 345
 346 *OpenUI *KP-n-up/Pages per Sheet:  PickOne
 347 *OrderDependency: 68 AnySetup *KP-n-up
 348 *DefaultKP-n-up: OneUp
 349 *KP-n-up OneUp/1 (Portrait): "
 350 % Copyright (c) <pipitas 2002>
 351
 352   userdict begin
 353   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 354   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 355   userdict /KPWMSize known not {/KPWMSize 48 def} if
 356   userdict /KPWMLocation known not {/KPWMLocation true def} if
 357   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 358   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 359   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 360     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 361   end
 362
 363   <<
 364   /EndPage {userdict begin userdict /KPWMText known KPWM /KPWMOn get and
 365     {initmatrix
 366      0.5 setgray 4 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 367      currentpagedevice /PageSize get aload pop 2 div exch 2 div exch translate
 368      KPWMAngle rotate /KPWMFont userdict /HPppScale known {KPWMSize HPppScale mul}{KPWMSize}ifelse selectfont
 369      KPWMText stringwidth 2 div neg exch 2 div neg exch
 370        userdict /HPppScale known {KPWMSize HPppScale mul}{KPWMSize}ifelse .25 mul sub moveto
 371      KPWMText false charpath userdict /KPWMStyle1 known
 372        {gsave 1 setgray KPWMStyle1 KPWMStyle add setlinewidth stroke grestore} if
 373      0 setgray KPWMStyle setlinewidth stroke
 374      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 375     } if
 376     2 eq {pop false}{pop KPWM begin KPWMEOP end} ifelse
 377     end } bind
 378   >> setpagedevice"
 379 *End
 380
 381
 382 *% ******************************************************************
 383 *%     ========= 1-Up Landscape (Kurt Pfeifle) ============
 384 *% ******************************************************************
 385
 386 *KP-n-up OneUpL/1 (Landscape): "
 387 % Copyright (c) <pipitas 2002>
 388   userdict begin
 389   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 390
 391   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 392   userdict /KPWMSize known not {/KPWMSize 48 def} if
 393   userdict /KPWMLocation known not {/KPWMLocation true def} if
 394   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 395   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 396
 397   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 398     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 399   end
 400
 401   << /EndPage
 402     {userdict begin
 403      userdict /KPWMText known KPWM /KPWMOn get and
 404     {initmatrix 0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 405      currentpagedevice /PageSize get aload pop 2 div exch 2 div exch translate
 406      KPWMAngle 90 add rotate /KPWMFont userdict /HPppScale known {KPWMSize HPppScale mul}{KPWMSize}ifelse selectfont
 407      KPWMText stringwidth 2 div neg exch 2 div neg exch
 408        userdict /HPppScale known {KPWMSize HPppScale mul}{KPWMSize}ifelse .25 mul sub moveto
 409      KPWMText false charpath userdict /KPWMStyle1 known
 410        {gsave 1 setgray KPWMStyle1 KPWMStyle add setlinewidth stroke grestore} if
 411          0 setgray KPWMStyle setlinewidth stroke KPWMLocation not
 412        {true setglobal KPWM /KPWMOn false put false setglobal} if
 413     } if
 414     2 eq {pop false}{pop KPWM begin KPWMEOP end} ifelse end
 415     } bind
 416   >> setpagedevice"
 417 *End
 418
 419 *% ******************************************************************
 420 *%     ========= 2-Up Portrait (Kurt Pfeifle) ============
 421 *% ******************************************************************
 422
 423 *KP-n-up TwoUp/2 (Portrait):  "
 424 % Copyright (c) <pipitas 2002>
 425   userdict begin
 426   userdict /KPWMPgWidth known not
 427     {/KPWMPgWidth currentpagedevice /PageSize get aload pop /KPWMPgHeight exch def def} if
 428   /KPWMShWidth currentpagedevice /PageSize get aload pop /KPWMShHeight exch def def
 429
 430   /KPWMCTM {
 431     /KPWMScale KPWMShWidth 32 sub KPWMPgHeight div dup KPWMShHeight 32 sub 2 div
 432       KPWMPgWidth div dup 3 1 roll lt {pop} {exch pop} ifelse def
 433     /KPWMX1 KPWMShWidth KPWMPgHeight KPWMScale mul sub 2 div KPWMPgHeight KPWMScale mul add def
 434     /KPWMY1 KPWMShHeight KPWMPgWidth KPWMScale mul 2 mul sub 2 div def
 435     /KPWMY2 KPWMPgWidth KPWMScale mul KPWMY1 add def
 436   } bind def KPWMCTM
 437
 438   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 439
 440   /restore {/PageSV where {pop dup PageSV eq
 441     {restore KPWM begin KPWMMatrix setmatrix end}{restore}ifelse}{restore}ifelse} bind def
 442
 443   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 444   userdict /KPWMSize known not {/KPWMSize 48 def} if
 445   userdict /KPWMLocation known not {/KPWMLocation true def} if
 446   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 447   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 448
 449   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 450     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 451
 452   /KPwatermark {
 453   0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 454   0 0 KPWMPgWidth KPWMPgHeight rectstroke
 455   userdict /KPWMText known KPWMOn and
 456     {KPWMPgWidth 2 div KPWMPgHeight 2 div translate
 457      KPWMAngle rotate /KPWMFont KPWMSize selectfont
 458      KPWMText stringwidth 2 div neg exch 2 div neg exch KPWMSize .25 mul sub moveto
 459      KPWMText false charpath userdict /KPWMStyle1 known
 460        {gsave 1 setgray KPWMStyle1 KPWMScale div KPWMStyle add setlinewidth stroke grestore} if
 461      0 setgray KPWMStyle setlinewidth stroke
 462      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 463     } if
 464   } bind def
 465   end
 466
 467   <<
 468   /BeginPage {userdict begin
 469     2 mod 0 eq { KPWMX1 KPWMY1 translate }{ KPWMX1 KPWMY2 translate } ifelse
 470     90 rotate KPWMScale KPWMScale scale
 471     KPWM begin true setglobal
 472       /KPWMMatrix matrix currentmatrix def
 473     false setglobal end
 474     end } bind
 475
 476   /EndPage {userdict begin
 477     KPWM begin KPWMMatrix setmatrix
 478     2 eq {2 mod 0 ne {KPWMEOP}{false}ifelse}{KPwatermark 2 mod 1 eq {KPWMEOP}{false}ifelse} ifelse end
 479     end } bind
 480   >> setpagedevice
 481
 482 /setpagedevice {userdict begin dup /PageSize known {/KPWMPgWidth exch /PageSize get aload pop /KPWMPgHeight exch def def
 483   KPWMCTM <</PageSize [KPWMShWidth KPWMShHeight] /ImagingBBox null>>
 484   userdict /KPWMSPD known {KPWMSPD}{setpagedevice} ifelse}if end} bind def"
 485 *End
 486
 487
 488 *% ******************************************************************
 489 *%     ========= 2-Up Landscape (Kurt Pfeifle) ============
 490 *% ******************************************************************
 491
 492 *KP-n-up TwoUpL/2 (Landscape): "
 493 % Copyright (c) <pipitas 2002>
 494   userdict begin
 495   userdict /KPWMPgWidth known not
 496     {/KPWMPgWidth currentpagedevice /PageSize get aload pop /KPWMPgHeight exch def def} if
 497   /KPWMShWidth currentpagedevice /PageSize get aload pop /KPWMShHeight exch def def
 498
 499   /KPWMCTM {
 500     /KPWMScale KPWMShWidth 32 sub KPWMPgHeight div dup KPWMShHeight 32 sub 2 div
 501       KPWMPgWidth div dup 3 1 roll lt {pop} {exch pop} ifelse def
 502     /KPWMX1 KPWMShWidth KPWMPgHeight KPWMScale mul sub 2 div def
 503     /KPWMY1 KPWMShHeight KPWMPgWidth KPWMScale mul 2 mul sub 2 div KPWMShHeight exch sub def
 504     /KPWMY2 KPWMY1 KPWMPgWidth KPWMScale mul sub def
 505   } bind def KPWMCTM
 506
 507   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 508
 509   /restore {/PageSV where {pop dup PageSV eq
 510     {restore KPWM begin KPWMMatrix setmatrix end}{restore}ifelse}{restore}ifelse} bind def
 511
 512   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 513   userdict /KPWMSize known not {/KPWMSize 48 def} if
 514   userdict /KPWMLocation known not {/KPWMLocation true def} if
 515   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 516   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 517
 518   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 519     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 520
 521   /KPwatermark {
 522   0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 523   0 0 KPWMPgWidth KPWMPgHeight rectstroke
 524   userdict /KPWMText known KPWMOn and
 525     {KPWMPgWidth 2 div KPWMPgHeight 2 div translate
 526      KPWMAngle 90 add rotate /KPWMFont KPWMSize selectfont
 527      KPWMText stringwidth 2 div neg exch 2 div neg exch KPWMSize .25 mul sub moveto
 528      KPWMText false charpath userdict /KPWMStyle1 known
 529        {gsave 1 setgray KPWMStyle1 KPWMScale div KPWMStyle add setlinewidth stroke grestore} if
 530      0 setgray KPWMStyle setlinewidth stroke
 531      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 532     } if
 533   } bind def
 534   end
 535
 536   <<
 537   /BeginPage {userdict begin
 538     2 mod 0 eq { KPWMX1 KPWMY1 translate }{ KPWMX1 KPWMY2 translate } ifelse
 539     -90 rotate KPWMScale KPWMScale scale
 540     KPWM begin true setglobal
 541       /KPWMMatrix matrix currentmatrix def
 542     false setglobal end
 543     end } bind
 544
 545   /EndPage {userdict begin
 546     KPWM begin KPWMMatrix setmatrix
 547     2 eq {2 mod 0 ne {KPWMEOP}{false}ifelse}{KPwatermark 2 mod 1 eq {KPWMEOP}{false}ifelse} ifelse end
 548     end } bind
 549   >> setpagedevice
 550
 551 /setpagedevice {userdict begin dup /PageSize known {/KPWMPgWidth exch /PageSize get aload pop /KPWMPgHeight exch def def
 552   KPWMCTM <</PageSize [KPWMShWidth KPWMShHeight] /ImagingBBox null>>
 553   userdict /KPWMSPD known {KPWMSPD}{setpagedevice} ifelse}if end} bind def"
 554 *End
 555
 556 *% ******************************************************************
 557 *%     ========= 4-Up (Kurt Pfeifle) ============
 558 *% ******************************************************************
 559
 560 *KP-n-up FourUp/4 (Portrait):  "
 561 % Copyright (c) <pipitas 2002>
 562   userdict begin
 563   userdict /KPWMPgWidth known not
 564     {/KPWMPgWidth currentpagedevice /PageSize get aload pop /KPWMPgHeight exch def def} if
 565   /KPWMShWidth currentpagedevice /PageSize get aload pop /KPWMShHeight exch def def
 566
 567   /KPWMCTM {
 568     /KPWMScale KPWMShWidth 32 sub 2 div KPWMPgWidth div dup KPWMShHeight 32 sub 2 div
 569       KPWMPgHeight div dup 3 1 roll lt {pop} {exch pop} ifelse def
 570     /KPWMX1 KPWMShWidth KPWMPgWidth KPWMScale mul 2 mul sub 2 div def
 571     /KPWMX2 KPWMPgWidth KPWMScale mul KPWMX1 add def
 572     /KPWMY1 KPWMShHeight KPWMPgHeight KPWMScale mul 2 mul sub 2 div def
 573     /KPWMY2 KPWMPgHeight KPWMScale mul KPWMY1 add def
 574   } bind def KPWMCTM
 575
 576   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 577
 578   /restore {/PageSV where {pop dup PageSV eq
 579     {restore KPWM begin KPWMMatrix setmatrix end}{restore}ifelse}{restore}ifelse} bind def
 580
 581   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 582   userdict /KPWMSize known not {/KPWMSize 48 def} if
 583   userdict /KPWMLocation known not {/KPWMLocation true def} if
 584   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 585   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 586
 587   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 588     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 589
 590   /KPwatermark {
 591   0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 592   0 0 KPWMPgWidth KPWMPgHeight rectstroke
 593   userdict /KPWMText known KPWMOn and
 594     {KPWMPgWidth 2 div KPWMPgHeight 2 div translate
 595      KPWMAngle rotate /KPWMFont KPWMSize selectfont
 596      KPWMText stringwidth 2 div neg exch 2 div neg exch KPWMSize .25 mul sub moveto
 597      KPWMText false charpath userdict /KPWMStyle1 known
 598        {gsave 1 setgray KPWMStyle1 KPWMScale div KPWMStyle add setlinewidth stroke grestore} if
 599      0 setgray KPWMStyle setlinewidth stroke
 600      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 601     } if
 602   } bind def
 603   end
 604
 605 <<
 606   /BeginPage {userdict begin
 607     4 mod dup dup dup
 608     0 eq {KPWMX1 KPWMY2 translate} if
 609     1 eq {KPWMX2 KPWMY2 translate} if
 610     2 eq {KPWMX1 KPWMY1 translate} if
 611     3 eq {KPWMX2 KPWMY1 translate} if
 612     KPWMScale KPWMScale scale
 613     KPWM begin true setglobal
 614       /KPWMMatrix matrix currentmatrix def
 615     false setglobal end
 616     end } bind
 617
 618   /EndPage {userdict begin
 619     KPWM begin KPWMMatrix setmatrix
 620     2 eq {4 mod 0 ne {KPWMEOP}{false}ifelse}{KPwatermark 4 mod 3 eq {KPWMEOP}{false}ifelse} ifelse end
 621     end } bind
 622 >> setpagedevice
 623
 624 /setpagedevice {userdict begin dup /PageSize known {/KPWMPgWidth exch /PageSize get aload pop /KPWMPgHeight exch def def
 625   KPWMCTM <</PageSize [KPWMShWidth KPWMShHeight] /ImagingBBox null>>
 626   userdict /KPWMSPD known {KPWMSPD}{setpagedevice} ifelse}if end} bind def"
 627 *End
 628
 629
 630 *% ******************************************************************
 631 *%     ========= 4-Up Landscape (Kurt Pfeifle) ============
 632 *% ******************************************************************
 633
 634 *KP-n-up FourUpL/4 (Landscape): "
 635 % Copyright (c) <pipitas 2002>
 636   userdict begin
 637   userdict /KPWMPgWidth known not
 638     {/KPWMPgWidth currentpagedevice /PageSize get aload pop /KPWMPgHeight exch def def} if
 639   /KPWMShWidth currentpagedevice /PageSize get aload pop /KPWMShHeight exch def def
 640
 641   /KPWMCTM {
 642     /KPWMScale KPWMShWidth 32 sub 2 div KPWMPgWidth div dup KPWMShHeight 32 sub 2 div
 643       KPWMPgHeight div dup 3 1 roll lt {pop} {exch pop} ifelse def
 644     /KPWMX1 KPWMShWidth KPWMPgWidth KPWMScale mul 2 mul sub 2 div def
 645     /KPWMX2 KPWMPgWidth KPWMScale mul KPWMX1 add def
 646     /KPWMY1 KPWMShHeight KPWMPgHeight KPWMScale mul 2 mul sub 2 div def
 647     /KPWMY2 KPWMPgHeight KPWMScale mul KPWMY1 add def
 648   } bind def KPWMCTM
 649
 650   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 651
 652   /restore {/PageSV where {pop dup PageSV eq
 653     {restore KPWM begin KPWMMatrix setmatrix end}{restore}ifelse}{restore}ifelse} bind def
 654
 655   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 656   userdict /KPWMSize known not {/KPWMSize 48 def} if
 657   userdict /KPWMLocation known not {/KPWMLocation true def} if
 658   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 659   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 660
 661   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 662     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 663
 664   /KPwatermark {
 665   0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 666   0 0 KPWMPgWidth KPWMPgHeight rectstroke
 667   userdict /KPWMText known KPWMOn and
 668     {KPWMPgWidth 2 div KPWMPgHeight 2 div translate
 669      KPWMAngle 90 add rotate /KPWMFont KPWMSize selectfont
 670      KPWMText stringwidth 2 div neg exch 2 div neg exch KPWMSize .25 mul sub moveto
 671      KPWMText false charpath userdict /KPWMStyle1 known
 672        {gsave 1 setgray KPWMStyle1 KPWMScale div KPWMStyle add setlinewidth stroke grestore} if
 673      0 setgray KPWMStyle setlinewidth stroke
 674      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 675     } if
 676   } bind def
 677   end
 678
 679   <<
 680   /BeginPage {userdict begin
 681     4 mod dup dup dup
 682     0 eq {KPWMX1 KPWMY1 translate} if
 683     1 eq {KPWMX1 KPWMY2 translate} if
 684     2 eq {KPWMX2 KPWMY1 translate} if
 685     3 eq {KPWMX2 KPWMY2 translate} if
 686     KPWMScale KPWMScale scale
 687     KPWM begin true setglobal
 688       /KPWMMatrix matrix currentmatrix def
 689     false setglobal end
 690     end } bind
 691
 692   /EndPage {userdict begin
 693     KPWM begin KPWMMatrix setmatrix
 694     2 eq {4 mod 0 ne {KPWMEOP}{false}ifelse}{KPwatermark 4 mod 3 eq {KPWMEOP}{false}ifelse} ifelse end
 695     end } bind
 696   >> setpagedevice
 697
 698 /setpagedevice {userdict begin dup /PageSize known {/KPWMPgWidth exch /PageSize get aload pop /KPWMPgHeight exch def def
 699   KPWMCTM <</PageSize [KPWMShWidth KPWMShHeight] /ImagingBBox null>>
 700   userdict /KPWMSPD known {KPWMSPD}{setpagedevice} ifelse}if end} bind def"
 701 *End
 702
 703
 704 *% ******************************************************************
 705 *%     ========= 6-Up Portrait (Kurt Pfeifle) ============
 706 *% ******************************************************************
 707
 708 *KP-n-up SixUp/6 (Portrait):  "
 709 % Copyright (c) <pipitas 2002>
 710   userdict begin
 711   userdict /KPWMPgWidth known not
 712     {/KPWMPgWidth currentpagedevice /PageSize get aload pop /KPWMPgHeight exch def def} if
 713   /KPWMShWidth currentpagedevice /PageSize get aload pop /KPWMShHeight exch def def
 714
 715   /KPWMCTM {
 716     /KPWMScale KPWMShWidth 32 sub 2 div KPWMPgHeight div dup KPWMShHeight 32 sub 3 div
 717       KPWMPgWidth div dup 3 1 roll lt {pop} {exch pop} ifelse def
 718     /KPWMX1 KPWMShWidth KPWMPgHeight KPWMScale mul 2 mul sub 2 div KPWMPgHeight KPWMScale mul add def
 719     /KPWMY1 KPWMShHeight KPWMPgWidth KPWMScale mul 3 mul sub 2 div def
 720   } bind def KPWMCTM
 721
 722   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 723
 724   /restore {/PageSV where {pop dup PageSV eq
 725     {restore KPWM begin KPWMMatrix setmatrix end}{restore}ifelse}{restore}ifelse} bind def
 726
 727   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 728   userdict /KPWMSize known not {/KPWMSize 48 def} if
 729   userdict /KPWMLocation known not {/KPWMLocation true def} if
 730   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 731   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 732
 733   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 734     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 735
 736   /KPwatermark {
 737   0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 738   0 0 KPWMPgWidth KPWMPgHeight rectstroke
 739   userdict /KPWMText known KPWMOn and
 740     {KPWMPgWidth 2 div KPWMPgHeight 2 div translate
 741      KPWMAngle rotate /KPWMFont KPWMSize selectfont
 742      KPWMText stringwidth 2 div neg exch 2 div neg exch KPWMSize .25 mul sub moveto
 743      KPWMText false charpath userdict /KPWMStyle1 known
 744        {gsave 1 setgray KPWMStyle1 KPWMScale div KPWMStyle add setlinewidth stroke grestore} if
 745      0 setgray KPWMStyle setlinewidth stroke
 746      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 747     } if
 748   } bind def
 749   end
 750
 751   <<
 752   /BeginPage {userdict begin
 753     6 mod dup
 754     3 idiv KPWMPgHeight KPWMScale mul mul KPWMX1 add
 755     exch dup 3 idiv 3 mul sub KPWMPgWidth KPWMScale mul mul KPWMY1 add
 756     translate
 757     90 rotate KPWMScale KPWMScale scale
 758     KPWM begin true setglobal
 759       /KPWMMatrix matrix currentmatrix def
 760     false setglobal end
 761     end } bind
 762
 763   /EndPage {userdict begin
 764     KPWM begin KPWMMatrix setmatrix
 765     2 eq {6 mod 0 ne {KPWMEOP}{false}ifelse}{KPwatermark 6 mod 5 eq {KPWMEOP}{false}ifelse} ifelse end
 766     end } bind
 767   >> setpagedevice
 768
 769 /setpagedevice {userdict begin dup /PageSize known {/KPWMPgWidth exch /PageSize get aload pop /KPWMPgHeight exch def def
 770   KPWMCTM <</PageSize [KPWMShWidth KPWMShHeight] /ImagingBBox null>>
 771   userdict /KPWMSPD known {KPWMSPD}{setpagedevice} ifelse}if end} bind def"
 772 *End
 773
 774
 775 *% ******************************************************************
 776 *%     ========= 6-Up Landscape (Kurt Pfeifle) ============
 777 *% ******************************************************************
 778
 779 *KP-n-up SixUpL/6 (Landscape):  "
 780 % Copyright (c) <pipitas 2002>
 781   userdict begin
 782   userdict /KPWMPgWidth known not
 783     {/KPWMPgWidth currentpagedevice /PageSize get aload pop /KPWMPgHeight exch def def} if
 784   /KPWMShWidth currentpagedevice /PageSize get aload pop /KPWMShHeight exch def def
 785
 786   /KPWMCTM {
 787     /KPWMScale KPWMShWidth 32 sub 2 div KPWMPgHeight div dup KPWMShHeight 32 sub 3 div
 788       KPWMPgWidth div dup 3 1 roll lt {pop} {exch pop} ifelse def
 789     /KPWMX1 KPWMShWidth KPWMPgHeight KPWMScale mul 2 mul sub 2 div def
 790     /KPWMY1 KPWMShHeight KPWMPgWidth KPWMScale mul 3 mul sub 2 div KPWMPgWidth KPWMScale mul add def
 791   } bind def KPWMCTM
 792
 793   true setglobal /KPWM 5 dict dup begin /KPWMOn true def /KPWMOdd true def end def false setglobal
 794
 795   /restore {/PageSV where {pop dup PageSV eq
 796     {restore KPWM begin KPWMMatrix setmatrix end}{restore}ifelse}{restore}ifelse} bind def
 797
 798   userdict /KPWMAngle known not {/KPWMAngle 45 def} if
 799   userdict /KPWMSize known not {/KPWMSize 48 def} if
 800   userdict /KPWMLocation known not {/KPWMLocation true def} if
 801   userdict /KPWMStyle known not {/KPWMStyle .48 def} if
 802   userdict /KPWMDuplex known not {/KPWMDuplex 0 def} if
 803
 804   /KPWMEOP {KPWMDuplex 0 eq {true}{KPWMDuplex 1 eq KPWMOdd eq dup not {erasepage}if
 805     true setglobal /KPWMOdd KPWMOdd not def false setglobal}ifelse} bind def
 806
 807   /KPwatermark {
 808   0 setgray 1 setlinewidth true setstrokeadjust 0 setlinejoin 0 setlinecap [] 0 setdash
 809   0 0 KPWMPgWidth KPWMPgHeight rectstroke
 810   userdict /KPWMText known KPWMOn and
 811     {KPWMPgWidth 2 div KPWMPgHeight 2 div translate
 812      KPWMAngle 90 add rotate /KPWMFont KPWMSize selectfont
 813      KPWMText stringwidth 2 div neg exch 2 div neg exch KPWMSize .25 mul sub moveto
 814      KPWMText false charpath userdict /KPWMStyle1 known
 815        {gsave 1 setgray KPWMStyle1 KPWMScale div KPWMStyle add setlinewidth stroke grestore} if
 816      0 setgray KPWMStyle setlinewidth stroke
 817      KPWMLocation not {true setglobal KPWM /KPWMOn false put false setglobal} if
 818     } if
 819   } bind def
 820   end
 821
 822   <<
 823   /BeginPage {userdict begin
 824     6 mod dup
 825     dup 2 idiv 2 mul sub KPWMPgHeight KPWMScale mul mul KPWMX1 add
 826     exch 2 idiv 2 exch sub KPWMPgWidth KPWMScale mul mul KPWMY1 add
 827     translate
 828     -90 rotate KPWMScale KPWMScale scale
 829     KPWM begin true setglobal
 830       /KPWMMatrix matrix currentmatrix def
 831     false setglobal end
 832     end } bind
 833
 834   /EndPage {userdict begin
 835     KPWM begin KPWMMatrix setmatrix
 836     2 eq {6 mod 0 ne {KPWMEOP}{false}ifelse}{KPwatermark 6 mod 5 eq {KPWMEOP}{false}ifelse} ifelse end
 837     end } bind
 838   >> setpagedevice
 839
 840 /setpagedevice {userdict begin dup /PageSize known {/KPWMPgWidth exch /PageSize get aload pop /KPWMPgHeight exch def def
 841   KPWMCTM <</PageSize [KPWMShWidth KPWMShHeight] /ImagingBBox null>>
 842   userdict /KPWMSPD known {KPWMSPD}{setpagedevice} ifelse}if end} bind def"
 843 *End
 844
 845 *CloseUI: *KP-n-up
 846
 847 *% *************************************************************************
 848 *%         === Watermark Text Selection (Kurt Pfeifle) ========
 849 *% *************************************************************************
 850
 851 *OpenUI *KPWMText/Watermark:  PickOne
 852 *OrderDependency: 65 AnySetup *KPWMText
 853 *DefaultKPWMText: grml
 854 *KPWMText None/None: ""
 855 *KPWMText DankaDigitalProductsDevelopment/Danka Digital Products Development: "userdict /KPWMText (Danka Digital Products Development) put"
 856 *KPWMText DPD/DPD: "userdict /KPWMText (DPD) put"
 857 *KPWMText grml/grml: "userdict /KPWMText (grml) put"
 858 *KPWMText DankaAtTheDesktop/Danka at the Desktop: "userdict /KPWMText (Danka at the Desktop) put"
 859 *KPWMText CompanyConfidential/Company Confidential: "userdict /KPWMText (Company Confidential) put"
 860 *KPWMText CompanyProprietary/Company Proprietary: "userdict /KPWMText (Company Proprietary) put"
 861 *KPWMText CompanyPrivate/Company Private: "userdict /KPWMText (Company Private) put"
 862 *KPWMText Confidential/Confidential: "userdict /KPWMText (Confidential) put"
 863 *KPWMText Copy/Copy: "userdict /KPWMText (Copy) put"
 864 *KPWMText Copyright/Copyright: "userdict /KPWMText (Copyright) put"
 865 *KPWMText Draft/Draft: "userdict /KPWMText (Draft) put"
 866 *KPWMText FileCopy/File Copy: "userdict /KPWMText (File Copy) put"
 867 *KPWMText Final/Final Version: "userdict /KPWMText (Final Version) put"
 868 *KPWMText ForInternalUse/For Internal Use Only: "userdict /KPWMText (For Internal Use Only) put"
 869 *KPWMText Preliminary/Preliminary Version: "userdict /KPWMText (Preliminary Version) put"
 870 *KPWMText Proof/Proof: "userdict /KPWMText (Proof) put"
 871 *KPWMText ReviewCopy/Review Copy: "userdict /KPWMText (Review Copy) put"
 872 *KPWMText Sample/Sample: "userdict /KPWMText (Sample) put"
 873 *KPWMText TopSecret/Top Secret: "userdict /KPWMText (Top Secret) put"
 874 *KPWMText Urgent/Urgent: "userdict /KPWMText (Urgent) put"
 875 *CloseUI: *KPWMText
 876
 877
 878 *% ******************************************************************
 879 *%      === WaterMark Font Selection (Kurt Pfeifle)========
 880 *% ******************************************************************
 881
 882 *OpenUI *KPWMFont/Watermark Font:  PickOne
 883 *OrderDependency: 65 AnySetup *KPWMFont
 884 *DefaultKPWMFont: HelveticaB
 885 *KPWMFont CourierB/Courier Bold: "
 886   /Courier-Bold findfont dup length dict begin
 887     {1 index /FID ne {def} {pop pop} ifelse} forall
 888     /Encoding ISOLatin1Encoding def currentdict
 889   end
 890   /KPWMFont exch definefont pop"
 891 *End
 892 *KPWMFont TimesB/Times Bold: "
 893   /Times-Bold findfont dup length dict begin
 894     {1 index /FID ne {def} {pop pop} ifelse} forall
 895     /Encoding ISOLatin1Encoding def currentdict
 896   end
 897   /KPWMFont exch definefont pop"
 898 *End
 899 *KPWMFont HelveticaB/Helvetica Bold: "
 900   /Helvetica-Bold findfont dup length dict begin
 901     {1 index /FID ne {def} {pop pop} ifelse} forall
 902     /Encoding ISOLatin1Encoding def currentdict
 903   end
 904   /KPWMFont exch definefont pop"
 905 *End
 906 *KPWMFont PalatinoB/Palatino Bold:"
 907   /Palatino-Bold findfont dup length dict begin
 908     {1 index /FID ne {def} {pop pop} ifelse} forall
 909     /Encoding ISOLatin1Encoding def currentdict
 910   end
 911   /KPWMFont exch definefont pop"
 912 *End
 913 *KPWMFont PalatinoBI/Palatino Bold Italic: "
 914   /Palatino-BoldItalic findfont dup length dict begin
 915     {1 index /FID ne {def} {pop pop} ifelse} forall
 916     /Encoding ISOLatin1Encoding def currentdict
 917   end
 918   /KPWMFont exch definefont pop"
 919 *End
 920 *KPWMFont NewCenturySchlbk-Bold/New Century Schoolbook Bold: "
 921   /NewCenturySchlbk-Bold findfont dup length dict begin
 922     {1 index /FID ne {def} {pop pop} ifelse} forall
 923     /Encoding ISOLatin1Encoding def currentdict
 924   end
 925   /KPWMFont exch definefont pop"
 926 *End
 927 *CloseUI: *KPWMFont
 928
 929
 930 *% ******************************************************************
 931 *%      === WaterMark Size Selection (Kurt Pfeifle) ========
 932 *% ******************************************************************
 933
 934 *OpenUI *KPWMFontSize/Watermark Font Size:  PickOne
 935 *OrderDependency: 65 AnySetup *KPWMFontSize
 936 *DefaultKPWMFontSize: pt144
 937 *KPWMFontSize pt24/24 Punkte: "userdict /KPWMSize 24 put"
 938 *KPWMFontSize pt30/30 Punkte: "userdict /KPWMSize 30 put"
 939 *KPWMFontSize pt36/36 Punkte: "userdict /KPWMSize 36 put"
 940 *KPWMFontSize pt42/42 Punkte: "userdict /KPWMSize 42 put"
 941 *KPWMFontSize pt48/48 Punkte: "userdict /KPWMSize 48 put"
 942 *KPWMFontSize pt54/54 Punkte: "userdict /KPWMSize 54 put"
 943 *KPWMFontSize pt60/60 Punkte: "userdict /KPWMSize 60 put"
 944 *KPWMFontSize pt66/66 Punkte: "userdict /KPWMSize 66 put"
 945 *KPWMFontSize pt72/72 Punkte: "userdict /KPWMSize 72 put"
 946 *KPWMFontSize pt78/78 Punkte: "userdict /KPWMSize 78 put"
 947 *KPWMFontSize pt84/84 Punkte: "userdict /KPWMSize 84 put"
 948 *KPWMFontSize pt90/90 Punkte: "userdict /KPWMSize 90 put"
 949 *KPWMFontSize pt96/96 Punkte: "userdict /KPWMSize 96 put"
 950 *KPWMFontSize pt108/108 Punkte: "userdict /KPWMSize 108 put"
 951 *KPWMFontSize pt120/120 Punkte: "userdict /KPWMSize 120 put"
 952 *KPWMFontSize pt144/144 Punkte: "userdict /KPWMSize 144 put"
 953 *CloseUI: *KPWMFontSize
 954
 955
 956 *% ******************************************************************
 957 *%      === WaterMark Angle Selection (Kurt Pfeifle) ========
 958 *% ******************************************************************
 959
 960 *OpenUI *KPWMTextAngle/Watermark Text Angel:  PickOne
 961 *OrderDependency: 65 AnySetup *KPWMTextAngle
 962 *DefaultKPWMTextAngle: Deg60
 963 *KPWMTextAngle Deg90/90 Grad: "userdict /KPWMAngle 90 put"
 964 *KPWMTextAngle Deg80/80 Grad: "userdict /KPWMAngle 80 put"
 965 *KPWMTextAngle Deg75/75 Grad: "userdict /KPWMAngle 75 put"
 966 *KPWMTextAngle Deg66/66 Grad: "userdict /KPWMAngle 66 put"
 967 *KPWMTextAngle Deg60/60 Grad: "userdict /KPWMAngle 60 put"
 968 *KPWMTextAngle Deg50/50 Grad: "userdict /KPWMAngle 50 put"
 969 *KPWMTextAngle Deg45/45 Grad: "userdict /KPWMAngle 45 put"
 970 *KPWMTextAngle Deg40/40 Grad: "userdict /KPWMAngle 40 put"
 971 *KPWMTextAngle Deg30/30 Grad: "userdict /KPWMAngle 30 put"
 972 *KPWMTextAngle Deg20/20 Grad: "userdict /KPWMAngle 20 put"
 973 *KPWMTextAngle Deg15/15 Grad: "userdict /KPWMAngle 15 put"
 974 *KPWMTextAngle Deg10/10 Grad: "userdict /KPWMAngle 10 put"
 975 *KPWMTextAngle Deg0/0 Grad: "userdict /KPWMAngle 0 put"
 976 *KPWMTextAngle DegN10/-10 Grad: "userdict /KPWMAngle -10 put"
 977 *KPWMTextAngle DegN15/-15 Grad: "userdict /KPWMAngle -15 put"
 978 *KPWMTextAngle DegN20/-20 Grad: "userdict /KPWMAngle -20 put"
 979 *KPWMTextAngle DegN30/-30 Grad: "userdict /KPWMAngle -30 put"
 980 *KPWMTextAngle DegN40/-40 Grad: "userdict /KPWMAngle -40 put"
 981 *KPWMTextAngle DegN45/-45 Grad: "userdict /KPWMAngle -45 put"
 982 *KPWMTextAngle DegN50/-50 Grad: "userdict /KPWMAngle -50 put"
 983 *KPWMTextAngle DegN60/-60 Grad: "userdict /KPWMAngle -60 put"
 984 *KPWMTextAngle DegN66/-66 Grad: "userdict /KPWMAngle -66 put"
 985 *KPWMTextAngle DegN75/-75 Grad: "userdict /KPWMAngle -75 put"
 986 *KPWMTextAngle DegN80/-80 Grad: "userdict /KPWMAngle -80 put"
 987 *KPWMTextAngle DegN90/-90 Grad: "userdict /KPWMAngle -90 put"
 988 *CloseUI: *KPWMTextAngle
 989
 990
 991 *% ******************************************************************
 992 *%      === WaterMark Style Selection (Kurt Pfeifle) ========
 993 *% ******************************************************************
 994
 995 *OpenUI *KPWMTextStyle/Watermark Font Style:  PickOne
 996 *OrderDependency: 65 AnySetup *KPWMTextStyle
 997 *DefaultKPWMTextStyle: Halo
 998 *KPWMTextStyle Narrow/Narrow Outline: "userdict /KPWMStyle .24 put"
 999 *KPWMTextStyle Medium/Medium Outline: "userdict /KPWMStyle .48 put"
1000 *KPWMTextStyle Wide/Wide Outline: "userdict /KPWMStyle .96 put"
1001 *KPWMTextStyle VeryWide/Very Wide Outline: "userdict /KPWMStyle 1.92 put"
1002 *KPWMTextStyle Halo/Wide Outline Halo: "userdict /KPWMStyle .96 put userdict /KPWMStyle1 .84 put"
1003 *CloseUI: *KPWMTextStyle
1004
1005
1006 *% ******************************************************************
1007 *%      === WaterMark Location Selection (Kurt Pfeifle) ========
1008 *% ******************************************************************
1009
1010
1011 *OpenUI *KPWMLocation/Print Watermark:  Boolean
1012 *OrderDependency: 65 AnySetup *KPWMLocation
1013 *DefaultKPWMLocation: False
1014 *KPWMLocation True/All Pages: "userdict /KPWMLocation true put"
1015 *KPWMLocation False/First Page Only: "userdict /KPWMLocation false put"
1016 *CloseUI: *KPWMLocation
1017
1018 *% ******************************************************************
1019 *%   ===== PPD Version information & warning (Kurt Pfeifle) ======
1020 *% ******************************************************************
1021
1022 *OpenUI *KPPPDInfo/About this Danka-enhanced PPD:  PickOne
1023 *OrderDependency: 65 AnySetup *KPPPDInfo
1024 *DefaultKPPPDInfo: KPModified
1025 *KPPPDInfo KPModified/PPD was modified by Kurt Pfeifle -- Danka DPD: ""
1026 *KPPPDInfo KPGuarantee/* no guarantee is provided whatsoever: ""
1027 *KPPPDInfo KPLimitation/* new functions might not work under all conditions: ""
1028 *KPPPDInfo KPDanger/* please do take your own precautions --: ""
1029 *KPPPDInfo KPWarning/   -- it does not prevent pregnancy nor AIDS: ""
1030 *CloseUI: *KPPPDInfo
1031
1032
1033 *% ************************************************************************
1034 *%                  F O N T    I N F O R M A T I O N
1035 *% ************************************************************************
1036 *ADHasEuro: True
1037 *DefaultFont: Courier
1038 *Font AdobeSansMM: Standard "(001.000)" Standard Disk
1039 *Font AdobeSerifMM: Standard "(001.001)" Standard Disk
1040 *Font AlbertusMT-Italic: Standard "(001.001)" Standard Disk
1041 *Font AlbertusMT-Light: Standard "(001.001)" Standard Disk
1042 *Font AlbertusMT: Standard "(001.001)" Standard Disk
1043 *Font AntiqueOlive-Bold: Standard "(001.002)" Standard Disk
1044 *Font AntiqueOlive-Compact: Standard "(001.002)" Standard Disk
1045 *Font AntiqueOlive-Italic: Standard "(001.002)" Standard Disk
1046 *Font AntiqueOlive-Roman: Standard "(001.002)" Standard Disk
1047 *Font Apple-Chancery: Standard "(3.0)" Standard Disk
1048 *Font Arial-BoldItalicMT: Standard "(001.002)" Standard Disk
1049 *Font Arial-BoldMT: Standard "(001.002)" Standard Disk
1050 *Font Arial-ItalicMT: Standard "(001.002)" Standard Disk
1051 *Font ArialMT: Standard "(001.002)" Standard Disk
1052 *Font AvantGarde-Book: Standard "(003.000)" Standard Disk
1053 *Font AvantGarde-BookOblique: Standard "(003.000)" Standard Disk
1054 *Font AvantGarde-Demi: Standard "(003.000)" Standard Disk
1055 *Font AvantGarde-DemiOblique: Standard "(003.000)" Standard Disk
1056 *Font Bodoni-Bold: Standard "(001.003)" Standard Disk
1057 *Font Bodoni-BoldItalic: Standard "(001.003)" Standard Disk
1058 *Font Bodoni-Italic: Standard "(001.003)" Standard Disk
1059 *Font Bodoni-Poster: Standard "(001.003)" Standard Disk
1060 *Font Bodoni-PosterCompressed: Standard "(001.002)" Standard Disk
1061 *Font Bodoni: Standard "(001.003)" Standard Disk
1062 *Font Bookman-Demi: Standard "(003.000)" Standard Disk
1063 *Font Bookman-DemiItalic: Standard "(003.000)" Standard Disk
1064 *Font Bookman-Light: Standard "(003.000)" Standard Disk
1065 *Font Bookman-LightItalic: Standard "(003.000)" Standard Disk
1066 *Font Carta: Special "(001.001)" Special Disk
1067 *Font Chicago: Standard "(3.0)" Standard Disk
1068 *Font Clarendon-Bold: Standard "(001.002)" Standard Disk
1069 *Font Clarendon-Light: Standard "(001.002)" Standard Disk
1070 *Font Clarendon: Standard "(001.002)" Standard Disk
1071 *Font CooperBlack-Italic: Standard "(001.004)" Standard Disk
1072 *Font CooperBlack: Standard "(001.004)" Standard Disk
1073 *Font Copperplate-ThirtyThreeBC: Standard "(001.003)" Standard Disk
1074 *Font Copperplate-ThirtyTwoBC: Standard "(001.003)" Standard Disk
1075 *Font Coronet-Regular: Standard "(001.001)" Standard Disk
1076 *Font Courier-Bold: Standard "(004.000)" Standard Disk
1077 *Font Courier-BoldOblique: Standard "(004.000)" Standard Disk
1078 *Font Courier-Oblique: Standard "(004.000)" Standard Disk
1079 *Font Courier: Standard "(004.000)" Standard Disk
1080 *Font Eurostile-Bold: Standard "(001.002)" Standard Disk
1081 *Font Eurostile-BoldExtendedTwo: Standard "(001.003)" Standard Disk
1082 *Font Eurostile-ExtendedTwo: Standard "(001.003)" Standard Disk
1083 *Font Eurostile: Standard "(001.003)" Standard Disk
1084 *Font Geneva: Standard "(3.0)" Standard Disk
1085 *Font GillSans-Bold: Standard "(001.002)" Standard Disk
1086 *Font GillSans-BoldCondensed: Standard "(001.002)" Standard Disk
1087 *Font GillSans-BoldItalic: Standard "(001.003)" Standard Disk
1088 *Font GillSans-Condensed: Standard "(001.002)" Standard Disk
1089 *Font GillSans-ExtraBold: Standard "(001.002)" Standard Disk
1090 *Font GillSans-Italic: Standard "(001.003)" Standard Disk
1091 *Font GillSans-Light: Standard "(001.002)" Standard Disk
1092 *Font GillSans-LightItalic: Standard "(001.003)" Standard Disk
1093 *Font GillSans: Standard "(001.003)" Standard Disk
1094 *Font Goudy-Bold: Standard "(001.003)" Standard Disk
1095 *Font Goudy-BoldItalic: Standard "(001.003)" Standard Disk
1096 *Font Goudy-ExtraBold: Standard "(001.002)" Standard Disk
1097 *Font Goudy-Italic: Standard "(001.003)" Standard Disk
1098 *Font Goudy: Standard "(001.004)" Standard Disk
1099 *Font Helvetica-Bold: Standard "(003.000)" Standard Disk
1100 *Font Helvetica-BoldOblique: Standard "(003.000)" Standard Disk
1101 *Font Helvetica-Condensed-Bold: Standard "(003.000)" Standard Disk
1102 *Font Helvetica-Condensed-BoldObl: Standard "(003.000)" Standard Disk
1103 *Font Helvetica-Condensed-Oblique: Standard "(003.000)" Standard Disk
1104 *Font Helvetica-Condensed: Standard "(003.000)" Standard Disk
1105 *Font Helvetica-Narrow-Bold: Standard "(003.000)" Standard Disk
1106 *Font Helvetica-Narrow-BoldOblique: Standard "(003.000)" Standard Disk
1107 *Font Helvetica-Narrow-Oblique: Standard "(003.000)" Standard Disk
1108 *Font Helvetica-Narrow: Standard "(003.000)" Standard Disk
1109 *Font Helvetica-Oblique: Standard "(003.000)" Standard Disk
1110 *Font Helvetica: Standard "(003.000)" Standard Disk
1111 *Font HoeflerText-Black: Standard "(1.0)" Unknown Disk
1112 *Font HoeflerText-BlackItalic: Standard "(1.0)" Unknown Disk
1113 *Font HoeflerText-Italic: Standard "(1.0)" Unknown Disk
1114 *Font HoeflerText-Ornaments: Special "(001.001)" Standard Disk
1115 *Font HoeflerText-Regular: Standard "(1.0)" Unknown Disk
1116 *Font JoannaMT-Bold: Standard "(001.001)" Standard Disk
1117 *Font JoannaMT-BoldItalic: Standard "(001.001)" Standard Disk
1118 *Font JoannaMT-Italic: Standard "(001.001)" Standard Disk
1119 *Font JoannaMT: Standard "(001.001)" Standard Disk
1120 *Font LetterGothic-Bold: Standard "(001.007)" Standard Disk
1121 *Font LetterGothic-BoldSlanted: Standard "(001.006)" Standard Disk
1122 *Font LetterGothic-Slanted: Standard "(001.005)" Standard Disk
1123 *Font LetterGothic: Standard "(001.005)" Standard Disk
1124 *Font LubalinGraph-Book: Standard "(001.004)" Standard Disk
1125 *Font LubalinGraph-BookOblique: Standard "(001.004)" Standard Disk
1126 *Font LubalinGraph-Demi: Standard "(001.004)" Standard Disk
1127 *Font LubalinGraph-DemiOblique: Standard "(001.004)" Standard Disk
1128 *Font Marigold: Standard "(001.001)" Standard Disk
1129 *Font MonaLisa-Recut: Standard "(001.001)" Standard Disk
1130 *Font Monaco: Standard "(3.0)" Standard Disk
1131 *Font NewCenturySchlbk-Bold: Standard "(003.000)" Standard Disk
1132 *Font NewCenturySchlbk-BoldItalic: Standard "(003.000)" Standard Disk
1133 *Font NewCenturySchlbk-Italic: Standard "(003.000)" Standard Disk
1134 *Font NewCenturySchlbk-Roman: Standard "(003.000)" Standard Disk
1135 *Font NewYork: Standard "(3.0)" Standard Disk
1136 *Font Optima-Bold: Standard "(001.007)" Standard Disk
1137 *Font Optima-BoldItalic: Standard "(001.001)" Standard Disk
1138 *Font Optima-Italic: Standard "(001.001)" Standard Disk
1139 *Font Optima: Standard "(001.006)" Standard Disk
1140 *Font Oxford: Standard "(001.001)" Standard Disk
1141 *Font Palatino-Bold: Standard "(003.000)" Standard Disk
1142 *Font Palatino-BoldItalic: Standard "(003.000)" Standard Disk
1143 *Font Palatino-Italic: Standard "(003.000)" Standard Disk
1144 *Font Palatino-Roman: Standard "(003.000)" Standard Disk
1145 *Font StempelGaramond-Bold: Standard "(001.003)" Standard Disk
1146 *Font StempelGaramond-BoldItalic: Standard "(001.003)" Standard Disk
1147 *Font StempelGaramond-Italic: Standard "(001.003)" Standard Disk
1148 *Font StempelGaramond-Roman: Standard "(001.003)" Standard Disk
1149 *Font Symbol: Special "(001.008)" Special Disk
1150 *Font Tekton: Standard "(001.002)" Standard Disk
1151 *Font Times-Bold: Standard "(003.000)" Standard Disk
1152 *Font Times-BoldItalic: Standard "(003.000)" Standard Disk
1153 *Font Times-Italic: Standard "(003.000)" Standard Disk
1154 *Font Times-Roman: Standard "(003.000)" Standard Disk
1155 *Font TimesNewRomanPS-BoldItalicMT: Standard "(001.003)" Standard Disk
1156 *Font TimesNewRomanPS-BoldMT: Standard "(001.003)" Standard Disk
1157 *Font TimesNewRomanPS-ItalicMT: Standard "(001.003)" Standard Disk
1158 *Font TimesNewRomanPSMT: Standard "(001.003)" Standard Disk
1159 *Font Univers-Bold: Standard "(001.004)" Standard Disk
1160 *Font Univers-BoldExt: Standard "(001.001)" Standard Disk
1161 *Font Univers-BoldExtObl: Standard "(001.001)" Standard Disk
1162 *Font Univers-BoldOblique: Standard "(001.004)" Standard Disk
1163 *Font Univers-Condensed: Standard "(001.003)" Standard Disk
1164 *Font Univers-CondensedBold: Standard "(001.002)" Standard Disk
1165 *Font Univers-CondensedBoldOblique: Standard "(001.002)" Standard Disk
1166 *Font Univers-CondensedOblique: Standard "(001.003)" Standard Disk
1167 *Font Univers-Extended: Standard "(001.001)" Standard Disk
1168 *Font Univers-ExtendedObl: Standard "(001.001)" Standard Disk
1169 *Font Univers-Light: Standard "(001.004)" Standard Disk
1170 *Font Univers-LightOblique: Standard "(001.004)" Standard Disk
1171 *Font Univers-Oblique: Standard "(001.004)" Standard Disk
1172 *Font Univers: Standard "(001.004)" Standard Disk
1173 *Font Wingdings-Regular: Special "(002.000)" Special Disk
1174 *Font ZapfChancery-MediumItalic: Standard "(003.000)" Standard Disk
1175 *Font ZapfDingbats: Special "(002.000)" Special Disk
1176
1177 *?FontQuery: "
1178  save
1179    { count 1 gt
1180       { exch dup 127 string cvs (/) print print (:) print
1181         /Font resourcestatus {pop pop (Yes)} {(No)} ifelse =
1182       } { exit } ifelse
1183    } bind loop
1184    (*) = flush
1185  restore"
1186 *End
1187 *?FontList: "
1188 save
1189   (*) {cvn ==} 128 string /Font resourceforall
1190   (*) = flush
1191 restore"
1192 *End
1193
1194 *%  ************************************************************************
1195 *%
1196 *%  Last Edit Date:  03-05-2003  Kurt Pfeifle (-kp-), DANKA Europe Ltd.
1197 *%  End of PPD file for DANKA PostScript Merge Filter
1198 *%
1199 *%  ************************************************************************
1200 *%             E N D    O F    P P D
1201 *%  ************************************************************************