summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/gs_pdfwr.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gs_pdfwr.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/gs_pdfwr.ps874
1 files changed, 0 insertions, 874 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_pdfwr.ps b/Master/tlpkg/tlgs/lib/gs_pdfwr.ps
deleted file mode 100644
index acd5b73a83b..00000000000
--- a/Master/tlpkg/tlgs/lib/gs_pdfwr.ps
+++ /dev/null
@@ -1,874 +0,0 @@
-% Copyright (C) 1996, 2000 Aladdin Enterprises. All rights reserved.
-%
-% This software is provided AS-IS with no warranty, either express or
-% implied.
-%
-% This software is distributed under license and may not be copied,
-% modified or distributed except as expressly authorized under the terms
-% of the license contained in the file LICENSE in this distribution.
-%
-% For more information about licensing, please refer to
-% http://www.ghostscript.com/licensing/. For information on
-% commercial licensing, go to http://www.artifex.com/licensing/ or
-% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
-% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-
-% $Id: gs_pdfwr.ps 8178 2007-08-05 13:55:26Z leonardo $
-% PDF writer additions to systemdict.
-
-% This file should be included iff the pdfwrite "device" is included
-% in the executable.
-
-% ---------------- Predefined configurations ---------------- %
-
-% These correspond to the 4 predefined settings in Acrobat Distiller 5,
-% plus a "default" setting that doesn't downsample images.
-
-/.a2112 [2 1 1 2] readonly def
-/.a1111 [1 1 1 1] readonly def
-/.standardfonts [
- /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique
- /Helvetica /Helvetica-Bold /Helvetica-Oblique /Helvetica-BoldOblique
- /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic
- /Symbol /ZapfDingbats
-] readonly def
-
-% Parameters common to all non-default configurations.
-% Note that the default configuration overrides a few of these.
-/.defaultImageDict mark
- /QFactor 0.9 /Blend 1
- /HSamples .a2112 /VSamples .a2112
-.dicttomark readonly def
-/.distillercommon mark
- /AlwaysEmbed []
- /AntiAliasColorImages false
- /AntiAliasGrayImages false
- /AntiAliasMonoImages false
- /ASCII85EncodePages false
- /AutoFilterColorImages true
- /AutoFilterGrayImages true
- /AutoPositionEPSFiles true
- /Binding /Left
- /CalCMYKProfile (None) % (U.S. Web Coated (SWOP) v2)
- /CalGrayProfile (None) % (Dot Gain 20%)
- /CalRGBProfile (None) % (sRGB IEC61966-2.1)
- /ColorImageDepth -1
- /ColorImageDict .defaultImageDict
- /ColorImageDownsampleThreshold 1.5
- /ColorImageFilter /DCTEncode
- /CompressPages true
- /ConvertImagesToIndexed true
- /DefaultRenderingIntent /Default
- /DetectBlends true
- /DownsampleColorImages true
- /DownsampleGrayImages true
- /DownsampleMonoImages true
- /EmitDSCWarnings false
- /EncodeColorImages true
- /EncodeGrayImages true
- /EncodeMonoImages true
- /EndPage -1
- /GrayImageDepth -1
- /GrayImageDict .defaultImageDict
- /GrayImageDownsampleThreshold 1.5
- /GrayImageFilter /DCTEncode
- /ImageMemory 524288
- /LockDistillerParams false
- /MaxSubsetPct 100
- /MonoImageDepth -1
- /MonoImageDict mark
- /K -1
- .dicttomark readonly
- /MonoImageDownsampleThreshold 1.5
- /MonoImageFilter /CCITTFaxEncode
- /OffOptimizations 0
- /OPM 1
- /Optimize true
- /ParseDSCComments true
- /ParseDSCCommentsForDocInfo true
- /PDFXTrimBoxToMediaBoxOffset [0 0 0 0]
- /PDFXSetBleedBoxToMediaBox true
- /PDFXBleedBoxToTrimBoxOffset [0 0 0 0]
- /PreserveCopyPage true
- /PreserveHalftoneInfo false
- /sRGBProfile (None) % (sRGB IEC61966-2.1)
- /StartPage 1
- /SubsetFonts true
- /TransferFunctionInfo /Preserve
- /UseFlateCompression true
- /UsePrologue false
-.dicttomark readonly def
-
-/.distillersettings mark
-
-/default mark
- /AutoRotatePages /PageByPage
- /CannotEmbedFontPolicy /Warning
- /ColorACSImageDict .defaultImageDict
- /ColorConversionStrategy /LeaveColorUnchanged
-% /ColorImageDownsampleType
-% /ColorImageResolution
-% /CompatibilityLevel
- /CreateJobTicket false
- /DoThumbnails false
- /DownsampleColorImages false % override
- /DownsampleGrayImages false % override
- /DownsampleMonoImages false % override
- /EmbedAllFonts true
- /GrayACSImageDict .defaultImageDict
-% /GrayImageDownsampleType
-% /GrayImageResolution
-% /MonoImageDownsampleType
-% /MonoImageResolution
- /NeverEmbed .standardfonts
- /Optimize false % override
- /PreserveEPSInfo true
- /PreserveOPIComments true
- /PreserveOverprintSettings true
- /UCRandBGInfo /Preserve
-.dicttomark readonly
-
-/.screenACSImageDict mark
- /QFactor 0.76 /Blend 1 /ColorTransform 1
- /HSamples .a2112 /VSamples .a2112
-.dicttomark readonly def
-/screen mark
- /AutoRotatePages /PageByPage
-% /CalGrayProfile (None)
- /CannotEmbedFontPolicy /Warning
- /ColorACSImageDict .screenACSImageDict
- /ColorConversionStrategy /sRGB
- /ColorImageDownsampleType /Average
- /ColorImageResolution 72
- /CompatibilityLevel 1.3
- /CreateJobTicket false
- /DoThumbnails false
- /EmbedAllFonts true
- /GrayACSImageDict .screenACSImageDict
- /GrayImageDownsampleType /Average
- /GrayImageResolution 72
- /MonoImageDownsampleType /Average
- /MonoImageResolution 300
- /NeverEmbed .standardfonts
- /PreserveEPSInfo false
- /PreserveOPIComments false
- /PreserveOverprintSettings false
- /UCRandBGInfo /Remove
-.dicttomark readonly
-
-/ebook mark
- /AutoRotatePages /All
-% /CalGrayProfile (None)
- /CannotEmbedFontPolicy /Warning
- /ColorACSImageDict .screenACSImageDict
- /ColorConversionStrategy /sRGB
- /ColorImageDownsampleType /Bicubic
- /ColorImageResolution 150
- /CompatibilityLevel 1.4
- /CreateJobTicket false
- /DoThumbnails false
- /EmbedAllFonts true
- /GrayACSImageDict .screenACSImageDict
- /GrayImageDownsampleType /Bicubic
- /GrayImageResolution 150
- /MonoImageDownsampleType /Bicubic
- /MonoImageResolution 300
- /NeverEmbed .standardfonts
- /PreserveEPSInfo false
- /PreserveOPIComments false
- /PreserveOverprintSettings false
- /UCRandBGInfo /Remove
-.dicttomark readonly
-
-/.printerACSImageDict mark
- /QFactor 0.4 /Blend 1 /ColorTransform 1
- /HSamples .a1111 /VSamples .a1111
-.dicttomark readonly def
-/printer mark
- /AutoRotatePages /None
-% /CalGrayProfile (None)
- /CannotEmbedFontPolicy /Warning
- /ColorACSImageDict .printerACSImageDict
- /ColorConversionStrategy /UseDeviceIndependentColor
- /ColorImageDownsampleType /Bicubic
- /ColorImageResolution 300
- /CompatibilityLevel 1.4
- /CreateJobTicket true
- /DoThumbnails false
- /EmbedAllFonts true
- /GrayACSImageDict .printerACSImageDict
- /GrayImageDownsampleType /Bicubic
- /GrayImageResolution 300
- /MonoImageDownsampleType /Bicubic
- /MonoImageResolution 1200
- /NeverEmbed []
- /PreserveEPSInfo true
- /PreserveOPIComments true
- /PreserveOverprintSettings true
- /UCRandBGInfo /Preserve
-.dicttomark readonly
-
-/.prepressACSImageDict mark
- /QFactor 0.15 /Blend 1 /ColorTransform 1
- /HSamples .a1111 /VSamples .a1111
-.dicttomark readonly def
-/prepress mark
- /AutoRotatePages /None
- /CannotEmbedFontPolicy /Error
- /ColorACSImageDict .prepressACSImageDict
- /ColorConversionStrategy /LeaveColorUnchanged
- /ColorImageDownsampleType /Bicubic
- /ColorImageResolution 300
- /CompatibilityLevel 1.4
- /CreateJobTicket true
- /DoThumbnails true
- /EmbedAllFonts true
- /GrayACSImageDict .prepressACSImageDict
- /GrayImageDownsampleType /Bicubic
- /GrayImageResolution 300
- /MonoImageDownsampleType /Bicubic
- /MonoImageResolution 1200
- /NeverEmbed []
- /PreserveEPSInfo true
- /PreserveOPIComments true
- /PreserveOverprintSettings true
- /UCRandBGInfo /Preserve
-.dicttomark readonly
-
-% Define distiller settings for the ps2write device and for the ps2ps2 script :
-/PSL2Printer mark
- /AutoRotatePages /None
- /CannotEmbedFontPolicy /Error
- /ColorACSImageDict .prepressACSImageDict
- /ColorConversionStrategy /LeaveColorUnchanged
- /ColorImageDownsampleType /Bicubic
- /ColorImageResolution 600
- /CompatibilityLevel 1.2 % Always 1.2 with ps2write.
- % /CreateJobTicket true % Not sure
- /DoThumbnails false
- /EmbedAllFonts true
- /GrayACSImageDict .prepressACSImageDict
- /GrayImageDownsampleType /Bicubic
- /GrayImageResolution 600
- /MonoImageDownsampleType /Bicubic
- /MonoImageResolution 1200
- /NeverEmbed []
- /PreserveEPSInfo true
- /PreserveOPIComments true
- /PreserveOverprintSettings true
- /UCRandBGInfo /Preserve
-
- /PreserveHalftoneInfo true
- /TransferFunctionInfo /Preserve
- /MaxViewerMemorySize 8000000
- /CompressPages false
- /CompressFonts false
- /ASCII85EncodePages true
-.dicttomark readonly
-
-.dicttomark readonly def
-
-% ---------------- End of predefined configurations ---------------- %
-
-% Set optimizations for converting PostScript to PDF.
-% The ps2pdf* scripts invoke this.
-/.setpdfwrite { % - .setpdfwrite -
- % Set a large VM threshold to reduce garbage collection.
- currentuserparams /VMThreshold get 3000000 .max setvmthreshold
-} bind def
-
-% ---------------- pdfmark and DSC processing ---------------- %
-
-/.write_small_positive_real % <file> <real> .write_small_positive_real -
-{ % The argument must be grater than 0 and must be strongly samller than 0.1.
- % The conversion isn't simple due to the low (24 bits) precision
- % of the floating point arithmetics in Postscript.
- % For best result we first use the 1e8 factor since its binary
- % representation 101111101011110000100000000 well rounds into 14 significant
- % bits : 101111101011110000000000000 .
- 1 index (.) writestring
- { dup 100000000 mul
- dup 10 mul 1 ge {
- % Will need not greater than 0.1 due to a rounding below.
- pop exit
- } if
- exch pop
- 1 index (00000000) writestring
- } loop
- % Now it is not smaller than 1e-9, use simple digitizing.
- { dup 10 mul
- dup 10 mul 1 ge {
- pop exit
- } if
- exch pop
- 1 index (0) writestring
- } loop
- % Now 0.01 <= n < 0.1, but rounding may give 0.1 .
- % Convert to integer with 7 digits precision :
- 100000000 % precision factor 1e8 % f n r
- dup 10 idiv 3 1 roll mul 0.5 add cvi % f r' N
- 2 copy le {
- % The rounding overflows, suppress it.
- % Note it carries out an additional digit,
- % that's why we needed <0.1 above.
- pop pop (1) writestring
- } {
- % Didn't cary out, put 0.
- 2 index (0) writestring
- exch % f N r
- % Continue the simple digitizing :
- { 10 idiv dup % f N r' r'
- 2 index exch idiv % f N r' d
- (0123456789) exch 1 getinterval % f N r' (d)
- 3 index exch writestring % f N r'
- dup 3 2 roll exch mod % f r' N'
- dup 0 eq {
- % Don't write trailing zeros.
- exit
- } if
- exch % f N' r'
- } loop
- pop pop pop
- } ifelse
-} bind def
-
-% Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
-/.pdf===dict mark
- /arraytype
- { dup xcheck { ({) (}) } { ([) (]) } ifelse
- % Stack: file obj left right
- 4 1 roll 2 index exch writestring () exch
- { exch 2 index exch writestring
- 1 index exch pdf===only ( )
- }
- forall pop exch writestring
- } bind
- /packedarraytype 1 index
- /dicttype
- { 1 index (<<\n) writestring
- { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
- 1 index exch pdf===only dup (\n) writestring
- }
- forall (>>) writestring
- } bind
- /nametype {
- % If the name string includes any non-regular characters,
- % write it with two preceding and one following null character(s).
- % (Null characters in the name itself are not allowed.)
- % This non-standard escape convention is required for passing names
- % that include non-regular characters, because PostScript provides
- % no way to do this. The pdf_scan_token procedure in the C code of
- % the pdfwrite driver is currently the only place that recognizes
- % this convention.
- % Note that \004 may be self-delimiting in gs, but is not in standard PS.
- dup .namestring (\000\004\011\012\014\015 %()/<>[]{}) .stringbreak null ne {
- dup .namestring (\000) .stringbreak null ne {
- /rangecheck signalerror
- } if
- 1 index <0000> writestring 1 index exch write===only 0 write
- } {
- write===only
- } ifelse
- } bind
- /realtype {
- % Prevent using floating point format - see Bug 688167.
- dup dup 0 lt { neg } if 0.01 lt {
- dup 0 eq {
- pop (0) writestring
- } {
- dup 0 lt {
- 1 index (-) writestring neg
- } if
- .write_small_positive_real
- } ifelse
- } {
- write===only
- } ifelse
- } bind
-.dicttomark readonly def
-/pdf===only { % <file> <obj> pdf===only -
- .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
-} bind def
-/.pdfcvbuf 30 string def % enough for most arguments
-userdict /.pdfcvstring () put
-/.pdfcvs { % <obj> .pdfcvs <string>
- currentglobal exch false .setglobal
- /.pdfcvstring () store
- % We can't handle long values yet.
- { pop dup length 0 eq { pop } {
- /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
- } ifelse //.pdfcvbuf
- } /NullEncode filter dup 3 -1 roll pdf===only
- closefile
- .setglobal .pdfcvstring
-} bind def
-
-% Redefine pdfmark to pass the data to the driver.
-% We use a pseudo-parameter named /pdfmark whose value is an array:
-% /key1 (value1) ... (CTM) /type
-/.pdfputparams { % -mark- <key1> <value1> ... .pdfputparams <result...>
- currentdevice null false counttomark 1 add 3 roll
- % Don't allow the page device to get cleared....
- {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
-} bind def
-% Convert relevant operands to strings in an array.
-/.pdfcvsloop { % -mark- values ... markname start step .pdfcvsloop
- % [values ... ctm markname]
- matrix currentmatrix .pdfcvs 4 1 roll
- counttomark 1 add 2 roll
- counttomark .localvmarray astore exch pop
- 3 1 roll
- % Stack: values start step
- 2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
-} bind def
-/.pdfcvsall { % -mark- values ... markname .pdfcvsall <<same>>
- 0 1 .pdfcvsloop
-} bind def
-/.pdfcvseven { % -mark- key value ... markname .pdfcvseven <<same>>
- 1 2 .pdfcvsloop
-} bind def
-/.pdfcvsnone { % -mark- values ... markname .pdfcvsnone <<same>>
- 100000 1 .pdfcvsloop
-} bind def
-/.pdfcvsfirst { % -mark- first values ... markname .pdfcvsfirst<<same>>
- .pdfcvsnone
- dup 0 2 copy get .pdfcvs put
-} bind def
-% The procedures in the following dictionary are called with the entire
-% pdfmark operand list (including the pdfmark name) on the stack;
-% they may modify this ad lib. They must call .pdfcvsxxx.
-/.pdfmarkparams mark
- % Unpack a dictionary for PUT, and don't convert stream data.
- /PUT {
- counttomark 3 eq {
- 1 index type /dicttype eq {
- pop { } forall /.PUTDICT .pdfcvsall
- } {
- pop dup type /filetype eq {
- % Read the file into a sequence of strings.
- % This isn't great, but it's simple.
- {
- dup 64000 string readstring not { exch exit } if
- exch
- } loop closefile
- } if
- /.PUTSTREAM .pdfcvsfirst
- } ifelse
- } {
- .pdfcvsall
- } ifelse
- } bind
- % Unpack the array for PUTINTERVAL.
- /PUTINTERVAL {
- pop aload pop /.PUTINTERVAL .pdfcvsall
- } bind
-.dicttomark readonly def
-/.pdfparamerror { % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
- counttomark 4 add 2 roll cleartomark pop pop pop
- .systemvar exch signalerror
-} bind def
-/pdfmark { % -mark- <key> <value> ... <markname> pdfmark -
- dup /SP eq {
- % A hack for synchronizing the clipping path.
- gsave
- [1 0 0 1 0 0] setmatrix 0 setlinewidth
- newpath -3 -3 moveto closepath stroke % Paints outside the device bbox.
- grestore
- } if
- dup /PS eq systemdict /PDFX .knownget not { false } if
- systemdict /PDFA .knownget not { false } if or and {
- % Execute it since PDF/X doesn't allow to embed it.
- pop
- { dup mark eq {
- pop exit
- } if
- 1 index /DataSource eq {
- exch pop
- cvx exec
- } {
- pop pop
- } ifelse
- } loop
- } {
- counttomark 1 add copy
- //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
- mark /pdfmark 3 -1 roll .pdfputparams
- dup type /booleantype ne {
- /pdfmark .pdfparamerror
- } if cleartomark
- } ifelse
-} odef
-userdict /pdfmark .undef
-currentdict /.pdfmarkparams .undef
-
-
-% <dict> .hook_DSC_Creator -
-/.pdf_hook_DSC_Creator
-{
- % If the Creator is PScript5.dll, disable the 32 /FontType resource for
- % handling GlyphNames2Unicode. Since /FontType category can't redefine,
- % we can do only with redefining the operator 'resourcestatus'.
- currentdevice .devicename /pdfwrite eq {
- /Creator .knownget {
- (PScript5.dll) search {
- pop pop
- systemdict /resourcestatus dup
- { dup /FontType eq 2 index 32 eq and {
- pop pop false
- } {
- resourcestatus
- } ifelse
- } bind .makeoperator .forceput
- } if
- pop
- } if
- } {
- pop
- } ifelse
-}
-bind def
-
-% Use the DSC processing hook to pass DSC comments to the driver.
-% We use a pseudo-parameter named DSC whose value is an array:
-% /key1 (value1) ... /type
-/.pdfdsc_dict 2 dict def
-/.pdfdsc { % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
- 0 get dup null ne { 4 copy exch pop exec pop } { pop } ifelse 3 -1 roll pop
- % Stack: <dsc string> <dsc dict>
- 20 .localvmdict 1 index { 3 copy put pop pop } forall
- 3 -1 roll .parse_dsc_comments % <dsc dict> <dict> <type>
- 1 index //.pdf_hook_DSC_Creator exec
- dup /NOP ne 2 index length 1 gt or { % Skip unparsed comments
- PDFWRDEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
- exch mark 4 1 roll {
- % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
- 3 index 2 index known { % Skip the DSC_struct entry
- pop pop
- } {
- .pdfcvs 4 -2 roll
- } ifelse
- } forall exch pop counttomark .localvmarray astore
- mark /DSC 3 -1 roll .pdfputparams
- dup type /booleantype ne {
- /DSC .pdfparamerror
- } {
- cleartomark
- } ifelse
- } {
- pop pop pop
- } ifelse
-} bind def
-currentdict /.pdf_hook_DSC_Creator undef
-/.initialize_dsc_parser where {
- pop
- 3000 % priority
- {
- currentglobal true setglobal
- 2 dict dup .initialize_dsc_parser readonly
- currentuserparams /ProcessDSCComment get
- 1 array astore % in case the value is executable
- //.pdfdsc /exec load 4 array astore cvx readonly
- << /ProcessDSCComment 3 -1 roll >> setuserparams
- setglobal
- } bind .schedule_init
-} if
-
-% ---------------- {set,current}distillerparams ---------------- %
-
-% Define setdistillerparams / currentdistillerparams.
-% Distiller parameters are currently treated as device parameters.
-/.distillerparamkeys mark
- % General parameters -- all distillers
- /ASCII85EncodePages { }
- /AutoRotatePages { }
- /Binding { }
- /CompressPages { }
- /DefaultRenderingIntent { }
- /DetectBlends { }
- /DoThumbnails { }
- /ImageMemory { }
- /LockDistillerParams { }
- /LZWEncodePages { }
- /OPM { }
- /PreserveHalftoneInfo { }
- /PreserveOPIComments { }
- /PreserveOverprintSettings { }
- /TransferFunctionInfo { }
- /UCRandBGInfo { }
- /UseFlateCompression { }
- % General parameters -- PDF writer
- % StartPage and EndPage are renamed because EndPage
- % clashes with a page device parameter.
- /CoreDistVersion { }
- /CompatibilityLevel { }
- % ****** NOTE: StartPage and EndPage are disabled because
- % ****** EndPage clashes with a page device parameter.
-% /EndPage { exch pop /PDFEndPage exch }
- /PDFEndPage { pop pop }
-% /StartPage { exch pop /PDFStartPage exch }
- /PDFStartPage { pop pop }
- /Optimize { }
- /ParseDSCCommentsForDocInfo { }
- /ParseDSCComments { }
- /EmitDSCWarnings { }
- /CreateJobTicket { }
- /PreserveEPSInfo { }
- /AutoPositionEPSFiles { }
- /PreserveCopyPage { }
- /UsePrologue { }
- /OffOptimizations { }
- % PDF/X parameters
- /PDFXTrimBoxToMediaBoxOffset { }
- /PDFXSetBleedBoxToMediaBox { }
- /PDFXBleedBoxToTrimBoxOffset { }
- % Color sampled image parameters
- /ColorACSImageDict { }
- /AntiAliasColorImages { }
- /AutoFilterColorImages { }
- /ColorImageDepth { }
- /ColorImageDict { }
- /DownsampleColorImages { }
- /ColorImageDownsampleThreshold { }
- /ColorImageDownsampleType { }
- /EncodeColorImages { }
- /ColorImageFilter { }
- /ColorImageResolution { }
- % Color processing parameters
- /CalCMYKProfile { }
- /CalGrayProfile { }
- /CalRGBProfile { }
- /sRGBProfile { }
- /ColorConversionStrategy { }
- /ConvertCMYKImagesToRGB { }
- /ConvertImagesToIndexed { }
- % Grayscale sampled image parameters
- /GrayACSImageDict { }
- /AntiAliasGrayImages { }
- /AutoFilterGrayImages { }
- /GrayImageDepth { }
- /GrayImageDict { }
- /DownsampleGrayImages { }
- /GrayImageDownsampleThreshold { }
- /GrayImageDownsampleType { }
- /EncodeGrayImages { }
- /GrayImageFilter { }
- /GrayImageResolution { }
- % Monochrome sampled image parameters
- /AntiAliasMonoImages { }
- /MonoImageDepth { }
- /MonoImageDict { }
- /DownsampleMonoImages { }
- /MonoImageDownsampleThreshold { }
- /MonoImageDownsampleType { }
- /EncodeMonoImages { }
- /MonoImageFilter { }
- /MonoImageResolution { }
- % Font embedding parameters
- /AlwaysEmbed
- { dup length 0 gt
- { dup 0 get false eq
- { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
- } if
- } if
- }
- /NeverEmbed
- { dup length 0 gt
- { dup 0 get false eq
- { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
- } if
- } if
- }
- /CannotEmbedFontPolicy { }
- /EmbedAllFonts { }
- /MaxSubsetPct { }
- /SubsetFonts { }
- /DSCEncodingToUnicode { }
-.dicttomark readonly def
-/.distillerdevice
- { currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or
- { currentdevice }
- { /pdfwrite finddevice }
- ifelse
- } bind def
-
-% Some badly designed PostScript files only expect the current/set
-% distillerparams operators to exist in a distiller. Since we have
-% this as a runtime option, we enable these operators IFF the
-% currentdevice is pdfwrite. Also, we mask their existence in
-% systemdict so that 'where' and 'known' don't show them unless
-% the currentdevice is pdfwrite.
-/.setdistillerparams { % <dict> setdistillerparams -
- .distillerdevice //null false mark 4 index {
- //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
- } forall .putdeviceparamsonly
- dup type /booleantype ne {
- /setdistillerparams .pdfparamerror
- } {
- pop pop pop
- } ifelse
-} odef
-/.currentdistillerparams { % - currentdistillerparams <dict>
- .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
- % Patch StartPage and EndPage
- % ****** NOTE: StartPage and EndPage are disabled because
- % ****** EndPage clashes with a page device parameter.
-% begin /StartPage PDFStartPage /EndPage PDFEndPage
-% currentdict dup /PDFStartPage undef /PDFEndPage undef
-% def def currentdict end
-} odef
-/setdistillerparams {
- currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and {
- /setdistillerparams /undefined signalerror
- } if
- .setdistillerparams
-} bind odef
-/currentdistillerparams {
- currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and {
- /currentdistillerparams /undefined signalerror
- } if
- .currentdistillerparams
-} bind odef
-
-% Patch 'where' so that the distiller operators are only visible
-% if the pdfwrite device is the current one.
-{ currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or{
- .where
- } {
- .where pop dup //systemdict eq { pop false } { true } ifelse
- } ifelse
-} bind
-{ /currentdistillerparams /setdistillerparams /pdfmark }
-{ .wheredict exch 2 index put } forall pop
-
-% Patch 'known' to hide the systemdict version of distiller operators
-% unless the currentdevice is pdfwrite.
-/known {
- /currentdistillerparams 1 index eq /setdistillerparams 2 index eq or
- /pdfmark 2 index eq or {
- systemdict 2 index eq { % only mask the operator in systemdict
- known currentdevice .devicename dup /pdfwrite ne exch /ps2write ne and { pop false } if
- } {
- known
- } ifelse
- } {
- known
- } ifelse
-} .bind odef
-
-% Create a table for translation DSC comments into Unicode UTF-16
-/.make_DSC_translation_table { % <encoding> .make_DSC_translation_table <array>
- dup type /stringtype eq {
- cvn
- } if
- dup type /nametype eq {
- /Encoding findresource
- } if
- dup length array exch % [out] [in]
- 0 1 2 index length 1 sub { % [out] [in] i
- dup 2 index exch get % [out] [in] i n
- dup dup null eq exch /.notdef eq or {
- pop -1
- } {
- dup //AdobeGlyphList exch .knownget { % [out] [in] i n c
- dup type dup /arraytype eq exch /packedarraytype eq or {
- 0 get % fixme: using the 1st char
- } if
- exch pop % [out] [in] i c
- } { % [out] [in] i n
- (DSCEncoding defines a character that is not in AdobeGlyphList : )
- exch .namestring concatstrings =
- /.make_DSC_translation_table cvx /undefined signalerror
- } ifelse
- } ifelse
- 3 index % [out] [in] i c [out]
- 3 1 roll put % [out] [in]
- } for
- pop % [out]
-} bind def
-
-1000 % priority
-{
- % Note, this may not work if the initial device is not pdfwrite
- % and may require the use of -dProvideUnicode on the command line.
- currentdevice .devicename /pdfwrite eq
- systemdict /ProvideUnicode .knownget not { false } if or {
- currentglobal true setglobal
- systemdict /.setupUnicodeDecoder known {
- /Unicode /Decoding resourcestatus {
- pop pop
- /Unicode /Decoding findresource
- .setupUnicodeDecoder
- } {
- QUIET not {
- (WARNING: /Unicode /Decoding resource is not accessible but it is useful for generating ToUnicode CMap.) =
- } if
- } ifelse
- } if
- setglobal
- } if
-} bind .schedule_init
-
-1010 % priority
-{
- % Set a predefined configuration in the distiller device (pdfwrite)
- /PDFSETTINGS where {
- pop /PDFSETTINGS load
- } {
- currentdevice .devicename /ps2write eq { /PSL2Printer } { /default } ifelse
- } ifelse
- .distillersettings exch get
- % Don't override parameters defined on the command line.
- dup length .distillercommon length add dict begin
- .distillercommon 2 {
- {
- systemdict 2 index known { pop pop } { def } ifelse
- } forall
- } repeat
- currentdevice .devicename /pdfwrite eq {
- systemdict /PDFX known systemdict /PDFA known or {
- /DSCEncoding where {
- /DSCEncoding get .make_DSC_translation_table
- /DSCEncodingToUnicode exch def
- } if
- } if
- } if
- currentdict end .setdistillerparams
- .distillerdevice //null false mark .putdeviceparams
- dup type /booleantype eq not { cleartomark pop } if pop pop
-} bind .schedule_init
-
-% Set a path to library files (ps2write)
-.defaultdevicename /ps2write eq {
- mark
- /OPDFReadProcsetPath
- systemdict /OPDFReadProcsetPath .knownget dup { % check for a value on the command-line
- 1 index () eq {
- (Configuration warning : empty OPDFReadProcsetPath, will use defaults.) =
- systemdict /OPDFReadProcsetPath undef
- pop pop false
- } if
- } if
- not { % if necessary, compute a default
- mark
- (gs_mgl_e.ps) (gs_mro_e.ps) (gs_agl.ps) (opdfread.ps) % Reverse order !
- () counttomark 1 sub {
- exch
- .libfile { .filename } { false } ifelse not {
- (Configuration error : library file opdfread.ps not found !) =
- (opdfread.ps) /undefinedfilename signalerror
- } if
- .filenamelistseparator concatstrings concatstrings
- } repeat
- exch pop
- } if
- %stack: mark /OPDFReadProcsetPath <filelist>
- /ps2write finddevice putdeviceprops pop % set the default instance's procset path
-} if
-
-2000 % priority
-{ % Note, this may not work if the initial device is not pdfwrite
- currentdevice .devicename dup /pdfwrite eq exch /ps2write eq or {
- % Inform the device with initial graphic state. See gdev_pdf_fill_path.
- newpath fill
- } if
-} bind .schedule_init