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