sys/lib/ghostscript/gs_pdfwr.ps

   1 %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
   2 %
   3 % This software is provided AS-IS with no warranty, either express or
   4 % implied.
   5 %
   6 % This software is distributed under license and may not be copied,
   7 % modified or distributed except as expressly authorized under the terms
   8 % of the license contained in the file LICENSE in this distribution.
   9 %
  10 % For more information about licensing, please refer to
  11 % http://www.ghostscript.com/licensing/. For information on
  12 % commercial licensing, go to http://www.artifex.com/licensing/ or
  13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14 % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15
  16 % $Id: gs_pdfwr.ps,v 1.52 2005/10/20 13:04:16 leonardo Exp $
  17 % PDF writer additions to systemdict.
  18
  19 % This file should be included iff the pdfwrite "device" is included
  20 % in the executable.
  21
  22 % ---------------- Predefined configurations ---------------- %
  23
  24 % These correspond to the 4 predefined settings in Acrobat Distiller 5,
  25 % plus a "default" setting that doesn't downsample images.
  26
  27 /.a2112 [2 1 1 2] readonly def
  28 /.a1111 [1 1 1 1] readonly def
  29 /.standardfonts [
  30   /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique
  31   /Helvetica /Helvetica-Bold /Helvetica-Oblique /Helvetica-BoldOblique
  32   /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic
  33   /Symbol /ZapfDingbats
  34 ] readonly def
  35
  36 % Parameters common to all non-default configurations.
  37 % Note that the default configuration overrides a few of these.
  38 /.defaultImageDict mark
  39   /QFactor 0.9 /Blend 1
  40   /HSamples .a2112 /VSamples .a2112
  41 .dicttomark readonly def
  42 /.distillercommon mark
  43   /AlwaysEmbed []
  44   /AntiAliasColorImages false
  45   /AntiAliasGrayImages false
  46   /AntiAliasMonoImages false
  47   /ASCII85EncodePages false
  48   /AutoFilterColorImages true
  49   /AutoFilterGrayImages true
  50   /AutoPositionEPSFiles true
  51   /Binding /Left
  52   /CalCMYKProfile (None)                % (U.S. Web Coated (SWOP) v2)
  53   /CalGrayProfile (None)                % (Dot Gain 20%)
  54   /CalRGBProfile (None)                 % (sRGB IEC61966-2.1)
  55   /ColorImageDepth -1
  56   /ColorImageDict .defaultImageDict
  57   /ColorImageDownsampleThreshold 1.5
  58   /ColorImageFilter /DCTEncode
  59   /CompressPages true
  60   /ConvertImagesToIndexed true
  61   /DefaultRenderingIntent /Default
  62   /DetectBlends true
  63   /DownsampleColorImages true
  64   /DownsampleGrayImages true
  65   /DownsampleMonoImages true
  66   /EmitDSCWarnings false
  67   /EncodeColorImages true
  68   /EncodeGrayImages true
  69   /EncodeMonoImages true
  70   /EndPage -1
  71   /GrayImageDepth -1
  72   /GrayImageDict .defaultImageDict
  73   /GrayImageDownsampleThreshold 1.5
  74   /GrayImageFilter /DCTEncode
  75   /ImageMemory 524288
  76   /LockDistillerParams false
  77   /MaxSubsetPct 100
  78   /MonoImageDepth -1
  79   /MonoImageDict mark
  80     /K -1
  81   .dicttomark readonly
  82   /MonoImageDownsampleThreshold 1.5
  83   /MonoImageFilter /CCITTFaxEncode
  84   /OffOptimizations 0
  85   /OPM 1
  86   /Optimize true
  87   /ParseDSCComments true
  88   /ParseDSCCommentsForDocInfo true
  89   /PreserveCopyPage true
  90   /PreserveHalftoneInfo false
  91   /sRGBProfile (None)                   % (sRGB IEC61966-2.1)
  92   /StartPage 1
  93   /SubsetFonts true
  94   /TransferFunctionInfo /Preserve
  95   /UseFlateCompression true
  96   /UsePrologue false
  97 .dicttomark readonly def
  98
  99 /.distillersettings mark
 100
 101 /default mark
 102   /AutoRotatePages /PageByPage
 103   /CannotEmbedFontPolicy /Warning
 104   /ColorACSImageDict .defaultImageDict
 105   /ColorConversionStrategy /LeaveColorUnchanged
 106 %  /ColorImageDownsampleType
 107 %  /ColorImageResolution
 108 %  /CompatibilityLevel
 109   /CreateJobTicket false
 110   /DoThumbnails false
 111   /DownsampleColorImages false          % override
 112   /DownsampleGrayImages false           % override
 113   /DownsampleMonoImages false           % override
 114   /EmbedAllFonts true
 115   /GrayACSImageDict .defaultImageDict
 116 %  /GrayImageDownsampleType
 117 %  /GrayImageResolution
 118 %  /MonoImageDownsampleType
 119 %  /MonoImageResolution
 120   /NeverEmbed .standardfonts
 121   /Optimize false                       % override
 122   /PreserveEPSInfo true
 123   /PreserveOPIComments true
 124   /PreserveOverprintSettings true
 125   /UCRandBGInfo /Preserve
 126 .dicttomark readonly
 127
 128 /.screenACSImageDict mark
 129   /QFactor 0.76 /Blend 1 /ColorTransform 1
 130   /HSamples .a2112 /VSamples .a2112
 131 .dicttomark readonly def
 132 /screen mark
 133   /AutoRotatePages /PageByPage
 134 %  /CalGrayProfile (None)
 135   /CannotEmbedFontPolicy /Warning
 136   /ColorACSImageDict .screenACSImageDict
 137   /ColorConversionStrategy /sRGB
 138   /ColorImageDownsampleType /Average
 139   /ColorImageResolution 72
 140   /CompatibilityLevel 1.3
 141   /CreateJobTicket false
 142   /DoThumbnails false
 143   /EmbedAllFonts true
 144   /GrayACSImageDict .screenACSImageDict
 145   /GrayImageDownsampleType /Average
 146   /GrayImageResolution 72
 147   /MonoImageDownsampleType /Average
 148   /MonoImageResolution 300
 149   /NeverEmbed .standardfonts
 150   /PreserveEPSInfo false
 151   /PreserveOPIComments false
 152   /PreserveOverprintSettings false
 153   /UCRandBGInfo /Remove
 154 .dicttomark readonly
 155
 156 /ebook mark
 157   /AutoRotatePages /All
 158 %  /CalGrayProfile (None)
 159   /CannotEmbedFontPolicy /Warning
 160   /ColorACSImageDict .screenACSImageDict
 161   /ColorConversionStrategy /sRGB
 162   /ColorImageDownsampleType /Bicubic
 163   /ColorImageResolution 150
 164   /CompatibilityLevel 1.4
 165   /CreateJobTicket false
 166   /DoThumbnails false
 167   /EmbedAllFonts true
 168   /GrayACSImageDict .screenACSImageDict
 169   /GrayImageDownsampleType /Bicubic
 170   /GrayImageResolution 150
 171   /MonoImageDownsampleType /Bicubic
 172   /MonoImageResolution 300
 173   /NeverEmbed .standardfonts
 174   /PreserveEPSInfo false
 175   /PreserveOPIComments false
 176   /PreserveOverprintSettings false
 177   /UCRandBGInfo /Remove
 178 .dicttomark readonly
 179
 180 /.printerACSImageDict mark
 181   /QFactor 0.4 /Blend 1 /ColorTransform 1
 182   /HSamples .a1111 /VSamples .a1111
 183 .dicttomark readonly def
 184 /printer mark
 185   /AutoRotatePages /None
 186 %  /CalGrayProfile (None)
 187   /CannotEmbedFontPolicy /Warning
 188   /ColorACSImageDict .printerACSImageDict
 189   /ColorConversionStrategy /UseDeviceIndependentColor
 190   /ColorImageDownsampleType /Bicubic
 191   /ColorImageResolution 300
 192   /CompatibilityLevel 1.4
 193   /CreateJobTicket true
 194   /DoThumbnails false
 195   /EmbedAllFonts true
 196   /GrayACSImageDict .printerACSImageDict
 197   /GrayImageDownsampleType /Bicubic
 198   /GrayImageResolution 300
 199   /MonoImageDownsampleType /Bicubic
 200   /MonoImageResolution 1200
 201   /NeverEmbed []
 202   /PreserveEPSInfo true
 203   /PreserveOPIComments true
 204   /PreserveOverprintSettings true
 205   /UCRandBGInfo /Preserve
 206 .dicttomark readonly
 207
 208 /.prepressACSImageDict mark
 209   /QFactor 0.15 /Blend 1 /ColorTransform 1
 210   /HSamples .a1111 /VSamples .a1111
 211 .dicttomark readonly def
 212 /prepress mark
 213   /AutoRotatePages /None
 214   /CannotEmbedFontPolicy /Error
 215   /ColorACSImageDict .prepressACSImageDict
 216   /ColorConversionStrategy /LeaveColorUnchanged
 217   /ColorImageDownsampleType /Bicubic
 218   /ColorImageResolution 300
 219   /CompatibilityLevel 1.4
 220   /CreateJobTicket true
 221   /DoThumbnails true
 222   /EmbedAllFonts true
 223   /GrayACSImageDict .prepressACSImageDict
 224   /GrayImageDownsampleType /Bicubic
 225   /GrayImageResolution 300
 226   /MonoImageDownsampleType /Bicubic
 227   /MonoImageResolution 1200
 228   /NeverEmbed []
 229   /PreserveEPSInfo true
 230   /PreserveOPIComments true
 231   /PreserveOverprintSettings true
 232   /UCRandBGInfo /Preserve
 233 .dicttomark readonly
 234
 235 % Define distiller settings for the ps2write device and for the ps2ps2 script :
 236 /PSL2Printer mark
 237   /AutoRotatePages /None
 238   /CannotEmbedFontPolicy /Error
 239   /ColorACSImageDict .prepressACSImageDict
 240   /ColorConversionStrategy /LeaveColorUnchanged
 241   /ColorImageDownsampleType /Bicubic
 242   /ColorImageResolution 600
 243   /CompatibilityLevel 1.2 % Always 1.2 with ps2write.
 244   % /CreateJobTicket true % Not sure
 245   /DoThumbnails false
 246   /EmbedAllFonts true
 247   /GrayACSImageDict .prepressACSImageDict
 248   /GrayImageDownsampleType /Bicubic
 249   /GrayImageResolution 600
 250   /MonoImageDownsampleType /Bicubic
 251   /MonoImageResolution 1200
 252   /NeverEmbed []
 253   /PreserveEPSInfo true
 254   /PreserveOPIComments true
 255   /PreserveOverprintSettings true
 256   /UCRandBGInfo /Preserve
 257
 258   /PreserveHalftoneInfo true
 259   /TransferFunctionInfo /Preserve
 260   /MaxViewerMemorySize 8000000
 261   /CompressPages false
 262   /CompressFonts false
 263   /ASCII85EncodePages true
 264 .dicttomark readonly
 265
 266 .dicttomark readonly def
 267
 268 % ---------------- End of predefined configurations ---------------- %
 269
 270 % Set optimizations for converting PostScript to PDF.
 271 % The ps2pdf* scripts invoke this.
 272 /.setpdfwrite {         % - .setpdfwrite -
 273                 % Set a large VM threshold to reduce garbage collection.
 274   currentuserparams /VMThreshold get 3000000 .max setvmthreshold
 275 } bind def
 276
 277 % ---------------- pdfmark and DSC processing ---------------- %
 278
 279 /.write_small_positive_real  % <file> <real> .write_small_positive_real -
 280 { % The argument must be grater than 0 and must be strongly samller than 0.1.
 281   % The conversion isn't simple due to the low (24 bits) precision
 282   % of the floating point arithmetics in Postscript.
 283   % For best result we first use the 1e8 factor since its binary
 284   % representation 101111101011110000100000000 well rounds into 14 significant
 285   % bits :         101111101011110000000000000 .
 286   1 index (.) writestring
 287   { dup 100000000 mul
 288     dup 10 mul 1 ge {
 289       % Will need not greater than 0.1 due to a rounding below.
 290       pop exit
 291     } if
 292     exch pop
 293     1 index (00000000) writestring
 294   } loop
 295   % Now it is not smaller than 1e-9, use simple digitizing.
 296   { dup 10 mul
 297     dup 10 mul 1 ge {
 298       pop exit
 299     } if
 300     exch pop
 301     1 index (0) writestring
 302   } loop
 303   % Now 0.01 <= n < 0.1, but rounding may give 0.1 .
 304   % Convert to integer with 7 digits precision :
 305   100000000 % precision factor 1e8       % f n r
 306   dup 10 idiv 3 1 roll mul 0.5 add cvi   % f r' N
 307   2 copy le {
 308     % The rounding overflows, suppress it.
 309     % Note it carries out an additional digit,
 310     % that's why we needed <0.1 above.
 311     pop pop (1) writestring
 312   } {
 313     % Didn't cary out, put 0.
 314     2 index (0) writestring
 315     exch                                 % f N r
 316     % Continue the simple digitizing :
 317     { 10 idiv dup                        % f N r' r'
 318       2 index exch idiv                  % f N r' d
 319       (0123456789) exch 1 getinterval    % f N r' (d)
 320       3 index exch writestring           % f N r'
 321       dup 3 2 roll exch mod              % f r' N'
 322       dup 0 eq {
 323         % Don't write trailing zeros.
 324         exit
 325       } if
 326       exch                               % f N' r'
 327     } loop
 328     pop pop pop
 329   } ifelse
 330 } bind def
 331
 332 % Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
 333 /.pdf===dict mark
 334   /arraytype
 335    { dup xcheck { ({) (}) } { ([) (]) } ifelse
 336                 % Stack: file obj left right
 337       4 1 roll 2 index exch writestring () exch
 338        { exch 2 index exch writestring
 339          1 index exch pdf===only ( )
 340        }
 341       forall pop exch writestring
 342    } bind
 343   /packedarraytype 1 index
 344   /dicttype
 345    { 1 index (<<\n) writestring
 346       { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
 347         1 index exch pdf===only dup (\n) writestring
 348       }
 349      forall (>>) writestring
 350    } bind
 351   /nametype {
 352     % If the name string includes any non-regular characters,
 353     % write it with two preceding and one following null character(s).
 354     % (Null characters in the name itself are not allowed.)
 355     % This non-standard escape convention is required for passing names
 356     % that include non-regular characters, because PostScript provides
 357     % no way to do this.  The pdf_scan_token procedure in the C code of
 358     % the pdfwrite driver is currently the only place that recognizes
 359     % this convention.
 360     dup .namestring (\000\011\012\014\015 %()/<>[]{}) .stringbreak null ne {
 361       dup .namestring (\000) .stringbreak null ne {
 362         /rangecheck signalerror
 363       } if
 364       1 index <0000> writestring 1 index exch write===only 0 write
 365     } {
 366       write===only
 367     } ifelse
 368   } bind
 369   /realtype {
 370     % Prevent using floating point format - see Bug 688167.
 371     dup dup 0 lt { neg } if 0.01 lt {
 372       dup 0 eq {
 373         pop (0) writestring
 374       } {
 375         dup 0 lt {
 376           1 index (-) writestring neg
 377         } if
 378         .write_small_positive_real
 379       } ifelse
 380     } {
 381       write===only
 382     } ifelse
 383   } bind
 384 .dicttomark readonly def
 385 /pdf===only {   % <file> <obj> pdf===only -
 386   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
 387 } bind def
 388 /.pdfcvbuf 30 string def        % enough for most arguments
 389 userdict /.pdfcvstring () put
 390 /.pdfcvs {              % <obj> .pdfcvs <string>
 391   currentglobal exch false .setglobal
 392   /.pdfcvstring () store
 393                 % We can't handle long values yet.
 394   { pop dup length 0 eq { pop } {
 395       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
 396     } ifelse //.pdfcvbuf
 397   } /NullEncode filter dup 3 -1 roll pdf===only
 398   closefile
 399   .setglobal .pdfcvstring
 400 } bind def
 401
 402 % Redefine pdfmark to pass the data to the driver.
 403 % We use a pseudo-parameter named /pdfmark whose value is an array:
 404 %       /key1 (value1) ... (CTM) /type
 405 /.pdfputparams {        % -mark- <key1> <value1> ... .pdfputparams <result...>
 406   currentdevice null false counttomark 1 add 3 roll
 407                 % Don't allow the page device to get cleared....
 408   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
 409 } bind def
 410 % Convert relevant operands to strings in an array.
 411 /.pdfcvsloop {          % -mark- values ... markname start step .pdfcvsloop
 412                         %   [values ... ctm markname]
 413    matrix currentmatrix .pdfcvs 4 1 roll
 414    counttomark 1 add 2 roll
 415    counttomark .localvmarray astore exch pop
 416    3 1 roll
 417                         % Stack: values start step
 418    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
 419 } bind def
 420 /.pdfcvsall {           % -mark- values ... markname .pdfcvsall <<same>>
 421   0 1 .pdfcvsloop
 422 } bind def
 423 /.pdfcvseven {          % -mark- key value ... markname .pdfcvseven <<same>>
 424   1 2 .pdfcvsloop
 425 } bind def
 426 /.pdfcvsnone {          % -mark- values ... markname .pdfcvsnone <<same>>
 427   100000 1 .pdfcvsloop
 428 } bind def
 429 /.pdfcvsfirst {         % -mark- first values ... markname .pdfcvsfirst<<same>>
 430   .pdfcvsnone
 431   dup 0 2 copy get .pdfcvs put
 432 } bind def
 433 % The procedures in the following dictionary are called with the entire
 434 % pdfmark operand list (including the pdfmark name) on the stack;
 435 % they may modify this ad lib.  They must call .pdfcvsxxx.
 436 /.pdfmarkparams mark
 437         % Unpack a dictionary for PUT, and don't convert stream data.
 438   /PUT {
 439     counttomark 3 eq {
 440       1 index type /dicttype eq {
 441         pop { } forall /.PUTDICT .pdfcvsall
 442       } {
 443         pop dup type /filetype eq {
 444                 % Read the file into a sequence of strings.
 445                 % This isn't great, but it's simple.
 446           {
 447             dup 64000 string readstring not { exch exit } if
 448             exch
 449           } loop closefile
 450         } if
 451         /.PUTSTREAM .pdfcvsfirst
 452       } ifelse
 453     } {
 454       .pdfcvsall
 455     } ifelse
 456   } bind
 457         % Unpack the array for PUTINTERVAL.
 458   /PUTINTERVAL {
 459     pop aload pop /.PUTINTERVAL .pdfcvsall
 460   } bind
 461 .dicttomark readonly def
 462 /.pdfparamerror {       % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
 463     counttomark 4 add 2 roll cleartomark pop pop pop
 464     .systemvar exch signalerror
 465 } bind def
 466 /pdfmark {              % -mark- <key> <value> ... <markname> pdfmark -
 467   dup /SP eq {
 468     % A hack for synchronizing the clipping path.
 469     gsave
 470     [1 0 0 1 0 0] setmatrix 0 setlinewidth
 471     newpath -3 -3 moveto closepath stroke % Paints outside the device bbox.
 472     grestore
 473   } if
 474   dup /PS eq systemdict /PDFX .knownget not { false } if and {
 475     % Execute it since PDF/X doesn't allow to embed it.
 476     { dup mark eq {
 477         pop exit
 478       } if
 479       1 index /DataSource eq {
 480         cvx exec
 481       } {
 482         pop pop
 483       } ifelse
 484     } loop
 485   } {
 486     counttomark 1 add copy
 487     //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
 488     mark /pdfmark 3 -1 roll .pdfputparams
 489     dup type /booleantype ne {
 490       /pdfmark .pdfparamerror
 491     } if cleartomark
 492   } ifelse
 493 } odef
 494 userdict /pdfmark .undef
 495 currentdict /.pdfmarkparams .undef
 496
 497
 498 %       <dict> .hook_DSC_Creator -
 499 /.pdf_hook_DSC_Creator
 500 {
 501   % If the Creator is PScript5.dll, disable the 32 /FontType resource for
 502   % handling GlyphNames2Unicode. Since /FontType category can't redefine,
 503   % we can do only with redefining the operator 'resourcestatus'.
 504   currentdevice .devicename /pdfwrite eq {
 505     /Creator .knownget {
 506       (PScript5.dll) search {
 507         pop pop
 508         systemdict /resourcestatus dup
 509         { dup /FontType eq 2 index 32 eq and {
 510             pop pop false
 511           } {
 512             resourcestatus
 513           } ifelse
 514         } bind .makeoperator .forceput
 515       } if
 516       pop
 517     } if
 518   } {
 519     pop
 520   } ifelse
 521 }
 522 bind def
 523
 524 % Use the DSC processing hook to pass DSC comments to the driver.
 525 % We use a pseudo-parameter named DSC whose value is an array:
 526 %       /key1 (value1) ... /type
 527 /.pdfdsc_dict 2 dict def
 528 /.pdfdsc {      % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
 529   0 get dup null ne { 4 copy exch pop exec pop } { pop } ifelse 3 -1 roll pop
 530                 % Stack: <dsc string> <dsc dict>
 531   20 .localvmdict 1 index { 3 copy put pop pop } forall
 532   3 -1 roll .parse_dsc_comments % <dsc dict> <dict> <type>
 533   1 index //.pdf_hook_DSC_Creator exec
 534   dup /NOP ne 2 index length 1 gt or {  % Skip unparsed comments
 535     PDFWRDEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
 536     exch mark 4 1 roll {
 537                 % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
 538       3 index 2 index known {   % Skip the DSC_struct entry
 539         pop pop
 540       } {
 541         .pdfcvs 4 -2 roll
 542       } ifelse
 543     } forall exch pop counttomark .localvmarray astore
 544     mark /DSC 3 -1 roll .pdfputparams
 545     dup type /booleantype ne {
 546       /DSC .pdfparamerror
 547     } {
 548       cleartomark
 549     } ifelse
 550   } {
 551     pop pop pop
 552   } ifelse
 553 } bind def
 554 currentdict /.pdf_hook_DSC_Creator undef
 555 /.initialize_dsc_parser where {
 556   pop
 557   3000 % priority
 558   {
 559     currentglobal true setglobal
 560     2 dict dup .initialize_dsc_parser readonly
 561     currentuserparams /ProcessDSCComment get
 562     1 array astore      % in case the value is executable
 563     //.pdfdsc /exec load 4 array astore cvx readonly
 564     << /ProcessDSCComment 3 -1 roll >> setuserparams
 565     setglobal
 566   } bind .schedule_init
 567 } if
 568
 569 % ---------------- {set,current}distillerparams ---------------- %
 570
 571 % Define setdistillerparams / currentdistillerparams.
 572 % Distiller parameters are currently treated as device parameters.
 573 /.distillerparamkeys mark
 574                 % General parameters -- all distillers
 575   /ASCII85EncodePages { }
 576   /AutoRotatePages { }
 577   /Binding { }
 578   /CompressPages { }
 579   /DefaultRenderingIntent { }
 580   /DetectBlends { }
 581   /DoThumbnails { }
 582   /ImageMemory { }
 583   /LockDistillerParams { }
 584   /LZWEncodePages { }
 585   /OPM { }
 586   /PreserveHalftoneInfo { }
 587   /PreserveOPIComments { }
 588   /PreserveOverprintSettings { }
 589   /TransferFunctionInfo { }
 590   /UCRandBGInfo { }
 591   /UseFlateCompression { }
 592                 % General parameters -- PDF writer
 593                 % StartPage and EndPage are renamed because EndPage
 594                 % clashes with a page device parameter.
 595   /CoreDistVersion { }
 596   /CompatibilityLevel { }
 597                 % ****** NOTE: StartPage and EndPage are disabled because
 598                 % ****** EndPage clashes with a page device parameter.
 599 %  /EndPage { exch pop /PDFEndPage exch }
 600     /PDFEndPage { pop pop }
 601 %  /StartPage { exch pop /PDFStartPage exch }
 602     /PDFStartPage { pop pop }
 603   /Optimize { }
 604   /ParseDSCCommentsForDocInfo { }
 605   /ParseDSCComments { }
 606   /EmitDSCWarnings { }
 607   /CreateJobTicket { }
 608   /PreserveEPSInfo { }
 609   /AutoPositionEPSFiles { }
 610   /PreserveCopyPage { }
 611   /UsePrologue { }
 612   /OffOptimizations { }
 613                 % Color sampled image parameters
 614   /ColorACSImageDict { }
 615   /AntiAliasColorImages { }
 616   /AutoFilterColorImages { }
 617   /ColorImageDepth { }
 618   /ColorImageDict { }
 619   /DownsampleColorImages { }
 620   /ColorImageDownsampleThreshold { }
 621   /ColorImageDownsampleType { }
 622   /EncodeColorImages { }
 623   /ColorImageFilter { }
 624   /ColorImageResolution { }
 625                 % Color processing parameters
 626   /CalCMYKProfile { }
 627   /CalGrayProfile { }
 628   /CalRGBProfile { }
 629   /sRGBProfile { }
 630   /ColorConversionStrategy { }
 631   /ConvertCMYKImagesToRGB { }
 632   /ConvertImagesToIndexed { }
 633                 % Grayscale sampled image parameters
 634   /GrayACSImageDict { }
 635   /AntiAliasGrayImages { }
 636   /AutoFilterGrayImages { }
 637   /GrayImageDepth { }
 638   /GrayImageDict { }
 639   /DownsampleGrayImages { }
 640   /GrayImageDownsampleThreshold { }
 641   /GrayImageDownsampleType { }
 642   /EncodeGrayImages { }
 643   /GrayImageFilter { }
 644   /GrayImageResolution { }
 645                 % Monochrome sampled image parameters
 646   /AntiAliasMonoImages { }
 647   /MonoImageDepth { }
 648   /MonoImageDict { }
 649   /DownsampleMonoImages { }
 650   /MonoImageDownsampleThreshold { }
 651   /MonoImageDownsampleType { }
 652   /EncodeMonoImages { }
 653   /MonoImageFilter { }
 654   /MonoImageResolution { }
 655                 % Font embedding parameters
 656   /AlwaysEmbed
 657    { dup length 0 gt
 658       { dup 0 get false eq
 659          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
 660          } if
 661       } if
 662    }
 663   /NeverEmbed
 664    { dup length 0 gt
 665       { dup 0 get false eq
 666          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
 667          } if
 668       } if
 669    }
 670   /CannotEmbedFontPolicy { }
 671   /EmbedAllFonts { }
 672   /MaxSubsetPct { }
 673   /SubsetFonts { }
 674 .dicttomark readonly def
 675 /.distillerdevice
 676  { currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or
 677     { currentdevice }
 678     { /pdfwrite finddevice }
 679    ifelse
 680  } bind def
 681
 682 % Some badly designed PostScript files only expect the current/set
 683 % distillerparams operators to exist in a distiller. Since we have
 684 % this as a runtime option, we enable these operators IFF the
 685 % currentdevice is pdfwrite. Also, we mask their existence in
 686 % systemdict so that 'where' and 'known' don't show them unless
 687 % the currentdevice is pdfwrite.
 688 /.setdistillerparams {          % <dict> setdistillerparams -
 689   .distillerdevice //null false mark 4 index {
 690     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
 691   } forall .putdeviceparamsonly
 692   dup type /booleantype ne {
 693     /setdistillerparams .pdfparamerror
 694   } {
 695     pop pop pop
 696   } ifelse
 697 } odef
 698 /.currentdistillerparams {      % - currentdistillerparams <dict>
 699   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
 700                 % Patch StartPage and EndPage
 701                 % ****** NOTE: StartPage and EndPage are disabled because
 702                 % ****** EndPage clashes with a page device parameter.
 703 %  begin /StartPage PDFStartPage /EndPage PDFEndPage
 704 %  currentdict dup /PDFStartPage undef /PDFEndPage undef
 705 %  def def currentdict end
 706 } odef
 707 /setdistillerparams {
 708   currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and {
 709     /setdistillerparams /undefined signalerror
 710   } if
 711   .setdistillerparams
 712 } bind odef
 713 /currentdistillerparams {
 714   currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and {
 715     /currentdistillerparams /undefined signalerror
 716   } if
 717   .currentdistillerparams
 718 } bind odef
 719
 720 % Patch 'where' so that the distiller operators are only visible
 721 % if the pdfwrite device is the current one.
 722 { currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or{
 723     .where
 724   } {
 725     .where pop dup //systemdict eq { pop false } { true } ifelse
 726   } ifelse
 727 } bind
 728 { /currentdistillerparams /setdistillerparams /pdfmark }
 729 { .wheredict exch 2 index put } forall pop
 730
 731 % Patch 'known' to hide the systemdict version of distiller operators
 732 % unless the currentdevice is pdfwrite.
 733 /known {
 734   /currentdistillerparams 1 index eq /setdistillerparams 2 index eq or
 735   /pdfmark 2 index eq or {
 736     systemdict 2 index eq {     % only mask the operator in systemdict
 737       known currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and { pop false } if
 738   } {
 739     known
 740   } ifelse
 741   } {
 742     known
 743   } ifelse
 744 } .bind odef
 745
 746 1000 % priority
 747 {
 748   % Note, this may not work if the initial device is not pdfwrite
 749   % and may require the use of -dProvideUnicode on the command line.
 750   currentdevice .devicename /pdfwrite eq
 751   systemdict /ProvideUnicode .knownget not { false } if or {
 752     currentglobal true setglobal
 753     systemdict /.setupUnicodeDecoder known {
 754       /Unicode /Decoding resourcestatus {
 755         pop pop
 756         /Unicode /Decoding findresource
 757         .setupUnicodeDecoder
 758       } {
 759         QUIET not {
 760           (WARNING: /Unicode /Decoding resource is not accessible but it is useful for generating ToUnicode CMap.) =
 761         } if
 762       } ifelse
 763     } if
 764     setglobal
 765   } if
 766 } bind .schedule_init
 767
 768 1010 % priority
 769 {
 770     % Set a predefined configuration in the distiller device (pdfwrite)
 771     /PDFSETTINGS where {
 772       pop /PDFSETTINGS load
 773     } {
 774       currentdevice .devicename /ps2write eq { /PSL2Printer } { /default } ifelse
 775     } ifelse
 776     .distillersettings exch get
 777     % Don't override parameters defined on the command line.
 778     dup length .distillercommon length add dict begin
 779     .distillercommon 2 {
 780       {
 781         systemdict 2 index known { pop pop } { def } ifelse
 782       } forall
 783     } repeat
 784     currentdict end .setdistillerparams
 785     .distillerdevice //null false mark .putdeviceparams
 786     dup type /booleantype eq not { cleartomark pop } if pop pop
 787 } bind .schedule_init
 788
 789 1011 % priority
 790 {
 791     % Set a path to library files (ps2write)
 792     currentdevice .devicename /ps2write eq {
 793       mark
 794       systemdict /OPDFReadProcsetPath .knownget not {
 795         (gs_mgl_e.ps) (gs_mro_e.ps) (gs_agl.ps) (opdfread.ps) % Reverse order !
 796         () counttomark 1 sub {
 797           exch
 798           .libfile { .filename } { false } ifelse not {
 799             (Configuration error : library file opdfread.ps not found !) =
 800             (opdfread.ps) /undefinedfilename signalerror
 801           } if
 802           .filenamelistseparator concatstrings concatstrings
 803         } repeat
 804       } if
 805       /OPDFReadProcsetPath exch .dicttomark setpagedevice
 806    } if
 807 } bind .schedule_init
 808
 809 2000 % priority
 810 { % Note, this may not work if the initial device is not pdfwrite
 811   currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or {
 812     % Inform the device with initial graphic state. See gdev_pdf_fill_path.
 813     newpath fill
 814   } if
 815 } bind .schedule_init