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