home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / gs_pdfwr.ps < prev    next >
Text File  |  2000-12-05  |  14KB  |  451 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.6 2000/09/19 18:29:11 lpd 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.   /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 /None
  157.   /CannotEmbedFontPolicy /Error
  158.   /ColorACSImageDict .prepressACSImageDict
  159.   /ColorConversionStrategy /LeaveColorUnchanged
  160.   /ColorImageDownsampleType /Bicubic
  161.   /ColorImageResolution 300
  162.   /CompatibilityLevel 1.3
  163.   /CreateJobTicket true
  164.   /DoThumbnails true
  165.   /EmbedAllFonts true
  166.   /GrayACSImageDict .prepressACSImageDict
  167.   /GrayImageDownsampleType /Bicubic
  168.   /GrayImageResolution 300
  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. % Redefine pdfmark to pass the data to the driver.
  191. % We use a pseudo-parameter named /pdfmark whose value is an array:
  192. %    key1 value1 ... CTM /type
  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 pdfmark===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 pdfmark===only 1 index ( ) writestring
  207.     1 index exch pdfmark===only dup (\n) writestring
  208.       }
  209.      forall (>>) writestring
  210.    } bind
  211. .dicttomark readonly def
  212. /pdfmark===only {    % <file> <obj> pdfmark===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 pdfmark===only
  225.   closefile
  226.   .setglobal .pdfcvstring
  227. } bind def
  228. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  229.   currentdevice null false counttomark 1 add 3 roll
  230.         % Don't allow the page device to get cleared....
  231.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  232. } bind def
  233. % Convert relevant operands to strings in an array.
  234. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  235.             %   [values ... ctm markname]
  236.    matrix currentmatrix .pdfcvs 4 1 roll
  237.    counttomark 1 add 2 roll ] 3 1 roll
  238.             % Stack: values start step
  239.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  240. } bind def
  241. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  242.   0 1 .pdfcvsloop
  243. } bind def
  244. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  245.   1 2 .pdfcvsloop
  246. } bind def
  247. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  248.   100000 1 .pdfcvsloop
  249. } bind def
  250. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  251.   .pdfcvsnone
  252.   dup 0 2 copy get .pdfcvs put
  253. } bind def
  254. % The procedures in the following dictionary are called with the entire
  255. % pdfmark operand list (including the pdfmark name) on the stack;
  256. % they may modify this ad lib.  They must call .pdfcvsxxx.
  257. /.pdfmarkparams mark
  258.     % Unpack a dictionary for PUT, and don't convert stream data.
  259.   /PUT {
  260.     counttomark 3 eq {
  261.       1 index type /dicttype eq {
  262.     pop { } forall /.PUTDICT .pdfcvsall
  263.       } {
  264.     pop dup type /filetype eq {
  265.         % Read the file into a sequence of strings.
  266.         % This isn't great, but it's simple.
  267.       {
  268.         dup 1000 string readstring not { exch exit } if
  269.         exch
  270.       } loop closefile
  271.     } if
  272.     /.PUTSTREAM .pdfcvsfirst
  273.       } ifelse
  274.     } {
  275.       .pdfcvsall
  276.     } ifelse
  277.   } bind
  278.     % Unpack the array for PUTINTERVAL.
  279.   /PUTINTERVAL {
  280.     pop aload pop /.PUTINTERVAL .pdfcvsall
  281.   } bind
  282. .dicttomark readonly def
  283. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  284.     counttomark 4 add 2 roll cleartomark pop pop pop
  285.     .systemvar exch signalerror
  286. } bind def
  287. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  288.   counttomark 1 add copy
  289.   //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  290.   mark /pdfmark 3 -1 roll .pdfputparams
  291.   dup type /booleantype ne {
  292.     /pdfmark .pdfparamerror
  293.   } if cleartomark
  294. } odef
  295. userdict /pdfmark .undef
  296. currentdict /.pdfmarkparams .undef
  297.  
  298. % Define setdistillerparams / currentdistillerparams.
  299. % Distiller parameters are currently treated as device parameters.
  300. /.distillerparamkeys mark
  301.         % General parameters -- all distillers
  302.   /ASCII85EncodePages { }
  303.   /AutoRotatePages { }
  304.   /Binding { }
  305.   /CompressPages { }
  306.   /DefaultRenderingIntent { }
  307.   /DetectBlends { }
  308.   /DoThumbnails { }
  309.   /ImageMemory { }
  310.   /LockDistillerParams { }
  311.   /LZWEncodePages { }
  312.   /OPM { }
  313.   /PreserveHalftoneInfo { }
  314.   /PreserveOPIComments { }
  315.   /PreserveOverprintSettings { }
  316.   /TransferFunctionInfo { }
  317.   /UCRandBGInfo { }
  318.   /UseFlateCompression { }
  319.         % General parameters -- PDF writer
  320.         % StartPage and EndPage are renamed because EndPage
  321.         % clashes with a page device parameter.
  322.   /CoreDistVersion { }
  323.   /CompatibilityLevel { }
  324.         % ****** NOTE: StartPage and EndPage are disabled because
  325.         % ****** EndPage clashes with a page device parameter.
  326. %  /EndPage { exch pop /PDFEndPage exch }
  327.     /PDFEndPage { pop pop }
  328. %  /StartPage { exch pop /PDFStartPage exch }
  329.     /PDFStartPage { pop pop }
  330.   /Optimize { }
  331.   /ParseDSCCommentsForDocInfo { }
  332.   /ParseDSCComments { }
  333.   /EmitDSCWarnings { }
  334.   /CreateJobTicket { }
  335.   /PreserveEPSInfo { }
  336.   /AutoPositionEPSFiles { }
  337.   /PreserveCopyPage { }
  338.   /UsePrologue { }
  339.         % Color sampled image parameters
  340.   /ColorACSImageDict { }
  341.   /AntiAliasColorImages { }
  342.   /AutoFilterColorImages { }
  343.   /ColorImageDepth { }
  344.   /ColorImageDict { }
  345.   /DownsampleColorImages { }
  346.   /ColorImageDownsampleThreshold { }
  347.   /ColorImageDownsampleType { }
  348.   /EncodeColorImages { }
  349.   /ColorImageFilter { }
  350.   /ColorImageResolution { }
  351.         % Color processing parameters
  352.   /CalCMYKProfile { }
  353.   /CalGrayProfile { }
  354.   /CalRGBProfile { }
  355.   /sRGBProfile { }
  356.   /ColorConversionStrategy { }
  357.   /ConvertCMYKImagesToRGB { }
  358.   /ConvertImagesToIndexed { }
  359.         % Grayscale sampled image parameters
  360.   /GrayACSImageDict { }
  361.   /AntiAliasGrayImages { }
  362.   /AutoFilterGrayImages { }
  363.   /GrayImageDepth { }
  364.   /GrayImageDict { }
  365.   /DownsampleGrayImages { }
  366.   /GrayImageDownsampleThreshold { }
  367.   /GrayImageDownsampleType { }
  368.   /EncodeGrayImages { }
  369.   /GrayImageFilter { }
  370.   /GrayImageResolution { }
  371.         % Monochrome sampled image parameters
  372.   /AntiAliasMonoImages { }
  373.   /MonoImageDepth { }
  374.   /MonoImageDict { }
  375.   /DownsampleMonoImages { }
  376.   /MonoImageDownsampleThreshold { }
  377.   /MonoImageDownsampleType { }
  378.   /EncodeMonoImages { }
  379.   /MonoImageFilter { }
  380.   /MonoImageResolution { }
  381.         % Font embedding parameters
  382.   /AlwaysEmbed
  383.    { dup length 0 gt
  384.       { dup 0 get false eq
  385.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  386.          } if
  387.       } if
  388.    }
  389.   /NeverEmbed
  390.    { dup length 0 gt
  391.       { dup 0 get false eq
  392.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  393.          } if
  394.       } if
  395.    }
  396.   /CannotEmbedFontPolicy { }
  397.   /EmbedAllFonts { }
  398.   /MaxSubsetPct { }
  399.   /SubsetFonts { }
  400. .dicttomark readonly def
  401. /.distillerdevice
  402.  { currentdevice .devicename /pdfwrite eq
  403.     { currentdevice }
  404.     { /pdfwrite finddevice }
  405.    ifelse
  406.  } bind def
  407. /setdistillerparams {        % <dict> setdistillerparams -
  408.   .distillerdevice null false mark 4 index {
  409.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  410.   } forall .putdeviceparams
  411.   dup type /booleantype ne {
  412.     /setdistillerparams .pdfparamerror
  413.   } {
  414.     pop pop pop
  415.   } ifelse
  416. } odef
  417. /currentdistillerparams {    % - currentdistillerparams <dict>
  418.   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  419.         % Patch StartPage and EndPage
  420.         % ****** NOTE: StartPage and EndPage are disabled because
  421.         % ****** EndPage clashes with a page device parameter.
  422. %  begin /StartPage PDFStartPage /EndPage PDFEndPage
  423. %  currentdict dup /PDFStartPage undef /PDFEndPage undef
  424. %  def def currentdict end
  425. } odef
  426.  
  427. % Patch 'where' so that the distillerparams operators are only visible
  428. % if the pdfwrite device is the current one, for the benefit of badly
  429. % designed PostScript files that "know" they have to do something different
  430. % if a distiller is processing them.
  431. .wheredict /currentdistillerparams {
  432.   currentdevice .devicename /pdfwrite eq {
  433.     .where
  434.   } {
  435.     .where pop dup //systemdict eq { pop false } { true } ifelse
  436.   } ifelse
  437. } bind put
  438. .wheredict /setdistillerparams .wheredict /currentdistillerparams get put
  439.  
  440. % Set a predefined configuration if PDFSETTINGS is defined.
  441. /PDFSETTINGS where { pop /PDFSETTINGS load } { /default } ifelse
  442. .distillersettings exch get
  443. % Don't override parameters defined on the command line.
  444. dup length .distillercommon length add dict begin
  445. .distillercommon 2 {
  446.   {
  447.     systemdict 2 index known { pop pop } { def } ifelse
  448.   } forall
  449. } repeat
  450. currentdict end setdistillerparams
  451.