Current File : //proc/thread-self/root/proc/thread-self/root/usr/share/ghostscript/Resource/Init/pdf_ops.ps
% Copyright (C) 2001-2019 Artifex Software, Inc.
% 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.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%
% Definitions for most of the PDF operators.
.currentglobal //true .setglobal
% Define pdfmark. Don't allow it to be bound in.
% Also don't define it in systemdict, because this leads some Adobe code
% to think this interpreter is a distiller.
% (If this interpreter really is a distiller, don't do this.)
systemdict /pdfmark known not
{ userdict /pdfmark { cleartomark } bind executeonly put } if
systemdict /pdfdict where { pop } { /pdfdict 325 dict put } ifelse
userdict /GS_PDF_ProcSet 256 dict dup begin
% ---------------- Abbreviations ---------------- %
/bdef { bind def } bind def
% ---------------- Graphics state stack ---------------- %
% PDF adds a number of parameters to the graphics state.
% We implement this by pushing and popping a dictionary
% each time we do a PDF gsave or grestore.
% The keys in this dictionary are as follows:
% self % identifies the dictionary as one of ours
% ClipRect % (optional)
% Show
% TextSaveMatrix % matrix at time of BT (iff within BT/ET)
% (The following correspond directly to PDF state parameters.)
% AlphaIsShape
% FillConstantAlpha
% FillColor
% FillColorSpace
% FillOverprint
% SoftMask
% StrokeConstantAlpha
% StrokeColor
% StrokeColorSpace
% StrokeOverprint
% TextSpacing
% TextHScaling
% Leading
% TextFont
% TextLineMatrix
% TextMatrix
% TextRise
% TextRenderingMode
% WordSpacing
% (The following is cached information derived from other graphics state params)
% FontMatrixNonHV % TextFont.FontMatrix alters horz/vert glyph advance vector direction
/nodict 1 dict def
nodict /self { //nodict } executeonly put % to avoid recursion in dumps
nodict readonly pop
/dictbeginpage { % <initialdict> dictbeginpage -
20 dict copy dup begin
1 packedarray cvx executeonly /self exch def
graphicsbeginpage textbeginpage
} bind executeonly def
/endpage { % - endpage -
showpage end
} bind executeonly def
/graphicsbeginpage {
initgraphics
//true .setaccuratecurves
currentdict /ClipRect knownoget { aload pop rectclip } if
0 g 0 G //false op //false OP 0 OPM
1 ca 1 CA //null SMask //false AIS /Compatible BM //true TK
} bind executeonly def
% We must allow /Show to be set, otherwise a text operation can
% end up in infinite recursion with showfirst calling Show, and
% Show calling showfirst.
/gput_always_allow
1 dict dup begin
/Show 0 def
end def
/gput % <value> <key> gput -
{
dup //gput_always_allow exch known not currentdict /n known and {
pop pop
( **** Error: Ignoring changes to the graphic state after operator 'W'.\n) pdfformaterror
( Output may be incorrect.\n) pdfformaterror
} {
exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
def
} ifelse
} bind executeonly def
currentdict /gput_always_allow .undef
/q {
%% Special case, if we get a 'q' while accumulating clip/eoclip then
%% we need to make sure we close the current dictionary, and reopen it after
%% performing the gsave, so that the redefinition of 'n' in particular is correct
currentdict /n known {
currentdict %% copy the dicitonary for the accumulation
end %% and close it (NB *before* the gsave!)
gsave //nodict begin %% execute gsave and start 'nodict' just like normal
begin %% reopen the accumulation dictionary.
%% when we execute 'n' this will close and we'll go back
%% to the regular 'nodict' opened above. This could cause some
%% odd interactions with 'Q' for unbalanced files.....
} {
%% ugly hackery to work around badly broken PDF file in Bug #695897. The file has nested BT/ET
%% sections, and delimits them with q/Q. The problem is that our code to deal with nested
%% text sections looks in the current dictionary for TextSaveMatrix, and a 'q' makes a brand
%% new empty dictionary, so it defeats it.
%% I tried copying the TextSaveMatrix from the parent state into this one, but that then causes
%% other problems because we end up apllying the TextSaveMatrix when we shouold not. Attempting
%% to clear the TextSaveMatrix from all saved states on ET then caused it not to be defined at
%% times when we needed it.....
%% This is all terribly flaky, but defining a new matrix inside gsaves that tells us that we had
%% were already in a text block allows us to detect and cope with the nested BT's and leaving the
%% original TextSaveMatrix behind allows the matching ET not to throw an error, as well as coping
%% with the various other problems listed above. Its not pretty though.
currentdict /TextSaveMatrix known {
currentdict /TextSaveMatrix get matrix copy
gsave //nodict begin
/qTextSaveMatrix gput
}{
gsave //nodict begin
}ifelse
} ifelse
PDFusingtransparency { .pushextendedgstate } if
} bind executeonly def
% Some PDF files have excess Q operators!
/Q {
//false
{ currentdict /n known { end pop //true } { exit } ifelse
} loop {
( **** Error: Encountered a 'Q' before finishing 'W' mode.\n)
pdfformaterror
( Output may be incorrect..\n) pdfformaterror
} if
currentdict /self .knownget {
exec //nodict eq {
end
PDFusingtransparency { .popextendedgstate } if
% Restore graphics state, but do not modify path. Paths are not part
% of the PDF graphics state; see 4.4.1 of PDF reference 3rd ed.
% Collecting the path with one ctm and re-playing it with another ctm
% transforms the path exactly as PDF needs.
{.getpath} stopped {
( **** Error: unable to preserve current path, probable degenerate CTM, output may be incorrect.\n) pdfformaterror
grestore newpath
}{
grestore newpath { exec } forall
} ifelse
//false
} {
//true
} ifelse
} {
//true % formaterror -- not a gsave dict
} ifelse
{
(\n **** Error: File has unbalanced q/Q operators \(too many Q's\)\n Output may be incorrect.\n)
//pdfdict /.Qqwarning_issued .knownget
{
{
pop
}
{
currentglobal //pdfdict gcheck .setglobal
//pdfdict /.Qqwarning_issued //true .forceput
.setglobal
pdfformaterror
} executeonly ifelse
} executeonly
{
currentglobal //pdfdict gcheck .setglobal
//pdfdict /.Qqwarning_issued //true .forceput
.setglobal
pdfformaterror
} executeonly ifelse
} executeonly if
} bind executeonly odef
% Save PDF gstate
/qstate { % - qstate <qstate>
gstate
} bind executeonly def
% Set PDF gstate
/setqstate { % <qstate> setqstate -
{ matrix setmatrix //false upath } stopped {
pop setgstate newpath
} {
% Save the CTM, set identity during the uappend, then set the CTM
exch setgstate matrix currentmatrix matrix setmatrix
exch newpath uappend setmatrix
} ifelse
} bind executeonly def
% ---------------- Color setting ---------------- %
/nullpatternproc { pop } bind executeonly def
/nullpattern mark
/PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 1 1]
/XStep 1 /YStep 1 /PaintProc //nullpatternproc
.dicttomark readonly def
/PDFsetpattern {
% Since multiple patterns may share
% same data stream, we need to ensure
% that the stream is at 0 position.
% Making this consistently with resolveshading,
% which applies ReusableStreamDecode filter
% to the PS stream, which represents the
% PDF stream in dynamics.
dup /Shading knownoget {
dup /ShadingType oget 4 ge {
/DataSource knownoget {
dup type /filetype eq {
0 setfileposition
} {
pop
} ifelse
} if
} {
pop
} ifelse
} if
% Associate pattern instance with the default qstate for the context.
% A single pattren object can be reused in several contexts.
dup DefaultQstate .knownget {
exch pop
} {
% But don't update read-only initial null pattern.
dup /PaintProc .knownget { //nullpatternproc ne } { //true } ifelse {
dup dup /Matrix knownoget not { { 1 0 0 1 0 0 } } if
gsave
.currentfillconstantalpha
.currentstrokeconstantalpha
DefaultQstate setqstate
.setstrokeconstantalpha
.setfillconstantalpha
makepattern
grestore
dup 3 1 roll
DefaultQstate exch put
} if
} ifelse
} bind executeonly def
/CSdict mark
/DeviceGray { 0 } bind executeonly
/DeviceRGB { [0 0 0] cvx } bind executeonly
/DeviceCMYK { [0 0 0 1] cvx } bind executeonly
/CIEBasedA { 0 } bind executeonly
/CIEBasedABC { [0 0 0] cvx } bind executeonly
/CalGray { pop /DeviceGray 0 } bind executeonly
/CalRGB { pop /DeviceRGB [0 0 0] cvx } bind executeonly
/Lab {[0 0 0] cvx } bind executeonly
/ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind executeonly
/Separation { 1 } bind executeonly
/DeviceN { % What is the correct value??
[ 1 index 1 get length { 1 } repeat ] cvx
} bind executeonly
/Indexed { 0 } bind executeonly
/Pattern { //nullpattern matrix makepattern } bind executeonly
.dicttomark readonly def
/ri {//.renderingintentdict exch .knownget { .setrenderingintent } if } bind executeonly def
/g {/DeviceGray .setfillcolorspace .setfillcolor } bind executeonly def
/G {/DeviceGray .setstrokecolorspace .setstrokecolor} bind executeonly def
/rg {/DeviceRGB .setfillcolorspace .setfillcolor} bind executeonly def
/RG {/DeviceRGB .setstrokecolorspace .setstrokecolor} bind executeonly def
/k {/DeviceCMYK .setfillcolorspace .setfillcolor} bind executeonly def
/K {/DeviceCMYK .setstrokecolorspace .setstrokecolor} bind executeonly def
/cs {dup dup type /nametype ne { 0 get } if
dup /ICCBased eq {
1 index 1 get /OrigN .knownget not {1 index 1 get /N get} if mark
4 2 roll
//CSdict exch get exec exch .setfillcolorspace exec {.setfillcolor} stopped
{
(error) == flush
cleartomark
[//null /DeviceGray //null /DeviceRGB /DeviceCMYK] exch
{get} stopped
{
( **** Error: Unable to set an ICCBased colour space, and cannot set an alternate from the number of components.\n) print
/setcolorspace cvx /undefined signalerror
}
{
dup //null eq {
( **** Error: Unable to set an ICCBased colour space, and cannot set an alternate from the number of components.\n) print
/setcolorspace cvx /undefined signalerror
}{
ICCProfileNError flush not {
( **** Warning : Error setting an ICCBased colour space, using /N to set an alternate device space.\n) print
( Output may be incorrect.\n) print
} if
setcolorspace
/ICCProfileNError where {/ICCProfileNError //true put} if
} ifelse
}ifelse
}{
cleartomark pop
}
ifelse
} {
//CSdict exch get exec exch .setfillcolorspace exec .setfillcolor
} ifelse
} bind executeonly def
/CS {dup dup type /nametype ne { 0 get } if
dup /ICCBased eq {
1 index 1 get /OrigN .knownget not {1 index 1 get /N get} if mark
4 2 roll
//CSdict exch get exec exch .setstrokecolorspace exec {.setstrokecolor} stopped
{
cleartomark
[//null /DeviceGray //null /DeviceRGB /DeviceCMYK] exch
{get} stopped
{
( **** Error: Unable to set an ICCBased colour space, and cannot set an alternate from the number of components.\n) print
/setcolorspace cvx /undefined signalerror
}
{
dup //null eq {
( **** Error: Unable to set an ICCBased colour space, and cannot set an alternate from the number of components.\n) print
/setcolorspace cvx /undefined signalerror
}{
ICCProfileNError flush not {
( **** Warning : Error setting an ICCBased colour space, using /N to set an alternate device space.\n) print
( Output may be incorrect.\n) print
} if
setcolorspace
/ICCProfileNError where {/ICCProfileNError //true put} if
} ifelse
}ifelse
}{
cleartomark pop
}
ifelse
} {
//CSdict exch get exec exch .setstrokecolorspace exec .setstrokecolor
} ifelse
} bind executeonly def
/sc {.setfillcolor} bind executeonly def
/SC {.setstrokecolor} bind executeonly def
/sc* {.setfillcolor} bind executeonly def
/SC* {.setstrokecolor} bind executeonly def
/sc*_and_set {
dup type /dicttype eq
{
dup /Type known
{
dup /Type get /Pattern eq {PDFsetpattern} if
}
{
dup /PatternType known {PDFsetpattern} if
} ifelse
} if
.setfillcolor
} bind executeonly def
/SC*_and_set {
dup type /dicttype eq
{
dup /Type known
{
dup /Type get /Pattern eq {PDFsetpattern} if
}
{
dup /PatternType known {PDFsetpattern} if
} ifelse
} if
.setstrokecolor
} bind executeonly def
/sc1 {.setfillcolor} bind executeonly def
/SC1 {.setstrokecolor} bind executeonly def
/sc1_and_set {
dup type /dicttype eq
{
dup /Type known
{
dup /Type get /Pattern eq {PDFsetpattern} if
}
{
dup /PatternType known {PDFsetpattern} if
} ifelse
} if
.setfillcolor
} bind executeonly def
/SC1_and_set {
dup type /dicttype eq
{
dup /Type known
{
dup /Type get /Pattern eq {PDFsetpattern} if
}
{
dup /PatternType known {PDFsetpattern} if
} ifelse
} if
.setstrokecolor
} bind executeonly def
/csput {dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch 2 copy .setfillcolorspace exec .setfillcolor .setstrokecolorspace exec .setstrokecolor} bind executeonly def
/csset {dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch} bind executeonly def
% ---------------- Color setting ---------------- %
% ---------------- Overprint/transparency setting ---------------- %
/op { .setfilloverprint
} bind executeonly def % NB pdf_draw:gsparamdict handled /OP with no /op
/OP { .setstrokeoverprint
} bind executeonly def
/OPM {
/.setoverprintmode where { pop dup .setoverprintmode .swapcolors .setoverprintmode .swapcolors } { pop } ifelse
} bind executeonly def
/ca { .setfillconstantalpha } bind executeonly def
/CA { .setstrokeconstantalpha } bind executeonly def
/SMask {
dup type /booleantype eq {
.currentSMask type /dicttype eq {
.currentSMask /Processed 2 index .forceput
} executeonly
{
.setSMask
}ifelse
} executeonly
{
.setSMask
}ifelse
%% This is some craziness to do with annotations and graphics states
%% the original nodict can't be written to, and we haven't (I think) done
%% a gsave, so we haven't copied it to /self, if we don't do that here
%% then transparent annotations cause an invalid access error.
currentdict //nodict eq {/self dup load end 5 dict begin def} if
} bind executeonly odef
/AIS { .setalphaisshape } bind executeonly def
/BM {
/.setblendmode where {
pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
{ .setblendmode } //.internalstopped exec not { exit } if pop
} forall
} {
pop
} ifelse
} bind executeonly def
/TK {
/.settextknockout where { pop .settextknockout } { pop } ifelse
} bind executeonly def
/UseBlackPtComp {
%% Our implementation of black point compensation uses 0 or 1, not a boolean
/.setblackptcomp where {pop //false eq {0}{1}ifelse .setblackptcomp }{ pop } ifelse
} bind executeonly def
% ---------------- Color installation ---------------- %
% Establish a given color (and color space) as current.
/.settransparencyparams { % <alpha> <smask> .settransparencyparams -
PDFusingtransparency {
.currentalphaisshape
{
1 .setopacityalpha exch .setshapealpha 1
} {
1 .setshapealpha exch .setopacityalpha 0
} ifelse
% Set the soft mask by rendering the XObject. Doing this every time
% is obviously very inefficient; we'll improve it later.
.settransparencymask
} {
pop pop
} ifelse
} bind executeonly def
/.settransparencymask { % <paramdict> <masknum> .settransparencymask -
exch dup type /dicttype ne {
PDFusingtransparency {
pop pop
} {
dup /Draw get exec
} ifelse
} {
dup /Processed .knownget {
{
pop pop
} {
dup /Draw get exec
}ifelse
}{
dup /Draw get exec
} ifelse
} ifelse
} bind executeonly def
% (Non-mask) images must execute setfillblend.
/setfillblend {
.currentfillconstantalpha
.currentSMask .settransparencyparams
} bind executeonly def
/setfillstate {
setfillblend
} bind executeonly def
/setstrokestate {
.currentstrokeconstantalpha
.currentSMask .settransparencyparams
} bind executeonly def
/Cdict 15 dict dup begin % <color...> <colorspace> -proc- -
/DeviceGray { pop setgray } bind executeonly def
/DeviceRGB { pop setrgbcolor } bind executeonly def
/DeviceCMYK { pop setcmykcolor } bind executeonly def
/CIEBasedA { setgcolorspace setcolor } bind executeonly def
/CIEBasedABC /CIEBasedA load def
/CIEBasedDEF /CIEBasedA load def
/CIEBasedDEFG /CIEBasedA load def
/CalRGB /CIEBasedA load def
/CalGray /CIEBasedA load def
/Lab /CIEBasedA load def
%% This section is to deal with the horrible pair of files in Bug #696690 and Bug #696120
%% These files have ICCBased spaces where the value of /N and the number of components
%% in the profile differ. In addition the profile in Bug #696690 is invalid. In the
%% case of Bug #696690 the /N value is correct, and the profile is wrong, in the case
%% of Bug #696120 the /N value is incorrect and the profile is correct.
%% We 'suspect' that Acrobat uses the fact that Bug #696120 is a pure image to detect
%% that the /N is incorrect, we can't be sure whether it uses the profile or just uses
%% the /N to decide on a device space. What we now do is; If the /N and device profile
%% number of components don't match, we assume the device profile is correct and patch
%% /N to be the same as the profile (see /ICCBased-resolve), but we save the original
%% value of /N in /OrigN. In setcolor, if the space is a genuine ICCBased space
%% (not a replacement for a device profile) we call set_dev_color which will actually
%% exercise the profile. If that fails we return an error. Here we run setcolor in a
%% stopped context, and if it fails we check to see if there is a /OrigN (ths occurs
%% only if the /N was different to the number of components in the profile). If there
%% is a /OrigN then prefer that to the profile, otherwise they agreed, so just use
%% /N and select a device space. If we can't select a device space with the correct
%% number of components, give up and throw an error. See also /last-ditch-bpc-csp
%% in pdf_draw.ps.
/ICCBased {
dup 1 get
dup /OrigN .knownget {exch /N get}{/N get dup} ifelse
3 add mark exch 2 roll
setgcolorspace {setcolor} stopped
{
cleartomark
[//null /DeviceGray //null /DeviceRGB /DeviceCMYK] exch
{get} stopped
{
( **** Error: Unable to set an ICCBased colour space, and cannot set an alternate from the number of components.\n) print
/setcolorspace cvx /undefined signalerror
}
{
dup //null eq {
( **** Error: Unable to set an ICCBased colour space, and cannot set an alternate from the number of components.\n) print
/setcolorspace cvx /undefined signalerror
}{
ICCProfileNError flush not {
( **** Warning : Error setting an ICCBased colour space, using /N to set an alternate device space.\n) print
( Output may be incorrect.\n) print
} if
setcolorspace
/ICCProfileNError //true def
} ifelse
}ifelse
}{
cleartomark pop
}
ifelse
} bind executeonly def
/Separation /CIEBasedA load def
/DeviceN /CIEBasedA load def
/Indexed /CIEBasedA load def
/Pattern
{ setgcolorspace
% Since multiple patterns may share
% same data stream, we need to ensure
% that the stream is at 0 position.
% Making this consistently with resolveshading,
% which applies ReusableStreamDecode filter
% to the PS stream, which represents the
% PDF stream in dynamics.
dup /Shading knownoget {
dup /ShadingType oget 4 ge {
/DataSource knownoget {
dup type /filetype eq {
0 setfileposition
} {
pop
} ifelse
} if
} {
pop
} ifelse
} if
% Associate pattern instance with the default qstate for the context.
% A single pattren object can be reused in several contexts.
dup DefaultQstate .knownget {
exch pop
} {
% But don't update read-only initial null pattern.
dup /PaintProc .knownget { //nullpatternproc ne } { //true } ifelse {
dup dup /Matrix knownoget not { { 1 0 0 1 0 0 } } if
gsave
.currentfillconstantalpha
.currentstrokeconstantalpha
DefaultQstate setqstate
.setstrokeconstantalpha
.setfillconstantalpha
makepattern
grestore
dup 3 1 roll
DefaultQstate exch put
} if
} ifelse
setcolor
} bind executeonly def
end def
/setgcolor % (null | <color...>) <colorspace> setgcolor -
{ 1 index //null eq
{ pop pop }
{ dup 0 get //Cdict exch get exec }
ifelse
} bind executeonly def
% Compare the old and new color spaces in an attempt to avoid expensive
% reloads of CIEBased color spaces.
/PCSdict 15 dict dup begin % <colorspace> -proc- <colorspace|pdfcspace>
/CIEBasedA { dup 1 get /PDFColorSpace .knownget { exch pop } if } bind executeonly def
/CIEBasedABC /CIEBasedA load def
/CIEBasedDEF /CIEBasedA load def
/CIEBasedDEFG /CIEBasedA load def
/Indexed {
dup 1 get dup pdfcolorspace 2 copy ne { 3 1 roll } if pop pop
} bind executeonly def
end def
/pdfcolorspace { % <colorspace> pdfcolorspace <colorspace|pdfcspace>
dup type /arraytype eq {
//PCSdict 1 index 0 get .knownget { exec } if
} if
} bind executeonly def
/setgcolorspace { % <colorspace> setgcolorspace -
dup pdfcolorspace currentcolorspace pdfcolorspace eq {
pop
} {
setcolorspace
} ifelse
} bind executeonly def
/OPsavedict 2 dict def % for saveOP, saveBM
% colorspaces that don't require special overprint transparency handling
/okOPcs mark /DeviceGray 0 /DeviceCMYK 1 /DeviceN 2 /Separation 3 .dicttomark def
/checkOPtrans % <fillop|strokeop> checkOPtrans <bool>
% return true if OP needs special transparency treatment
% If the colorspace is not one where overprint makes sense, no special handling (return false)
% NB: This will get replaced with a quick "no-op" if the device doesn't support Overprint
{ % Check OP and BM in case we need to push a group
okOPcs currentcolorspace 0 get dup /Indexed eq {
pop currentcolorspace 1 get % use the base space
} if
known {
/stroke ne { .currentfilloverprint
} { .currentstrokeoverprint
} ifelse
.currentblendmode dup /Normal eq exch /Compatible eq or not and
} {
pop //false
} ifelse
} bind executeonly def
/fsexec % <fillop|strokeop> fsexec -
{
PDFusingtransparency {
.currentSMask //null ne {
mark /Subtype /Group /Isolated //true .dicttomark
1 index /stroke eq {
% BBox needs to include line width / line join expansion.
gsave strokepath pathbbox grestore
} {
pathbbox % fill/eofill cases
} ifelse
.begintransparencygroup
.currentshapealpha .currentopacityalpha 3 -1 roll % avoid double application
1 .setopacityalpha 1 .setshapealpha
} if
dup checkOPtrans exch 1 index {
% We need to push a non-isolated, non-knockout transparency group and
% perform the operation in CompatibleOverprint mode, then end the
% transparency group. Do the begintransparencygroup step here.
mark /Subtype /Group /Isolated //false .dicttomark pathbbox .begintransparencygroup
.currentblendmode .currentopacityalpha 4 -2 roll % save current values
/CompatibleOverprint .setblendmode 1 .setopacityalpha
} if
cvx exec
{
.endtransparencygroup .setopacityalpha .setblendmode % end the CompatibleOverprint group
} if
.currentSMask //null ne {
.endtransparencygroup .setopacityalpha .setshapealpha
} if
} {
cvx exec
} ifelse
} bind executeonly def
% ---------------- Path painting and clipping ---------------- %
%% Bug #696017 In order to get the correct position of paths and other objects which
%% are illegally present inside a text block, we need to use the saved TextSaveMatrix
%% to construct/place them. But we don't want to do lots of lookups on every segment of
%% a path (we feel its OK to do lookups for images). So what we do is redefine the
%% path contruction operators at the beginning of a text block, and put them back afterwards.
%% Here we define the 'normal' and 'inside text' versions of those operators, and routines
%% to switch the definitions back and forth.
/check_and_set_saved_matrix {
currentdict /TextSaveMatrix known {
currentdict /TextSaveMatrix get setmatrix
}
{
currentdict /qTextSaveMatrix known {
currentdict /qTextSaveMatrix get setmatrix
} if
} ifelse
} bind executeonly def
/normal_m { { moveto } stopped { count pdfemptycount sub 2 .min { pop } repeat 0 0 moveto } if } bind executeonly def
/inside_text_m {
{
matrix currentmatrix 3 1 roll
check_and_set_saved_matrix
moveto
setmatrix
}
stopped { count pdfemptycount sub 2 .min { pop } repeat 0 0 moveto } if
} bind executeonly def
/normal_l { { lineto } stopped { count pdfemptycount sub 2 .min { pop } repeat } if } bind executeonly def
/inside_text_l {
{
matrix currentmatrix 3 1 roll
check_and_set_saved_matrix
lineto
setmatrix
}
stopped { count pdfemptycount sub 2 .min { pop } repeat } if
} bind executeonly def
/normal_c { { curveto } stopped { count pdfemptycount sub 6 .min { pop } repeat } if } bind executeonly def
/inside_text_c {
{
matrix currentmatrix 7 1 roll
check_and_set_saved_matrix
curveto
setmatrix
}
stopped { count pdfemptycount sub 6 .min { pop } repeat } if
} bind executeonly def
/normal_v { count pdfemptycount sub 4 ge {
{ currentpoint 6 2 roll curveto } stopped { count pdfemptycount sub 6 .min { pop } repeat } if
} {
count pdfemptycount sub { pop } repeat
} ifelse
} bind executeonly def
/inside_text_v { count pdfemptycount sub 4 ge {
{
matrix currentmatrix 5 1 roll
check_and_set_saved_matrix
currentpoint 6 2 roll curveto
setmatrix
} stopped { count pdfemptycount sub 6 .min { pop } repeat } if
} {
count pdfemptycount sub { pop } repeat
} ifelse
} bind executeonly def
/normal_y { { 2 copy curveto } stopped { count pdfemptycount sub 6 .min { pop } repeat } if } bind executeonly def
/inside_text_y {
{
matrix currentmatrix 5 1 roll
check_and_set_saved_matrix
2 copy curveto
setmatrix
}
stopped { count pdfemptycount sub 6 .min { pop } repeat } if
} bind executeonly def
/normal_re {
4 2 roll moveto exch dup 0 rlineto 0 3 -1 roll rlineto neg 0 rlineto
closepath
} bind executeonly def
/inside_text_re {
matrix currentmatrix 5 1 roll
check_and_set_saved_matrix
4 2 roll moveto exch dup 0 rlineto 0 3 -1 roll rlineto neg 0 rlineto
closepath
setmatrix
} bind executeonly def
/S {
OFFlevels length 0 eq {
setstrokestate .swapcolors /stroke fsexec .swapcolors
} {
newpath
} ifelse
} bind executeonly def
/f {
OFFlevels length 0 eq {
setfillstate /fill fsexec
} {
newpath
} ifelse
} bind executeonly def
/f* {
OFFlevels length 0 eq {
setfillstate /eofill fsexec
} {
newpath
} ifelse
} bind executeonly def
/n { newpath } bind executeonly def % don't allow n to get bound in
/s { closepath S } bind executeonly def
/B {
OFFlevels length 0 eq {
PDFusingtransparency {
% knockout trans group around the filled and stroked object
mark
/Isolated //true /Knockout //true
.dicttomark
% strokepath will return empty path (no currentpoint) if nothing is stroked
gsave { strokepath pathbbox } stopped grestore not {
1 .setopacityalpha
.begintransparencygroup
gsave setfillstate fill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
.endtransparencygroup
} { newpath pop } ifelse
} {
gsave setfillstate fill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
} ifelse
} {
newpath
} ifelse
} bind executeonly def
/b { closepath B } bind executeonly def
/B* {
OFFlevels length 0 eq {
PDFusingtransparency {
% knockout trans group around the filled and stroked object
mark
/Isolated //true /Knockout //true
.dicttomark
% strokepath will return empty path (no currentpoint) if nothing is stroked
gsave { strokepath pathbbox } stopped grestore not {
1 .setopacityalpha
.begintransparencygroup
gsave setfillstate eofill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
.endtransparencygroup
} { newpath pop } ifelse
} {
gsave setfillstate eofill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
} ifelse
} {
newpath
} ifelse
} bind executeonly def
/b* { closepath B* } bind executeonly def
% Clipping:
/Wdict 8 dict dup begin
/S { OFFlevels length 0 eq { gsave setstrokestate .swapcolors stroke .swapcolors grestore } if n } bind executeonly def
/f { OFFlevels length 0 eq { gsave setfillstate fill grestore } if n } bind executeonly def
/f* { OFFlevels length 0 eq { gsave setfillstate eofill grestore } if n } bind executeonly def
/B {
OFFlevels length 0 eq {
PDFusingtransparency {
% knockout trans group around the filled and stroked object
mark
/Isolated //true /Knockout //true
.dicttomark
% strokepath will return empty path (no currentpoint) if nothing is stroked
gsave {strokepath pathbbox } stopped grestore not
{
1 .setopacityalpha
.begintransparencygroup
gsave setfillstate fill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
.endtransparencygroup
} {
newpath pop
} ifelse
} {
gsave setfillstate fill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
} ifelse
} if
n
} bind executeonly def
/b { closepath B } bind executeonly def
/B* {
OFFlevels length 0 eq {
PDFusingtransparency {
% knockout trans group around the filled and stroked object
mark
/Isolated //true /Knockout //true
.dicttomark
% strokepath will return empty path (no currentpoint) if nothing is stroked
gsave {strokepath pathbbox} stopped grestore not {
1 .setopacityalpha
.begintransparencygroup
gsave setfillstate eofill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
.endtransparencygroup
} { newpath pop } ifelse
} {
gsave setfillstate eofill grestore
setstrokestate .swapcolors /stroke fsexec .swapcolors
} ifelse
} if
n
} bind executeonly def
/b { closepath B* } bind executeonly def
/n { end { currentpoint } stopped not { pop pop clip } if newpath } bind executeonly def
end readonly def
/W { //Wdict begin } bind executeonly def
/W*dict 8 dict dup begin
Wdict { def } forall
/n { end { currentpoint } stopped not { pop pop eoclip } if newpath } bind executeonly def
end readonly def
/W* { //W*dict begin } bind executeonly def
% ---------------- Text control ---------------- %
/textbeginpage
{
1.0 .settexthscaling
/FontMatrixNonHV //false def
/Show { showfirst } def
/TextFillStateNeeded //true def
} bind executeonly def
/TestDegenerateCTM {
matrix currentmatrix
dup 0 get
exch dup 3 get
exch dup 1 get
exch 2 get
mul
3 1 roll mul
exch sub
0 eq {
//true
}{
//false
} ifelse
} bind executeonly def
% Contrary to the statement in the PDF manual, BT and ET *can* be nested,
% if the CharProc for a Type 3 font does a BT/ET itself.
% Since we always call the CharProc inside a q/Q, we simply ensure that
% the text state is saved and restored like the rest of the extended
% graphics state.
/settextmatrix {
matrix currentmatrix
matrix .currenttextmatrix
concat
TestDegenerateCTM {
(\n **** Error: Degenerate text matrix detected, ignoring Tm operation\n) pdfformaterror
( Output may be incorrect.\n) pdfformaterror
setmatrix
} {
pop
} ifelse
.currenttexthscaling
1 ne { .currenttexthscaling
1 scale } if
.currenttextrise 0 ne { 0 .currenttextrise
translate } if
} bind executeonly def
/settextstate {
% The text state can be set even outside BT/ET.
currentdict /TextSaveMatrix known {
TextSaveMatrix
aload pop
5 index 0 ne 3 index 0 ne and
5 index 0 ne 5 index 0 ne and or not {
(\n **** Error: Invalid (0 scaling) text matrix for Tm ****\n)
pdfformaterror
( Output may be incorrect.\n) pdfformaterror
% handle invalid scale by using a really small value
2 -6 roll pop pop pop pop
0.00000001 0 0 0.00000001
6 -2 roll
}if
6 array astore
setmatrix settextmatrix
} if
currentdict /qTextSaveMatrix known {
qTextSaveMatrix
aload pop
5 index 0 ne 3 index 0 ne and
5 index 0 ne 5 index 0 ne and or not {
(\n **** Error: Invalid (0 scaling) text matrix for Tm ****\n)
pdfformaterror
( Output may be incorrect.\n) pdfformaterror
% handle invalid scale by using a really small value
2 -6 roll pop pop pop pop
0.00000001 0 0 0.00000001
6 -2 roll
}if
6 array astore
setmatrix settextmatrix
} if
} bind executeonly def
/settextposition {
% Update the TextMatrix translation.
gsave TextSaveMatrix setmatrix
{currentpoint} stopped not {
.currenttextrise
sub
matrix .currenttextmatrix
dup 5 4 -1 roll put
dup 4 4 -1 roll put
.settextmatrix
% We would like to do "grestore currentpoint translate"
% here, but some PDF files set a singular text matrix
% (0 0 0 0 <x> <y> Tm), so we can't do this.
TextTempMatrix identmatrix setmatrix currentpoint
matrix .currenttextmatrix
grestore
.settextmatrix
TextTempMatrix currentmatrix 4 2 getinterval astore pop
TextTempMatrix setmatrix
} {
( **** Error: Invalid currentpoint, probable degenerate CTM.\n) pdfformaterror
( Ignroing error, output may be incorrect.\n) pdfformaterror
grestore
} ifelse
} bind executeonly def
%% Do not make the procedures here executeonly. The /m procedure is
%% tested in /.pdf_paintproc in pdf_draw.ps, we need to be able to
%% read the name of the procedure from here in order to determine
%% whether we are inside a text block. The procedures themselves
%% are already executeonly anyway.
/switch_to_text_marking_ops {
pdfopdict /m {inside_text_m} bind .forceput
pdfopdict /l {inside_text_l} bind .forceput
pdfopdict /c {inside_text_c} bind .forceput
pdfopdict /v {inside_text_v} bind .forceput
pdfopdict /y {inside_text_y} bind .forceput
pdfopdict /re {inside_text_re} bind .forceput
} bind executeonly odef
/switch_to_normal_marking_ops {
pdfopdict /m {normal_m} bind .forceput
pdfopdict /l {normal_l} bind .forceput
pdfopdict /c {normal_c} bind .forceput
pdfopdict /v {normal_v} bind .forceput
pdfopdict /y {normal_y} bind .forceput
pdfopdict /re {normal_re} bind .forceput
} bind executeonly odef
/BT {
currentdict /TextSaveMatrix known {
( **** Error: illegal nested BT operator detected.\n)
pdfformaterror
( Output may be incorrect.\n) pdfformaterror
ET_NO_TXT_KO %% Does not push any compositor actions
} if
%% Bug #695897 see the explanation in /q defined above.
currentdict /qTextSaveMatrix known {
currentdict /qTextSaveMatrix get /TextSaveMatrix gput
( **** Error: Illegal nested BT operator (inside a gsave) detected.\n)
pdfformaterror
( Output may be incorrect.\n) pdfformaterror
ET_NO_TXT_KO %% Does not push any compositor actions
} if
currentdict /n known {
currentdict end
/.W exch def
} if
matrix .settextlinematrix
matrix .settextmatrix
{ showfirst } /Show gput
currentdict /TextSaveMatrix .knownget not {
matrix dup /TextSaveMatrix gput
} if currentmatrix pop settextmatrix
matrix /TextTempMatrix gput % see settextposition
%% Set the special version of the path constructoin operators, so that
%% they will work as expected if they are illgeally present in a text block.
switch_to_text_marking_ops
%% If needed, let the pdf14 device know we are in a BT condition. This
%% distinguishes BT from an Annotation /FreeText show command which also
%% can come into pdf_text_begin with an opacity not equal to 1.
PDFusingtransparency .currenttextknockout and {
.begintransparencytextgroup
} if
} bind executeonly def
/ET_NO_TXT_KO {
currentdict /TextSaveMatrix known {
.currenttextrenderingmode 4 ge { .currentfilladjust2 0 dup .setfilladjust2 clip .setfilladjust2} if
newpath TextSaveMatrix setmatrix
currentdict /TextSaveMatrix undef
% if we were in a W/W* context, grab the dict, undefine temp entry for it,
% and push it back on the dict stack
currentdict /.W known {
.W
currentdict /.W undef
begin
} if
} {
( **** Error: Ignoring spurious ET operator.\n)
pdfformaterror
( Output may be incorrect.\n) pdfformaterror
} ifelse
%% Only switch back to the regular marking operations if we were not
%% in a nested text block (inside a gsave).
currentdict /qTextSaveMatrix known not {
switch_to_normal_marking_ops
} if
} bind executeonly def
/ET {
//ET_NO_TXT_KO exec
% Group push occurred in pdf14_text_begin.
PDFusingtransparency .currenttextknockout and {
.endtransparencytextgroup
} if
} bind executeonly def
/Tc { .settextspacing { showfirst } /Show gput } bind executeonly def
/TL { .settextleading } bind executeonly def
/Tr { .settextrenderingmode { showfirst } /Show gput } bind executeonly def
/Ts { .settextrise settextstate } bind executeonly def
/Tw { .setwordspacing { showfirst } /Show gput } bind executeonly def
/Tz {
dup 0 eq {
(\n **** Error: Invalid 0.0 horizontal text scaling given for Tz\n)
( Output may be incorrect.\n) pdfformaterror
pdfformaterror
pop 0.00000001 % handle invalid scale by using a really small value
}{
100 div
}ifelse .settexthscaling %/TextHScaling gput
settextstate} bind executeonly def
% ---------------- Font control ---------------- %
% Test if the FontMatrix could transform a horizontal/vertical (depending
% on writing mode) advance vector in glyph space into one with a different
% direction in text space.
% - if FontMatrix = [a b c d tx ty], this condition translates to:
% b != 0 for horizontal writing mode
% c != 0 for vertical writing mode
% - when false, we automatically have wy/x == 0 in text space whenever wy/x == 0
% in glyph space, and can avoid the slow method that is otherwise necessary
% to implement zeroing wy/x cf PDF Ref 5.3.3 "Text space details"
% Worker procedure for testing a single font matrix
/?FontMatrixNonHV { % ?horz <<fontdict>> -- ?horz ?nonhv
/FontMatrix .knownget {
1 index { 1 } { 2 } ifelse get 0 ne
} {
//false
} ifelse
} bind executeonly def
% Worker procedure for recursive checking of font matrices
/?FontMatrixNonHV { % {self} ?horz <<font>> -- {self} ?horz ?nonhv
2 copy //?FontMatrixNonHV exec { % check the font's own FontMatrix
pop pop //true
} {
% look for descendents/ components
pop % {self} ?horz <<font>>
dup /FontType get
dup 0 eq { % Type 0: look into FDepVector
pop /FDepVector get 2 index % {self} ?horz [fonts..] {testproc}
} {
9 eq { % Type 9 (CIDFontType 0): check FDArray
/FDArray get //?FontMatrixNonHV
} { % all others: nothing more to check
pop {} {}
} ifelse
} ifelse
%stack: {self} ?horz [fonts..] {testproc}
//false 5 2 roll { % {testproc} false {self} ?horz <<subfont>>
4 index exec {
4 -1 roll pop //true 4 1 roll
exit
} if
} forall
%stack: {testproc} ?nonhv {self} ?horz
4 2 roll exch pop
} ifelse
} bind executeonly def
% Main procedure
/?FontMatrixNonHV { % <<rootfont>> -- ?nonhv
//?FontMatrixNonHV exch
% determine WMode
dup /WMode .knownget { 0 eq } { //true } ifelse % {proc} <<rootfont>> ?horz
exch
% call the worker procedure
//?FontMatrixNonHV exec
exch pop exch pop
} bind executeonly def
/Tf { % <font> <scale> Tf -
dup .setPDFfontsize
dup 0 eq {
pop 0.00000001 % handle invalid scale by using a really small value
} if
1 index type /dicttype ne {
selectfont currentfont
} {
dup 1 eq { pop } { scalefont } ifelse
}
ifelse
dup ?FontMatrixNonHV dup FontMatrixNonHV ne {
/FontMatrixNonHV gput
{ showfirst } /Show gput
} {
pop
} ifelse
setfont
} bind executeonly def
% Copy a font, removing its FID. If changed is true, also remove
% the UniqueID and XUID, if any. If the original dictionary doesn't have
% the keys being removed, don't copy it.
/.copyfontdict % <font> <changed> .copyfontdict <dict>
{
1 index /.OrigUniqueIDXUID .knownget
{//false}
{
1 index /XUID .knownget
{
//true 1 index {0 gt and} forall
{//false}{pop //true} ifelse
}
{
//true
}ifelse
} ifelse
{
1 index /UniqueID .knownget
{[exch]}{//null} ifelse
} if
3 1 roll
1 index /FID known
1 index { 2 index /UniqueID known or 2 index /XUID known or } if
{ % We add 1 to the length just in case the original
% didn't have a FID.
exch dup length 1 add dict exch
{ % Stack: changed newfont key value
1 index /FID eq
not { 3 copy put } if pop pop
}
forall exch
}
if pop
1 index //null eq
{exch pop}
{dup 3 -1 roll /.OrigUniqueIDXUID exch put}
ifelse
} bind executeonly def
% Insert a new Encoding or Metrics into a font if necessary.
% Return a possibly updated font, and a flag to indicate whether
% the font was actually copied.
/.updatefontmetrics { % <font> <Metrics|null> .updatefontmetrics
% <font'> <copied>
dup //null ne {
exch //true .copyfontdict dup /Metrics 4 -1 roll put //true
} {
pop //false
} ifelse
} bind executeonly def
/.updatefontencoding { % <font> <Encoding|null> .updatefontencoding
% <font'> <copied>
dup //null ne { dup 2 index /Encoding get ne } { //false } ifelse {
exch //false .copyfontdict dup /Encoding 4 -1 roll put //true
} {
pop //false
} ifelse
} bind executeonly def
% Duplicate keys in CharString dictionary according to GlyphMap: <</new_glyph /old_glyph>>
% We have to do this because PDF fonts can associate multiple widths with the same glyph
% but Metrics dictionary works by the glyph name.
/.update_charstring { % <font> <GlyphMap> .update_charstring <font'> <copied>
dup //null ne {
exch //true .copyfontdict % map font
dup dup /CharStrings get % map font font cstr
dup length % map font font cstr len
4 index length add % map font font cstr len+map_len
dict copy dup begin % map font font cstr'
/CharStrings exch put % map font
exch { % font /new /old
currentdict exch .knownget {
def
} {
currentdict /.notdef .knownget {
def
} {
pop
% The font has no .notdef.
% Could not resolve the conflict,
% but either the font is invalid or the glyph name is never used.
} ifelse
} ifelse
} forall
end //true
} {
pop //false
} ifelse
} bind executeonly def
/.updatefont { % <font> <Encoding|null> <Metrics|null> <GlyphMap|null>
% .updatefont <font'> <copied>
4 2 roll % <Metrics|null> <GlyphMap> <font> <Encoding|null>
.updatefontencoding % <Metrics|null> <GlyphMap> <font> bool
4 1 roll exch % bool <Metrics|null> <font> <GlyphMap>
.update_charstring % bool <Metrics|null> <font> bool
3 1 roll exch % bool bool <font> <Metrics|null>
.updatefontmetrics % bool bool <font> bool
4 2 roll or or % <font> is_copied
} bind executeonly def
% ---------------- Text positioning ---------------- %
/Td {
%% Bug #695950 - invalid parameter to 'Td' operator
%% Technically the parameters to Td are reals and can vary +/- 3.403x10^38
%% However that would be kind of hard to validate, and in any event these
%% are somewhat unlikely numbers. We validate against +/- 2^32 instead. If this
%% should ever be a problem we'll have to modify this check.
%% Testing reveals that Acrobat clamps these out of range values to 0, it doesn't
%% simply ignore the error.
exch dup dup 4294967295 ge exch 4294967295 neg le or {
( **** Error: invalid argument to Td, Treating argument as 0.\n) pdfformaterror
( Output may be incorrect.\n) pdfformaterror
pop 0
} if
exch dup dup 4294967295 ge exch 4294967295 neg le or {
( **** Error: invalid argument to Td, Treating argument as 0.\n) pdfformaterror
( Output may be incorrect.\n) pdfformaterror
pop 0
} if
matrix .currenttextlinematrix transform
matrix .currenttextlinematrix
dup 3 -1 roll 5 exch put
dup 3 -1 roll 4 exch put
.settextlinematrix
matrix .currenttextlinematrix .settextmatrix
settextstate
} bind executeonly def
/TD { dup neg .settextleading Td } bind executeonly def
/T* { 0 .currenttextleading neg Td } bind executeonly def
/Tm {
5 index 0 ne 3 index 0 ne and
5 index 0 ne 5 index 0 ne and or not {
( **** Error: Invalid (0 scaling) text matrix for Tm ****\n)
pdfformaterror
( Output may be incorrect.\n) pdfformaterror
% handle invalid scale by using a really small value
2 -6 roll pop pop pop pop
0.00000001 0 0 0.00000001
6 -2 roll
}if
matrix .currenttextlinematrix astore .settextlinematrix
matrix .currenttextlinematrix .settextmatrix
settextstate
} bind executeonly def
% ---------------- Text painting ---------------- %
/Vexch {
rootfont /WMode knownoget { 1 eq { exch } if } if
} bind executeonly def
/textrenderingprocs [ % (0 is handled specially)
% Painting-only modes
{ tf } executeonly { tS } executeonly { tB } executeonly { tn }
% Clipping modes
{ gsave tf grestore tW } executeonly
{ gsave tS grestore tW } executeonly
{ gsave tB grestore tW } executeonly
{ tW } executeonly
] readonly def
/pdfwrite_textrenderingprocs [
% Tr 0 - Fill
{ setfillstate show } bind executeonly
% Tr 1 - Stroke
{ currentlinewidth exch setstrokestate
% Need to set the stroke width to a value which gives the correct
% width under pdfwrite. Pdfwrite uses (in text mode) an identity
% CTM, so we need to calculate the stroke width which would result
% if the CTM had been unity.
currentlinewidth dup
currentdict /qTextSaveMatrix known {
matrix defaultmatrix idtransform qTextSaveMatrix dtransform
}{
matrix defaultmatrix idtransform TextSaveMatrix dtransform
} ifelse
abs 2 copy exch abs eq {
pop
}{
% non-square scaling reduces to Text matrix in pdfwrite , so
% we can ignore it. (wrong answer, but consistent)
pop pop currentlinewidth
}ifelse setlinewidth
show setlinewidth} bind executeonly
% Tr 2 - Fill then Stroke
{ currentlinewidth exch setstrokestate
% Need to set the stroke width to a value which gives the correct
% width under pdfwrite. Pdfwrite uses (in text mode) an identity
% CTM, so we need to calculate the stroke width which would result
% if the CTM had been unity.
currentlinewidth dup
currentdict /qTextSaveMatrix known {
matrix defaultmatrix idtransform qTextSaveMatrix dtransform
}{
matrix defaultmatrix idtransform TextSaveMatrix dtransform
} ifelse
abs 2 copy exch abs eq {
pop
}{
% non-square scaling reduces to Text matrix in pdfwrite , so
% we can ignore it. (wrong answer, but consistent)
pop pop currentlinewidth
}ifelse setlinewidth
setfillstate show setlinewidth} bind executeonly
% Tr 3 - Neither fill nor stroke
{ setfillstate show } bind executeonly
%
% pdfwrite emits all text inside a gsave/grestore pair. As
% a result we can't preserve any of the 'clip' modes, as the
% clip gets undone by the restore. We need to handle the clip
% separately.
%
% Tr 4 - Fill, add to clip
{ gsave 0 .settextrenderingmode
setfillstate dup show grestore //true charpath } bind executeonly
% Tr 5 - Stroke, add to clip
{ gsave 1 .settextrenderingmode
currentlinewidth dup
matrix defaultmatrix idtransform TextSaveMatrix dtransform
abs 2 copy exch abs eq {
pop
}{
% non-square scaling reduces to Text matrix in pdfwrite , so
% we can ignore it. (wrong answer, but consistent)
pop pop currentlinewidth
}ifelse setlinewidth
setstrokestate dup show grestore
//true charpath} bind executeonly
% Tr 6 - Fill, stroke, add to clip
{ gsave 2 .settextrenderingmode
currentlinewidth dup
currentdict /qTextSaveMatrix known {
matrix defaultmatrix idtransform qTextSaveMatrix dtransform
}{
matrix defaultmatrix idtransform TextSaveMatrix dtransform
} ifelse
abs 2 copy exch abs eq {
pop
}{
% non-square scaling reduces to Text matrix in pdfwrite , so
% we can ignore it. (wrong answer, but consistent)
pop pop currentlinewidth
}ifelse setlinewidth
setstrokestate setfillstate dup show grestore
//true charpath} bind executeonly
% Tr 7 - Add to clip
{ //true charpath} bind executeonly
] readonly def
/setstrokeforTrpreservation {
% Check to see if the current device supports Tr
/PreserveTrMode /GetDeviceParam .special_op {
exch pop
}{
//false
}ifelse
{
.currenttextrenderingmode 1 eq .currenttextrenderingmode 2 eq or
.currenttextrenderingmode 5 eq .currenttextrenderingmode 6 eq or or {
setstrokestate
% Need to set the stroke width to a value which gives the correct
% width under pdfwrite. Pdfwrite uses (in text mode) an identity
% CTM, so we need to calculate the stroke width which would result
% if the CTM had been unity. NOTE! Only interested in magnitudes,
% not signs.
currentlinewidth dup
matrix defaultmatrix idtransform TextSaveMatrix dtransform
abs 2 copy exch abs eq {
pop
}{
% non-square scaling reduces to Text matrix in pdfwrite , so
% we can ignore it. (wrong answer, but consistent)
pop pop currentlinewidth
}ifelse
setlinewidth
} if
} if
} bind executeonly def
% conditionally set fillstate to avoid multiple operations during text operators
/settextfillstate {
TextFillStateNeeded { setfillstate //false /TextFillStateNeeded gput } if
} bind executeonly def
% If current path is not known to be valid, use the clip path
/TextTransSetup { % showarg path_valid TextTransSetup false showarg
% showarg path_valid false TextTransSetup prev_BM prev_opacity true showarg
% NB: if 'show' is used, then we use the clippath, but a smaller bbox is preferred
.currentSMask //null ne {
dup mark /Subtype /Group /Isolated //true .dicttomark exch
{ pathbbox } { gsave clippath pathbbox grestore } ifelse
.begintransparencygroup
} if
//null checkOPtrans {
% We need to push a non-isolated, non-knockout transparency group and
% perform the operation in CompatibleOverprint mode, then end the
% transparency group. Do the begintransparencygroup step here.
mark /Subtype /Group /Isolated //false .dicttomark exch
{ pathbbox } { gsave clippath pathbbox grestore } ifelse
.begintransparencygroup
OPsavedict dup /saveBM .currentblendmode put /saveOA .currentopacityalpha put % save current values
/CompatibleOverprint .setblendmode 1 .setopacityalpha
} {
pop % discard path_valid boolean
} ifelse
} bind executeonly def
/TextTransTeardown { % stack: path_valid
.currentblendmode /CompatibleOverprint eq {
% end the CompatibleOverprint group and restore the opacity and BM
.endtransparencygroup
OPsavedict dup /saveOA get .setopacityalpha /saveBM get .setblendmode
} if
.currentSMask //null ne {
.endtransparencygroup
} if
} bind executeonly def
/setshowstate
{
.currentwordspacing 0 eq .currenttextspacing
0 eq and FontMatrixNonHV not and
{
% Check to see if the current device supports Tr
/PreserveTrMode /GetDeviceParam .special_op {
exch pop
}{
//false
}ifelse
{
pdfwrite_textrenderingprocs .currenttextrenderingmode get
}
{
.currenttextrenderingmode 0 eq
currentfont /FontType get 3 eq .currenttextrenderingmode 3 eq not
and or
{
{ settextfillstate //false TextTransSetup show TextTransTeardown }
} {
.currenttextrenderingmode 3 eq {
% Some PDF files execute 'tm' with a singular matrix,
% and then use the text rendering mode 3.
% The graphics library currently cannot handle text
% operations when the CTM is singular.
% Work around this here.
{
matrix currentmatrix dup dup
dup 0 get 0 eq 1 index 1 get 0 eq and {
dup dup 2 get 0 eq { 0 }{ 1 } ifelse 1 put
} if
dup 2 get 0 eq 1 index 3 get 0 eq and {
dup dup 1 get 0 eq { 3 }{ 2 } ifelse 1 put
} if
setmatrix
currentpoint
% don't worry about transparency for invisible text
4 index settextfillstate show % Tr was set to graphic state.
moveto
setmatrix
% now set the currentpoint using the original matrix
gsave
setmatrix
//false charpath currentpoint newpath
grestore
moveto
}
} {
{ //false charpath textrenderingprocs .currenttextrenderingmode get exec }
} ifelse
} ifelse
} ifelse
}
{
% If we are doing a plain old fill, or no text at all, *or* we are going to
% a device supporting text rendering modes, then go through this route.
%
.currenttextrenderingmode 0 eq .currenttextrenderingmode 3 eq or
currentfont /FontType get 3 eq or
/PreserveTrMode /GetDeviceParam .special_op {
exch pop
}{
//false
}ifelse
% pdfwrite can't handle rendering modes which involve clipping
.currenttextrenderingmode 4 lt and or
% Tr was set to graphic state.
{
FontMatrixNonHV {
{
% preserve current line width around possible stroke setup
currentlinewidth exch
setstrokeforTrpreservation
settextfillstate //false TextTransSetup
[ .currenttextspacing .currentwordspacing 3 index
{ % str [... weach wword c undef|ythis xthis|undef
exch % will be removed, unless FontMatrix.xx/yy == 0 (FontMatrixNonHV already true)
Vexch pop % str [... weach wword c wthis
3 index add exch 32 eq {1 index add} if % str [... weach wword w
3 1 roll % str [... w weach wword
}
% for the "exch" removed or not below, see comment in pdf_font.ps::getfontmetrics
currentfont /FontMatrix get 0 3 Vexch pop get 0 ne {
1 1 index length 1 sub getinterval cvx
} if
cshow pop pop ]
{ xshow } { yshow } Vexch pop exec
setlinewidth TextTransTeardown
}
} {
.currentwordspacing
0 eq {
{
{ setstrokeforTrpreservation
settextfillstate //false TextTransSetup .currenttextspacing
0 Vexch 3 -1 roll ashow TextTransTeardown
}
currentlinewidth
{ setlinewidth }
3 .execn
}
} {
.currenttextspacing 0 eq {
{ % preserve current line width around possible stroke setup
{ setstrokeforTrpreservation
settextfillstate //false TextTransSetup .currentwordspacing
0 Vexch 32 4 -1 roll .pdfwidthshow
TextTransTeardown
}
currentlinewidth
{ setlinewidth }
3 .execn
}
} {
{ % preserve current line width around possible stroke setup
{ setstrokeforTrpreservation
settextfillstate //false TextTransSetup .currentwordspacing
0 Vexch 32
.currenttextspacing 0 Vexch 6 -1 roll .pdfawidthshow TextTransTeardown
}
currentlinewidth
{ setlinewidth }
3 .execn
}
} ifelse
} ifelse
} ifelse
}
{
{ currentlinewidth exch
.currentwordspacing
.currenttextspacing
% Implement the combination of t3 and false charpath.
% Note that we must use cshow for this, because we
% can't parse multi-byte strings any other way.
% Stack: string wword wchar
{
exch % will be removed, unless FontMatrixNonHV && FontMatrix.xx/yy == 0
% Stack: str wword wchar ccode xthis ythis
Vexch pop currentpoint 6 3 roll
% Stack: str wthis xorig yorig wword wchar ccode
(x) dup 0 3 index put
%
% for devices which can handle the text rendering mode we don't want
% to decompose into paths, we want to do a 'show'. However pdfwrite
% can't handle clipping text, so we *do* want to do the clip path
% as a 'true charpath'.
%
/PreserveTrMode /GetDeviceParam .special_op {
exch pop
}{
//false
}ifelse {
% NB we must have Tr at least 4 or the test above would have
% taken a different path, so we *know* the Tr involves clipping
% or we wouldn't be here. Subtract 4 from the Tr and preserve
% that mode, then do a charpath so the clip path gets set up
% correctly.
gsave .currenttextrenderingmode 4 sub .settextrenderingmode
setstrokeforTrpreservation
setstrokestate settextfillstate //false TextTransSetup dup show grestore TextTransTeardown } if
//false charpath
3 copy 32 eq { add } { exch pop } ifelse
% Stack: str wthis xorig yorig wword wchar ccode wextra
7 -3 roll moveto add
0 Vexch rmoveto pop
}
% for the "exch" removed or not below, see comment in pdf_font.ps::getfontmetrics
FontMatrixNonHV dup not exch {
currentfont /FontMatrix get 0 3 Vexch pop get 0 ne
} if {
1 1 index length 1 sub getinterval cvx
} if
4 -1 roll cshow pop pop
%
% If the device doesn't handle text rendering modes then we now have a suitable
% path, so call the correct routine to stroke/fill it (clip is handled when we
% get ET).
%
/PreserveTrMode /GetDeviceParam .special_op {
exch pop not
}{
//true
}ifelse {
textrenderingprocs .currenttextrenderingmode get exec
} if
setlinewidth
}
}
ifelse
}
ifelse /Show gput
} bind executeonly def
/showfirst { setshowstate Show } executeonly def
/Tj {
{
//true /TextFillStateNeeded gput
0 0 moveto Show settextposition
}
OFFlevels length 0 eq {
exec
} {
gsave nulldevice exec grestore
} ifelse
//true /TextFillStateNeeded gput
} bind executeonly def
/' { T* Tj } bind executeonly def
/" { exch Tc exch Tw T* Tj } bind executeonly def
/TJ {
{ 0 0 moveto {
dup type /stringtype eq {
Show
} { -1000 div
currentfont /ScaleMatrix .knownget { 0 get mul } if
0 Vexch rmoveto
} ifelse
} forall settextposition
//true /TextFillStateNeeded gput
}
OFFlevels length 0 eq {
exec
} {
gsave nulldevice exec grestore
} ifelse
//true /TextFillStateNeeded gput
} bind executeonly def
% NB: We don't need clippath when filling or stroking
/tf {
.currentPDFfontsize 0 eq not {
//true /TextFillStateNeeded gput
settextfillstate //true TextTransSetup currentpoint fill TextTransTeardown moveto
} if
} bind executeonly def
/tn { currentpoint newpath moveto } bdef % Obsolete, never used.
% For stroking characters, temporarily restore the graphics CTM so that
% the line width will be transformed properly.
/Tmatrix matrix def
/tS
{
currentfont /FontType get 3 eq
{
settextfillstate //true TextTransSetup currentpoint fill TextTransTeardown moveto
}
{
.currentPDFfontsize 0 eq not {
setstrokestate //true TextTransSetup
currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix
currentdict /qTextSaveMatrix known {qTextSaveMatrix setmatrix} if
.swapcolors stroke TextTransTeardown .swapcolors
setmatrix moveto
} if
} ifelse
//true /TextFillStateNeeded gput
} bind executeonly def
% Handle transparency the same as /B operator
/tB {
PDFusingtransparency {
% knockout trans group around the filled and stroked object
mark
/Isolated //true /Knockout //true
.dicttomark
1 .setopacityalpha
% While text will always have a currentpoint, strokepath seems to mess with it.
% we get the currentpoint, then use moveto to restore it for pathbbox
gsave currentpoint strokepath moveto pathbbox grestore
.begintransparencygroup
gsave tf grestore tS
.endtransparencygroup
} {
gsave tf grestore tS
} ifelse
//true /TextFillStateNeeded gput
} bind executeonly def
% This does the wrong thing if there have been multiple text operations
% within a single BT/ET pair, but it's a start.
/tW { } bind executeonly def
%% split a string containing \r or \n into multiple strings)
%% \r\n is also handled.
%% (string) .splitstring (string1) (string2) .....
/.splitstring {
0 exch %% start_index string
dup length 1 sub %% start_index string (string length - 1)
0 1 3 -1 roll %% start_index string 0 1 (string_length -1)
{ %% start_index string loop_index
dup %% start_index string loop_index loop_index
2 index exch get %% start_index string loop_index character
dup 10 eq exch 13 eq or { %% start_index string loop_index
dup 3 index %% start_index string loop_index loop_index start_index
sub %% start_index string loop_index (loop_index - start_index)
dup 0 gt { %% \r\n will give us a 0 length string so ignore it
3 index exch %% start_index string loop_index start_index (loop_index - start_index)
3 index 3 1 roll %% start_index string loop_index string start_index (loop_index - start_index)
getinterval %% start_index string loop_index sub_string
4 1 roll %% sub_string start_index string loop_index
1 add
3 -1 roll %% sub_string string loop_index start_index
pop exch %% sub_string loop_index string %% loop_index becomes new start_index
}{
pop %% start_index string loop_index
1 add 3 1 roll exch %% loop_index string start_index
pop %% loop_index string %% loop_index becomes new start index
} ifelse
}{
pop %% start_index string
} ifelse
} for
%% start_index string
dup length 2 index sub dup %% start_index string (length - start_index) (length - start_index)
0 gt { %% we have characters left %% start_index string (length - start_index)
3 -1 roll exch %% string start_index (length - start_index)
getinterval %% sub_string
} {
pop pop pop
} ifelse
} bind executeonly def
% Text formatting and painting for the AcroForm field without appearance streams.
/Tform { % <MaxLen> (V) <Ff> <Q> Tform -
clippath pathbbox 4 2 roll pop pop % MaxLen (V) Ff Q dx dy
currentfont /ScaleMatrix .knownget { 3 get } { 1 } ifelse % MaxLen (V) Ff Q dx dy yy
currentfont /FontBBox .knownget
not
{
currentfont dup /FontType get
0 eq
{
/FDepVector get 0 get /FontBBox get}
{
pop //null % force an error
} ifelse
}if
dup 1 get neg exch 3 get % MaxLen (V) Ff Q dx dy yy desc asc
dup 0 ne { div } { pop pop 0 } ifelse % MaxLen (V) Ff Q dx dy yy desc/asc
1 index mul % MaxLen (V) Ff Q dx dy yy desc/asc*yy
%% Check if this is declared as a multiine text widget, and if it is
%% check that the string has at least 2 characters, so we can split it
%% into at least two strings....
%% Bug #687498.pdf has a multiline text widget with an empty string (amongst
%% many other problems with this file).
5 index 16#1000 and 0 ne 7 index length 1 gt and{ % multiline
%% First lets see how many lines we have, make a copy of the string
6 index mark exch .splitstring % MaxLen (V) Ff Q dx dy yy desc/asc*yy [ () () ...
counttomark 1 add 4 add index % MaxLen (V) Ff Q dx dy yy desc/asc*yy [ () () ... count Q
dup 0 eq {
pop % remove extra copy of Q
counttomark dup 2 add 2 add index exch div % MaxLen (V) Ff Q dx dy yy desc/asc*yy [ () () ... line_height
counttomark 1 add 1 roll % MaxLen (V) Ff Q dx dy yy desc/asc*yy line_height [ () () ...
2 0 moveto % start at bottom left of rect
counttomark 1 1 3 -1 roll { % for every string
pop gsave
<EFBBBF> anchorsearch {
pop
} {
<FEFF> anchorsearch {
pop
} if
} ifelse
Show grestore % pop loop counter, show string (saving current point)
counttomark 1 add index 0 exch rmoveto % get line height, move that amount vertically.
} for
pop pop
}{
1 eq {
counttomark dup 2 add 2 add index exch div % MaxLen (V) Ff Q dx dy yy desc/asc*yy [ () () ... line_height
counttomark 1 add 1 roll % MaxLen (V) Ff Q dx dy yy desc/asc*yy line_height [ () () ...
2 0 moveto % start at bottom left of rect
counttomark 1 1 3 -1 roll { % for every string
pop gsave % pop loop counter
<EFBBBF> anchorsearch {
pop
} {
<FEFF> anchorsearch {
pop
} if
} ifelse
dup stringwidth pop counttomark 5 add index % get rectangle width
exch sub 2 div 0 rmoveto % subtract width of string, divide by 2 move that amount
Show grestore % show string
counttomark 1 add index 0 exch rmoveto % get line height, move that amount vertically.
} for
pop pop
}{
counttomark dup 2 add 2 add index exch div % MaxLen (V) Ff Q dx dy yy desc/asc*yy [ () () ... line_height
counttomark 1 add 1 roll % MaxLen (V) Ff Q dx dy yy desc/asc*yy line_height [ () () ...
2 0 moveto % start at bottom left of rect
counttomark 1 1 3 -1 roll { % for every string
pop gsave % pop loop counter
<EFBBBF> anchorsearch {
pop
} {
<FEFF> anchorsearch {
pop
} if
} ifelse
dup stringwidth pop counttomark 5 add index % get rectangle width
exch sub 2 sub 0 rmoveto % subtract width of string,move that amount
Show grestore % show string
counttomark 1 add index 0 exch rmoveto % get line height, move that amount vertically.
} for
pop pop
}ifelse
}ifelse
8 { pop } repeat
} {
5 index 16#1000000 and 0 ne { % comb
8 { pop } repeat (Combed form fields are not yet implemented.) =
} { % plain text
3 1 roll sub add 2 div % MaxLen (V) Ff Q dx (dy-yy+desc)/2
0 exch moveto % MaxLen (V) Ff Q dx
1 index 0 ne {
3 index
<EFBBBF> anchorsearch {
pop
} {
<FEFF> anchorsearch {
pop
} if
} ifelse
stringwidth pop % MaxLen (V) Ff Q dx w
sub exch 1 eq { 2 div } { 2 sub } ifelse % MaxLen (V) Ff (dx-w)/2
0 rmoveto % MaxLen (V) Ff
pop % MaxLen (V)
} {
pop pop pop % MaxLen (V)
2 0 rmoveto
} ifelse
exch pop
<EFBBBF> anchorsearch {
pop
} {
<FEFF> anchorsearch {
pop
} if
} ifelse
Show % -
} ifelse
} ifelse
} bind executeonly def
end readonly put % GS_PDF_ProcSet
.setglobal
Mini Shell