home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / pdf / download / gs704w32.exe / gs7.04 / lib / gs_pdfwr.ps < prev    next >
Encoding:
Text File  |  2002-01-31  |  15.7 KB  |  497 lines
  1. %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: gs_pdfwr.ps,v 1.11 2001/05/04 20:59:33 alexcher Exp $
  19. % PDF writer additions to systemdict.
  20.  
  21. % This file should be included iff the pdfwrite "device" is included
  22. % in the executable.
  23.  
  24. % ---------------- Predefined configurations ---------------- %
  25.  
  26. % These correspond to the 3 predefined settings in Acrobat Distiller 4,
  27. % plus a "default" setting.
  28.  
  29. % Parameters common to all configurations.
  30. % Note that we don't set AlwaysEmbed or NeverEmbed, since the default values
  31. % depend on the CompatibilityLevel and are initialized internally.
  32. /.defaultImageDict mark
  33.   /QFactor 0.9 /Blend 1
  34.   /HSamples [2 1 1 2] /VSamples [2 1 1 2]
  35. .dicttomark readonly def
  36. /.distillercommon mark
  37.   /ASCII85EncodePages false
  38.   /AntiAliasColorImages false
  39.   /AntiAliasGrayImages false
  40.   /AntiAliasMonoImages false
  41.   /AutoFilterColorImages true
  42.   /AutoFilterGrayImages true
  43.   /AutoFilterMonoImages true
  44.   /AutoPositionEPSFiles true
  45.   /Binding /Left
  46.     % What to do about the CalxxxProfiles?
  47.   /ColorACSImageDict .defaultImageDict
  48.   /ColorImageDepth -1
  49.   /ColorImageDict .defaultImageDict
  50.   /ColorImageDownsampleThreshold 1.5
  51.   /ColorImageFilter /DCTEncode
  52.   /CompressPages true
  53.   /ConvertImagesToIndexed true
  54.   /DefaultRenderingIntent /Default
  55.   /DetectBlends true
  56.   /DownsampleColorImages true
  57.   /DownsampleGrayImages true
  58.   /DownsampleMonoImages true
  59.   /EmitDSCWarnings false
  60.   /EncodeColorImages true
  61.   /EncodeGrayImages true
  62.   /EncodeMonoImages true
  63.   /EndPage -1
  64.   /GrayACSImageDict .defaultImageDict
  65.   /GrayImageDepth -1
  66.   /GrayImageDict .defaultImageDict
  67.   /GrayImageDownsampleThreshold 1.5
  68.   /GrayImageFilter /DCTEncode
  69.   /ImageMemory 500000
  70.   /LockDistillerParams false
  71.   /MaxSubsetPct 100
  72.   /MonoImageDepth -1
  73.   /MonoImageDict mark
  74.     /K -1
  75.   .dicttomark readonly
  76.   /MonoImageDownsampleThreshold 1.5
  77.   /MonoImageFilter /CCITTFaxEncode
  78.   /OPM 1
  79.   /Optimize true
  80.   /ParseDSCComments true
  81.   /ParseDSCCommentsForDocInfo true
  82.   /PreserveCopyPage true
  83.   /PreserveEPSInfo true
  84.   /PreserveHalftoneInfo false
  85.   /StartPage 1
  86.   /SubsetFonts true
  87.   /TransferFunctionInfo /Preserve
  88.   /UseFlateCompression true
  89.   /UsePrologue false
  90. .dicttomark readonly def
  91.  
  92. /.distillersettings mark
  93.  
  94. /default mark
  95.   /AutoRotatePages /PageByPage
  96.   /CannotEmbedFontPolicy /Warning
  97.   /DownsampleColorImages false
  98.   /DownsampleGrayImages false
  99.   /DownsampleMonoImages false
  100.   /Optimize false
  101. .dicttomark readonly
  102.  
  103. /screen mark
  104.   /AutoRotatePages /PageByPage
  105.   /CannotEmbedFontPolicy /Warning
  106.   /ColorConversionStrategy /sRGB
  107.   /ColorImageDownsampleType /Average
  108.   /ColorImageResolution 72
  109.   /CompatibilityLevel 1.2
  110.   /CreateJobTicket false
  111.   /DoThumbnails false
  112.   /DownsampleColorImages true
  113.   /DownsampleGrayImages true
  114.   /DownsampleMonoImages true
  115.   /EmbedAllFonts false
  116.   /GrayImageDownsampleType /Average
  117.   /GrayImageResolution 72
  118.   /MonoImageDownsampleType /Average
  119.   /MonoImageResolution 300
  120.   /ParseDSCCommentsForDocInfo false
  121.   /PreserveOPIComments false
  122.   /PreserveOverprintSettings false
  123.   /UCRandBGInfo /Remove
  124. .dicttomark readonly
  125.  
  126. /.printerACSImageDict mark
  127.   /QFactor 0.55 /Blend 1
  128.   /HSamples [2 1 1 2] /VSamples [2 1 1 2]
  129. .dicttomark readonly def
  130. /printer mark
  131.   /AutoRotatePages /None
  132.   /CannotEmbedFontPolicy /Warning
  133.   /ColorACSImageDict .printerACSImageDict
  134.   /ColorConversionStrategy /UseDeviceIndependentColor
  135.   /ColorImageDownsampleType /Bicubic
  136.   /ColorImageResolution 300
  137.   /CompatibilityLevel 1.3
  138.   /CreateJobTicket true
  139.   /DoThumbnails false
  140.   /EmbedAllFonts true
  141.   /GrayACSImageDict .printerACSImageDict
  142.   /GrayImageDownsampleType /Bicubic
  143.   /GrayImageResolution 300
  144.   /MonoImageDownsampleType /Bicubic
  145.   /MonoImageResolution 1200
  146.   /ParseDSCCommentsForDocInfo true
  147.   /PreserveOPIComments true
  148.   /PreserveOverprintSettings true
  149.   /UCRandBGInfo /Preserve
  150. .dicttomark readonly
  151.  
  152. /.prepressACSImageDict mark
  153.   /QFactor 0.25
  154.   /HSamples [1 1 1 1] /VSamples [1 1 1 1]
  155. .dicttomark readonly def
  156. /prepress mark
  157.   /AutoRotatePages /None
  158.   /CannotEmbedFontPolicy /Error
  159.   /ColorACSImageDict .prepressACSImageDict
  160.   /ColorConversionStrategy /LeaveColorUnchanged
  161.   /ColorImageDownsampleType /Bicubic
  162.   /ColorImageResolution 300
  163.   /CompatibilityLevel 1.3
  164.   /CreateJobTicket true
  165.   /DoThumbnails true
  166.   /EmbedAllFonts true
  167.   /GrayACSImageDict .prepressACSImageDict
  168.   /GrayImageDownsampleType /Bicubic
  169.   /GrayImageResolution 300
  170.   /MonoImageDownsampleType /Bicubic
  171.   /MonoImageResolution 1200
  172.   /ParseDSCCommentsForDocInfo true
  173.   /PreserveOPIComments true
  174.   /PreserveOverprintSettings true
  175.   /UCRandBGInfo /Preserve
  176. .dicttomark readonly
  177.  
  178. .dicttomark readonly def
  179.  
  180. % ---------------- End of predefined configurations ---------------- %
  181.  
  182. % Set optimizations for converting PostScript to PDF.
  183. % The ps2pdf* scripts invoke this.
  184. /.setpdfwrite {        % - .setpdfwrite -
  185.         % Set a large VM threshold to reduce garbage collection.
  186.   currentuserparams /VMThreshold get 3000000 .max setvmthreshold
  187.         % Install a level of 'save' to reduce font loading.
  188.   save pop
  189. } bind def
  190.  
  191. % ---------------- pdfmark and DSC processing ---------------- %
  192.  
  193. % Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
  194. /.pdf===dict mark
  195.   /arraytype
  196.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  197.         % Stack: file obj left right
  198.       4 1 roll 2 index exch writestring () exch
  199.        { exch 2 index exch writestring
  200.      1 index exch pdf===only ( )
  201.        }
  202.       forall pop exch writestring
  203.    } bind
  204.   /packedarraytype 1 index
  205.   /dicttype
  206.    { 1 index (<<\n) writestring
  207.       { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
  208.     1 index exch pdf===only dup (\n) writestring
  209.       }
  210.      forall (>>) writestring
  211.    } bind
  212. .dicttomark readonly def
  213. /pdf===only {    % <file> <obj> pdf===only -
  214.   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
  215. } bind def
  216. /.pdfcvbuf 10 string def    % enough for most arguments
  217. userdict /.pdfcvstring () put
  218. /.pdfcvs {        % <obj> .pdfcvs <string>
  219.   currentglobal exch false .setglobal
  220.   /.pdfcvstring () store
  221.         % We can't handle long values yet.
  222.   { pop dup length 0 eq { pop } {
  223.       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
  224.     } ifelse //.pdfcvbuf
  225.   } /NullEncode filter dup 3 -1 roll pdf===only
  226.   closefile
  227.   .setglobal .pdfcvstring
  228. } bind def
  229.  
  230. % Redefine pdfmark to pass the data to the driver.
  231. % We use a pseudo-parameter named /pdfmark whose value is an array:
  232. %    /key1 (value1) ... (CTM) /type
  233. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  234.   currentdevice null false counttomark 1 add 3 roll
  235.         % Don't allow the page device to get cleared....
  236.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  237. } bind def
  238. % Convert relevant operands to strings in an array.
  239. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  240.             %   [values ... ctm markname]
  241.    matrix currentmatrix .pdfcvs 4 1 roll
  242.    counttomark 1 add 2 roll 
  243.    counttomark .localvmarray astore exch pop
  244.    3 1 roll
  245.             % Stack: values start step
  246.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  247. } bind def
  248. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  249.   0 1 .pdfcvsloop
  250. } bind def
  251. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  252.   1 2 .pdfcvsloop
  253. } bind def
  254. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  255.   100000 1 .pdfcvsloop
  256. } bind def
  257. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  258.   .pdfcvsnone
  259.   dup 0 2 copy get .pdfcvs put
  260. } bind def
  261. % The procedures in the following dictionary are called with the entire
  262. % pdfmark operand list (including the pdfmark name) on the stack;
  263. % they may modify this ad lib.  They must call .pdfcvsxxx.
  264. /.pdfmarkparams mark
  265.     % Unpack a dictionary for PUT, and don't convert stream data.
  266.   /PUT {
  267.     counttomark 3 eq {
  268.       1 index type /dicttype eq {
  269.     pop { } forall /.PUTDICT .pdfcvsall
  270.       } {
  271.     pop dup type /filetype eq {
  272.         % Read the file into a sequence of strings.
  273.         % This isn't great, but it's simple.
  274.       {
  275.         dup 1000 string readstring not { exch exit } if
  276.         exch
  277.       } loop closefile
  278.     } if
  279.     /.PUTSTREAM .pdfcvsfirst
  280.       } ifelse
  281.     } {
  282.       .pdfcvsall
  283.     } ifelse
  284.   } bind
  285.     % Unpack the array for PUTINTERVAL.
  286.   /PUTINTERVAL {
  287.     pop aload pop /.PUTINTERVAL .pdfcvsall
  288.   } bind
  289. .dicttomark readonly def
  290. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  291.     counttomark 4 add 2 roll cleartomark pop pop pop
  292.     .systemvar exch signalerror
  293. } bind def
  294. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  295.   counttomark 1 add copy
  296.   //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  297.   mark /pdfmark 3 -1 roll .pdfputparams
  298.   dup type /booleantype ne {
  299.     /pdfmark .pdfparamerror
  300.   } if cleartomark
  301. } odef
  302. userdict /pdfmark .undef
  303. currentdict /.pdfmarkparams .undef
  304.  
  305. % Use the DSC processing hook to pass DSC comments to the driver.
  306. % We use a pseudo-parameter named DSC whose value is an array:
  307. %    /key1 (value1) ... /type
  308. /.pdfdsc_dict 2 dict def
  309. /.pdfdsc {    % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
  310.   0 get dup null ne { 4 copy exch pop exec } { pop } ifelse 3 -1 roll pop
  311.         % Stack: <dsc string> <dsc dict>
  312.   20 .localvmdict 1 index { 3 copy put pop pop } forall
  313.   3 -1 roll .parse_dsc_comments    % <dsc dict> <dict> <type>
  314.   dup /NOP ne 2 index length 1 gt or {    % Skip unparsed comments
  315.     DEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
  316.     exch mark 4 1 roll {
  317.         % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
  318.       3 index 2 index known {    % Skip the DSC_struct entry
  319.         pop pop
  320.       } {
  321.         .pdfcvs 4 -2 roll
  322.       } ifelse
  323.     } forall exch pop counttomark .localvmarray astore
  324.     mark /DSC 3 -1 roll .pdfputparams
  325.     dup type /booleantype ne {
  326.       /DSC .pdfparamerror
  327.     } {
  328.       cleartomark
  329.     } ifelse
  330.   } {
  331.     pop pop pop
  332.   } ifelse
  333. } bind def
  334. /.initialize_dsc_parser where {
  335.   pop 2 dict dup .initialize_dsc_parser readonly
  336.   currentuserparams /ProcessDSCComment get
  337.   1 array astore    % in case the value is executable
  338.   //.pdfdsc /exec load 4 array astore cvx readonly
  339.   << /ProcessDSCComment 3 -1 roll >> setuserparams
  340. } if
  341.  
  342. % ---------------- {set,current}distillerparams ---------------- %
  343.  
  344. % Define setdistillerparams / currentdistillerparams.
  345. % Distiller parameters are currently treated as device parameters.
  346. /.distillerparamkeys mark
  347.         % General parameters -- all distillers
  348.   /ASCII85EncodePages { }
  349.   /AutoRotatePages { }
  350.   /Binding { }
  351.   /CompressPages { }
  352.   /DefaultRenderingIntent { }
  353.   /DetectBlends { }
  354.   /DoThumbnails { }
  355.   /ImageMemory { }
  356.   /LockDistillerParams { }
  357.   /LZWEncodePages { }
  358.   /OPM { }
  359.   /PreserveHalftoneInfo { }
  360.   /PreserveOPIComments { }
  361.   /PreserveOverprintSettings { }
  362.   /TransferFunctionInfo { }
  363.   /UCRandBGInfo { }
  364.   /UseFlateCompression { }
  365.         % General parameters -- PDF writer
  366.         % StartPage and EndPage are renamed because EndPage
  367.         % clashes with a page device parameter.
  368.   /CoreDistVersion { }
  369.   /CompatibilityLevel { }
  370.         % ****** NOTE: StartPage and EndPage are disabled because
  371.         % ****** EndPage clashes with a page device parameter.
  372. %  /EndPage { exch pop /PDFEndPage exch }
  373.     /PDFEndPage { pop pop }
  374. %  /StartPage { exch pop /PDFStartPage exch }
  375.     /PDFStartPage { pop pop }
  376.   /Optimize { }
  377.   /ParseDSCCommentsForDocInfo { }
  378.   /ParseDSCComments { }
  379.   /EmitDSCWarnings { }
  380.   /CreateJobTicket { }
  381.   /PreserveEPSInfo { }
  382.   /AutoPositionEPSFiles { }
  383.   /PreserveCopyPage { }
  384.   /UsePrologue { }
  385.         % Color sampled image parameters
  386.   /ColorACSImageDict { }
  387.   /AntiAliasColorImages { }
  388.   /AutoFilterColorImages { }
  389.   /ColorImageDepth { }
  390.   /ColorImageDict { }
  391.   /DownsampleColorImages { }
  392.   /ColorImageDownsampleThreshold { }
  393.   /ColorImageDownsampleType { }
  394.   /EncodeColorImages { }
  395.   /ColorImageFilter { }
  396.   /ColorImageResolution { }
  397.         % Color processing parameters
  398.   /CalCMYKProfile { }
  399.   /CalGrayProfile { }
  400.   /CalRGBProfile { }
  401.   /sRGBProfile { }
  402.   /ColorConversionStrategy { }
  403.   /ConvertCMYKImagesToRGB { }
  404.   /ConvertImagesToIndexed { }
  405.         % Grayscale sampled image parameters
  406.   /GrayACSImageDict { }
  407.   /AntiAliasGrayImages { }
  408.   /AutoFilterGrayImages { }
  409.   /GrayImageDepth { }
  410.   /GrayImageDict { }
  411.   /DownsampleGrayImages { }
  412.   /GrayImageDownsampleThreshold { }
  413.   /GrayImageDownsampleType { }
  414.   /EncodeGrayImages { }
  415.   /GrayImageFilter { }
  416.   /GrayImageResolution { }
  417.         % Monochrome sampled image parameters
  418.   /AntiAliasMonoImages { }
  419.   /MonoImageDepth { }
  420.   /MonoImageDict { }
  421.   /DownsampleMonoImages { }
  422.   /MonoImageDownsampleThreshold { }
  423.   /MonoImageDownsampleType { }
  424.   /EncodeMonoImages { }
  425.   /MonoImageFilter { }
  426.   /MonoImageResolution { }
  427.         % Font embedding parameters
  428.   /AlwaysEmbed
  429.    { dup length 0 gt
  430.       { dup 0 get false eq
  431.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  432.          } if
  433.       } if
  434.    }
  435.   /NeverEmbed
  436.    { dup length 0 gt
  437.       { dup 0 get false eq
  438.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  439.          } if
  440.       } if
  441.    }
  442.   /CannotEmbedFontPolicy { }
  443.   /EmbedAllFonts { }
  444.   /MaxSubsetPct { }
  445.   /SubsetFonts { }
  446. .dicttomark readonly def
  447. /.distillerdevice
  448.  { currentdevice .devicename /pdfwrite eq
  449.     { currentdevice }
  450.     { /pdfwrite finddevice }
  451.    ifelse
  452.  } bind def
  453. /setdistillerparams {        % <dict> setdistillerparams -
  454.   .distillerdevice null false mark 4 index {
  455.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  456.   } forall .putdeviceparams
  457.   dup type /booleantype ne {
  458.     /setdistillerparams .pdfparamerror
  459.   } {
  460.     pop pop pop
  461.   } ifelse
  462. } odef
  463. /currentdistillerparams {    % - currentdistillerparams <dict>
  464.   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  465.         % Patch StartPage and EndPage
  466.         % ****** NOTE: StartPage and EndPage are disabled because
  467.         % ****** EndPage clashes with a page device parameter.
  468. %  begin /StartPage PDFStartPage /EndPage PDFEndPage
  469. %  currentdict dup /PDFStartPage undef /PDFEndPage undef
  470. %  def def currentdict end
  471. } odef
  472.  
  473. % Patch 'where' so that the distillerparams operators are only visible
  474. % if the pdfwrite device is the current one, for the benefit of badly
  475. % designed PostScript files that "know" they have to do something different
  476. % if a distiller is processing them.
  477. .wheredict /currentdistillerparams {
  478.   currentdevice .devicename /pdfwrite eq {
  479.     .where
  480.   } {
  481.     .where pop dup //systemdict eq { pop false } { true } ifelse
  482.   } ifelse
  483. } bind put
  484. .wheredict /setdistillerparams .wheredict /currentdistillerparams get put
  485.  
  486. % Set a predefined configuration if PDFSETTINGS is defined.
  487. /PDFSETTINGS where { pop /PDFSETTINGS load } { /default } ifelse
  488. .distillersettings exch get
  489. % Don't override parameters defined on the command line.
  490. dup length .distillercommon length add dict begin
  491. .distillercommon 2 {
  492.   {
  493.     systemdict 2 index known { pop pop } { def } ifelse
  494.   } forall
  495. } repeat
  496. currentdict end setdistillerparams
  497.