home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / pdf_ops.ps < prev    next >
Text File  |  2004-09-04  |  21KB  |  657 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_ops.ps,v 1.27.2.3 2004/09/03 11:07:08 giles Exp $
  17. % Definitions for most of the PDF operators.
  18.  
  19. .currentglobal true .setglobal
  20.  
  21. % Define pdfmark.  Don't allow it to be bound in.
  22. % Also don't define it in systemdict, because this leads some Adobe code
  23. % to think this interpreter is a distiller.
  24. % (If this interpreter really is a distiller, don't do this.)
  25. systemdict /pdfmark known not
  26.  { userdict /pdfmark { cleartomark } bind put } if
  27.  
  28. userdict /GS_PDF_ProcSet 127 dict dup begin
  29.  
  30. % ---------------- Abbreviations ---------------- %
  31.  
  32. /bdef { bind def } bind def
  33.  
  34. % ---------------- Graphics state stack ---------------- %
  35.  
  36. % PDF adds a number of parameters to the graphics state.
  37. % We implement this by pushing and popping a dictionary
  38. % each time we do a PDF gsave or grestore.
  39. % The keys in this dictionary are as follows:
  40. %    self            % identifies the dictionary as one of ours
  41. %    ClipRect        % (optional)
  42. %    Show
  43. %    TextSaveMatrix        % matrix at time of BT (iff within BT/ET)
  44. % (The following correspond directly to PDF state parameters.)
  45. %    AlphaIsShape
  46. %    FillConstantAlpha
  47. %    FillColor
  48. %    FillColorSpace
  49. %    FillOverprint
  50. %    SoftMask
  51. %    StrokeConstantAlpha
  52. %    StrokeColor
  53. %    StrokeColorSpace
  54. %    StrokeOverprint
  55. %    TextSpacing
  56. %    TextHScaling
  57. %    Leading
  58. %    TextFont
  59. %    TextLineMatrix
  60. %    TextMatrix
  61. %    TextRise
  62. %    TextRenderingMode
  63. %    WordSpacing
  64.  
  65. /nodict 1 dict def
  66. nodict /self { //nodict } executeonly put
  67. nodict readonly pop
  68.  
  69. /dictbeginpage {    % <initialdict> dictbeginpage -
  70.   //nodict 20 dict .copydict begin { def } forall
  71.   graphicsbeginpage textbeginpage
  72. } bdef
  73. /endpage {    % - endpage -
  74.   showpage end
  75. } bdef
  76.  
  77. /graphicsbeginpage {
  78.   initgraphics
  79.   currentdict /ClipRect knownoget { aload pop rectclip } if
  80.   0 g  0 G  false op  false OP  0 OPM
  81.   1 ca  1 CA  null SMask  false AIS  /Compatible BM  true TK
  82. } bdef
  83.  
  84. /gput        % <value> <key> gput -
  85.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  86.         % If we're in a Level 1 system, we need to grow the
  87.         % dictionary explicitly.
  88.    currentdict length currentdict maxlength ge %eq
  89.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  90.     }
  91.    if def
  92.  } bdef
  93.  
  94. % Restore graphics state, but do not modify path. Paths are not part
  95. % of the PDF graphics state; see 4.4.1 of PDF reference 3rd ed.
  96. /grestore_nopath {
  97.   % Collect the upath with an identity CTM
  98.   { matrix setmatrix //false upath } stopped {
  99.     pop grestore newpath
  100.   } {
  101.     % Save the CTM, set identity during the uappend, then set the CTM
  102.     grestore matrix currentmatrix matrix setmatrix
  103.     exch newpath uappend setmatrix
  104.   } ifelse
  105. } bdef
  106.  
  107. /q {
  108.   gsave //nodict begin
  109. } bdef
  110. % Some PDF files have excess Q operators!
  111. /Q {
  112.   currentdict /self .knownget {
  113.     exec //nodict eq { end grestore_nopath false } { true } ifelse
  114.   } {
  115.     true    % formaterror -- not a gsave dict
  116.   } ifelse
  117.   { (\n   **** File has imbalanced q/Q operators \(too many Q's\) ****\n)
  118.     pdfformaterror
  119.   } if
  120. } bdef
  121.  
  122. % Save PDF gstate
  123. /qstate {       % - qstate <qstate>
  124.   gstate
  125. } bdef
  126.  
  127. % Set PDF gstate
  128. /setqstate {    % <qstate> setqstate -
  129.   { matrix setmatrix //false upath } stopped {
  130.     pop setgstate newpath
  131.   } {
  132.     % Save the CTM, set identity during the uappend, then set the CTM
  133.     exch setgstate matrix currentmatrix matrix setmatrix
  134.     exch newpath uappend setmatrix
  135.   } ifelse
  136. } bdef
  137.  
  138. % ---------------- Color setting ---------------- %
  139.  
  140. /fcput        % <color> <colorspace> fcput -
  141.  { /FillColorSpace gput /FillColor gput
  142.  } bdef
  143. /scput        % <color> <colorspace> scput -
  144.  { /StrokeColorSpace gput /StrokeColor gput
  145.  } bdef
  146.  
  147. /csdevgray [/DeviceGray] readonly def
  148. /csdevrgb [/DeviceRGB] readonly def
  149. /csdevcmyk [/DeviceCMYK] readonly def
  150. /cspattern [/Pattern] readonly def
  151. /nullpattern1 mark
  152.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  153.    /XStep 1 /YStep 1 /PaintProc { }
  154. .dicttomark readonly def
  155. /nullpattern2 nullpattern1 dup length dict copy readonly def
  156.  
  157. % Each entry in the color space dictionary is a procedure of the form
  158. %    <cspace> -proc- <cspace> <initial-color>
  159. /CSdict mark
  160.   /DeviceGray { pop //csdevgray 0 } bind
  161.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  162.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  163.   /CIEBasedA { 0 } bind
  164.   /CIEBasedABC { [0 0 0] cvx } bind
  165.   /ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind
  166.   /Separation { 1 } bind
  167.   /DeviceN {    % What is the correct value??
  168.     [ 1 index 1 get length { 1 } repeat ] cvx
  169.   } bind
  170.   /Indexed { 0 } bind
  171.   /Pattern {
  172.     dup type /nametype eq 1 index length 1 eq or {
  173.       pop //cspattern //nullpattern1 matrix makepattern
  174.     } {
  175.       //nullpattern2 matrix makepattern 1 index 1 get csset
  176.         % Stack: patternspace nullpattern basecolor basespace
  177.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  178.       counttomark -1 roll ] cvx
  179.     } ifelse
  180.   } bind
  181. .dicttomark readonly def
  182. /csset            % <cspace> csset <color> <cspace>
  183.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  184.  } bdef
  185.  
  186. /g { //csdevgray fcput } bdef
  187. /G { //csdevgray scput } bdef
  188. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  189. /RG { 3 array astore cvx //csdevrgb scput } bdef
  190. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  191. /K { 4 array astore cvx //csdevcmyk scput } bdef
  192. /cs { csset fcput } bdef
  193. /CS { csset scput } bdef
  194. /ri { pop } bdef
  195. % We have to break up sc according to the number of operands.
  196. /sc1 { /FillColor gput } bdef
  197. /SC1 { /StrokeColor gput } bdef
  198. % We have to avoid storing into a color array associated with an outer
  199. % gsave level, so we do a kind of "copy on write".
  200. /sc* {
  201.   currentdict /FillColor .knownget {
  202.     astore pop
  203.   } {
  204.     /FillColor load length array astore cvx /FillColor gput
  205.   } ifelse
  206. } bdef
  207. /SC* {
  208.   currentdict /StrokeColor .knownget {
  209.     astore pop
  210.   } {
  211.     /StrokeColor load length array astore cvx /StrokeColor gput
  212.   } ifelse
  213. } bdef
  214.  
  215. % ---------------- Overprint/transparency setting ---------------- %
  216.  
  217. /op { /FillOverprint gput } bdef
  218. /OP { /StrokeOverprint gput } bdef
  219. /OPM {
  220.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  221. } bdef
  222. /ca { /FillConstantAlpha gput } bdef
  223. /CA { /StrokeConstantAlpha gput } bdef
  224. /SMask { /SoftMask gput } bdef
  225. /AIS { /AlphaIsShape gput } bdef
  226. /BM {
  227.   /.setblendmode where {
  228.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  229.       { .setblendmode } .internalstopped not { exit } if pop
  230.     } forall
  231.   } {
  232.     pop
  233.   } ifelse
  234. } bdef
  235. /TK {
  236.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  237. } bdef
  238.  
  239. % ---------------- Color installation ---------------- %
  240.  
  241. % Establish a given color (and color space) as current.
  242. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  243.   /.begintransparencymask where {
  244.     pop AlphaIsShape {
  245.       1 .setopacityalpha 0 .inittransparencymask exch .setshapealpha 1
  246.     } {
  247.       1 .setshapealpha 1 .inittransparencymask exch .setopacityalpha 0
  248.     } ifelse
  249.     % Set the soft mask by rendering the XObject.  Doing this every time
  250.     % is obviously very inefficient; we'll improve it later.
  251.     .settransparencymask    
  252.   } {
  253.     pop pop
  254.   } ifelse
  255. } bdef
  256. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  257.   exch dup null eq {
  258.     pop .inittransparencymask
  259.   } {
  260.     dup /Draw get exec
  261.   } ifelse
  262. } bdef
  263. % (Non-mask) images must execute setfillblend.
  264. /setfillblend {
  265.   FillOverprint setoverprint
  266.   FillConstantAlpha SoftMask .settransparencyparams
  267. } def
  268. /setfillstate {
  269.   FillColor FillColorSpace setgcolor setfillblend
  270. } def
  271. /setstrokestate {
  272.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  273.   StrokeConstantAlpha SoftMask .settransparencyparams
  274. } def
  275. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  276.   /DeviceGray { pop setgray } bdef
  277.   /DeviceRGB { pop setrgbcolor } bdef
  278.   /DeviceCMYK { pop setcmykcolor } bdef
  279.   /CIEBasedA { setgcolorspace setcolor } bdef
  280.   /CIEBasedABC /CIEBasedA load def
  281.   /CIEBasedDEF /CIEBasedA load def
  282.   /CIEBasedDEFG /CIEBasedA load def
  283.   /ICCBased /CIEBasedA load def
  284.   /Separation /CIEBasedA load def
  285.   /DeviceN /CIEBasedA load def
  286.   /Indexed /CIEBasedA load def
  287.   /Pattern
  288.    { setgcolorspace
  289.  
  290.      % Since multiple patterns may share
  291.      % same data stream, we need to ensure
  292.      % that the stream is at 0 position.
  293.      % Making this consistently with resolveshading,
  294.      % which applies ReusableStreamDecode filter
  295.      % to the PS stream, which represents the
  296.      % PDF stream in dynamics.
  297.  
  298.      dup /Shading knownoget {
  299.        dup /ShadingType oget 4 ge {
  300.          /DataSource knownoget {
  301.            dup type /filetype eq {
  302.              0 setfileposition
  303.            } {
  304.              pop
  305.            } ifelse
  306.          } if
  307.        } {
  308.         pop
  309.        } ifelse
  310.      } if
  311.  
  312.      dup /Matrix knownoget not { matrix } if
  313.      gsave DefaultQstate setqstate makepattern grestore setcolor
  314.    } bdef
  315. end def
  316. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  317.  { 1 index null eq
  318.     { pop pop }
  319.     { dup 0 get //Cdict exch get exec }
  320.    ifelse
  321.  } bdef
  322. % Compare the old and new color spaces in an attempt to avoid expensive
  323. % reloads of CIEBased color spaces.
  324. /PCSdict 15 dict dup begin    % <colorspace> -proc- <colorspace|pdfcspace>
  325.   /CIEBasedA { dup 1 get /PDFColorSpace .knownget { exch pop } if } bdef
  326.   /CIEBasedABC /CIEBasedA load def
  327.   /CIEBasedDEF /CIEBasedA load def
  328.   /CIEBasedDEFG /CIEBasedA load def
  329.   /Indexed {
  330.     dup 1 get dup pdfcolorspace 2 copy ne { 3 1 roll } if pop pop
  331.   } bdef
  332. end def
  333. /pdfcolorspace {    % <colorspace> pdfcolorspace <colorspace|pdfcspace>
  334.   dup type /arraytype eq {
  335.     //PCSdict 1 index 0 get .knownget { exec } if
  336.   } if
  337. } bdef
  338. /setgcolorspace {    % <colorspace> setgcolorspace -
  339.   dup pdfcolorspace currentcolorspace pdfcolorspace eq {
  340.     pop
  341.   } {
  342.     setcolorspace
  343.   } ifelse
  344. } bdef
  345. /fsexec        % <fillop|strokeop> fsexec -
  346.  {        % Preserve the current point, if any.
  347.     { currentpoint } stopped
  348.     { $error /newerror false put   cvx exec }
  349.     { 3 -1 roll cvx exec moveto }
  350.    ifelse
  351.  } bdef
  352.  
  353. % ---------------- Path painting and clipping ---------------- %
  354.  
  355. /S { setstrokestate /stroke fsexec } bdef
  356. /f { setfillstate /fill fsexec } bdef
  357. /f* { setfillstate /eofill fsexec } bdef
  358. /n { newpath } bdef        % don't allow n to get bound in
  359. /s { closepath S } bdef
  360. /B { gsave setfillstate fill grestore S } bdef
  361. /b { closepath B } bdef
  362. /B* { gsave setfillstate eofill grestore S } bdef
  363. /b* { closepath B* } bdef
  364.  
  365. % Clipping:
  366.  
  367. /Wdict 4 dict dup begin
  368. /S { gsave setstrokestate stroke grestore n } bdef
  369. /f { gsave setfillstate fill grestore n } bdef
  370. /f* { gsave setfillstate eofill grestore n } bdef
  371. % Adobe PDF Rendering doesn't change clipping if path is 0 area
  372. /n { end pathbbox 3 -1 roll sub abs 3 1 roll sub abs add 0 ne { clip } if newpath } bdef
  373. end readonly def
  374. /W { //Wdict begin } bdef
  375. /W*dict 4 dict dup begin
  376. Wdict { def } forall
  377. % Adobe PDF Rendering doesn't change clipping if path is 0 area
  378. /n { end pathbbox 3 -1 roll sub abs 3 1 roll sub abs add 0 ne { eoclip } if newpath } bdef
  379. end readonly def
  380. /W* { //W*dict begin } bdef
  381.  
  382. % ---------------- Text control ---------------- %
  383.  
  384. /textbeginpage
  385.  { /TextSpacing 0 def        % 0 Tc
  386.    /TextLeading 0 def        % 0 TL
  387.    /TextRenderingMode 0 def    % 0 Tr
  388.    /TextRise 0 def        % 0 Ts
  389.    /WordSpacing 0 def        % 0 Tw
  390.    /TextHScaling 1.0 def    % 100 Tz
  391.    /TextFont null def
  392.    /Show { showfirst } def
  393.  } bdef
  394.  
  395. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  396. % if the CharProc for a Type 3 font does a BT/ET itself.
  397. % Since we always call the CharProc inside a q/Q, we simply ensure that
  398. % the text state is saved and restored like the rest of the extended
  399. % graphics state.
  400.  
  401. /settextmatrix {
  402.   TextMatrix concat
  403.   TextHScaling 1 ne { TextHScaling 1 scale } if
  404.   TextRise 0 ne { 0 TextRise translate } if
  405.   TextFont dup null eq { pop } { setfont } ifelse
  406. } bdef
  407. /settextstate {
  408.     % The text state can be set even outside BT/ET.
  409.   currentdict /TextSaveMatrix known {
  410.     TextSaveMatrix setmatrix settextmatrix
  411.   } if
  412. } bdef
  413. /settextposition {
  414.         % Update the TextMatrix translation.
  415.   gsave TextSaveMatrix setmatrix
  416.   currentpoint TextRise sub TextMatrix 4 2 getinterval astore pop
  417.         % We would like to do "grestore currentpoint translate"
  418.         % here, but some PDF files set a singular text matrix
  419.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  420.   TextTempMatrix identmatrix setmatrix currentpoint
  421.   grestore
  422.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  423.   TextTempMatrix setmatrix
  424. } bdef
  425.  
  426. /BT {
  427.   currentdict /TextLineMatrix .knownget
  428.     { identmatrix pop TextMatrix identmatrix pop }
  429.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  430.   ifelse
  431.   { showfirst } /Show gput
  432.   currentdict /TextSaveMatrix .knownget not {
  433.     matrix dup /TextSaveMatrix gput
  434.   } if currentmatrix pop settextmatrix
  435.   matrix /TextTempMatrix gput        % see settextposition
  436. } bdef
  437. /ET {
  438.   TextRenderingMode 4 ge { clip newpath } if
  439.   TextSaveMatrix setmatrix
  440.   currentdict /TextSaveMatrix undef
  441. } bdef
  442. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  443. /TL { /TextLeading gput } bdef
  444. /Tr { dup .settextrenderingmode /TextRenderingMode gput { showfirst } /Show gput } bdef
  445. /Ts { /TextRise gput settextstate } bdef
  446. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  447. /Tz { 100 div /TextHScaling gput settextstate} bdef
  448.  
  449. % ---------------- Font control ---------------- %
  450.  
  451. /Tf {        % <font> <scale> Tf -
  452.   dup 0 eq {
  453.     (\n   **** Warning: Invalid 0.0 font scale given for Tf ****\n)
  454.     pdfformaterror
  455.     pop 0.00000001    % handle invalid scale by using a really small value
  456.   } if
  457.   dup 1 eq { pop } { scalefont } ifelse
  458.   /TextFont gput settextstate
  459. } bdef
  460.  
  461. % Read a CFF font.
  462. /FRD        % <resname> <file> FRD -
  463.  { /FontSetInit /ProcSet findresource begin //true ReadData
  464.  } bdef
  465.  
  466. % Copy a font, removing its FID.  If changed is true, also remove
  467. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  468. % the keys being removed, don't copy it.
  469. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  470.  { 1 index /FID known
  471.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  472.     {        % We add 1 to the length just in case the original
  473.         % didn't have a FID.
  474.       exch dup length 1 add dict exch
  475.        {        % Stack: changed newfont key value
  476.      1 index /FID eq 4 index
  477.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  478.      if not { 3 copy put } if pop pop
  479.        }
  480.       forall exch
  481.     }
  482.    if pop
  483.  } bdef
  484.  
  485. % Insert a new Encoding or Metrics into a font if necessary.
  486. % Return a possibly updated font, and a flag to indicate whether
  487. % the font was actually copied.
  488. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  489.             %   <font'> <copied>
  490.   dup //null ne {
  491.     exch //true .copyfontdict dup /Metrics 4 -1 roll put //true
  492.   } {
  493.     pop //false
  494.   } ifelse
  495. } bdef
  496.  
  497. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  498.             %   <font'> <copied>
  499.   dup //null ne { dup 2 index /Encoding get ne } { //false } ifelse {
  500.     exch //false .copyfontdict dup /Encoding 4 -1 roll put //true
  501.   } {
  502.     pop //false
  503.   } ifelse
  504. } bdef
  505.  
  506. % Duplicate keys in CharString dictionary according to GlyphMap: <</new_glyph /old_glyph>>
  507. % We have to do this because PDF fonts can associate multiple widths with the same glyph
  508. % but Metrics dictionary works by the glyph name.
  509. /.update_charstring {    % <font> <GlyphMap> .update_charstring  <font'> <copied>
  510.   dup //null ne {
  511.     exch //true .copyfontdict       % map font
  512.     dup dup /CharStrings get        % map font font cstr
  513.     dup length                      % map font font cstr len
  514.     4 index length add              % map font font cstr len+map_len
  515.     dict copy dup begin             % map font font cstr'
  516.     /CharStrings exch put           % map font
  517.     exch {                          % font /new /old
  518.       load def
  519.     } forall
  520.     end //true
  521.   } {
  522.     pop //false
  523.   } ifelse
  524. } bdef
  525.  
  526. /.updatefont {          % <font> <Encoding|null> <Metrics|null> <GlyphMap|null>
  527.                       %        .updatefont <font'> <copied>
  528.   4 2 roll            % <Metrics|null> <GlyphMap> <font> <Encoding|null>
  529.   .updatefontencoding % <Metrics|null> <GlyphMap> <font> bool
  530.   4 1 roll exch       % bool <Metrics|null> <font> <GlyphMap>
  531.   .update_charstring  % bool <Metrics|null> <font> bool
  532.   3 1 roll exch       % bool bool <font> <Metrics|null>
  533.   .updatefontmetrics  % bool bool <font> bool
  534.   4 2 roll or or      % <font> is_copied
  535. } bdef
  536.  
  537. % ---------------- Text positioning ---------------- %
  538.  
  539. /Td {
  540.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  541.   TextLineMatrix TextMatrix copy pop settextstate
  542. } bdef
  543. /TD { dup neg /TextLeading gput Td } bdef
  544. /T* { 0 TextLeading neg Td } bdef
  545. /Tm {
  546.   TextLineMatrix astore TextMatrix copy pop settextstate
  547. } bdef
  548.  
  549. % ---------------- Text painting ---------------- %
  550.  
  551. /Vexch {
  552.   rootfont /WMode knownoget { 1 eq { exch } if } if
  553. } bind def
  554.  
  555. /textrenderingprocs [        % (0 is handled specially)
  556.     % Painting-only modes
  557.    { tf } { tS } { tB } { tn }
  558.     % Clipping modes
  559.    { gsave tf grestore tW }
  560.    { gsave tS grestore tW }
  561.    { gsave tB grestore tW }
  562.    { tW }
  563. ] readonly def
  564. /setshowstate
  565.  { WordSpacing 0 eq TextSpacing 0 eq and
  566.     { TextRenderingMode 0 eq {
  567.         { setfillstate show }
  568.       } {
  569.         TextRenderingMode 3 eq {
  570.                 % Some PDF files execute 'tm' with a singular matrix,
  571.         % and then use the text rendering mode 3.
  572.         % The graphics library currently cannot handle text
  573.         % operations when the CTM is singular.
  574.         % Work around this here.
  575.       {    
  576.             matrix currentmatrix dup
  577.             dup 0 get 0 eq 1 index 1 get 0 eq and {
  578.               dup 0 1 put
  579.             } if
  580.             dup 2 get 0 eq 1 index 3 get 0 eq and {
  581.               dup 3 1 put
  582.             } if
  583.             setmatrix
  584.             exch setfillstate show % Tr was set to graphic state.
  585.             setmatrix 
  586.           }
  587.         } {
  588.           { false charpath textrenderingprocs TextRenderingMode get exec }
  589.         } ifelse
  590.       } ifelse
  591.     }
  592.     { TextRenderingMode 0 eq TextRenderingMode 3 eq or
  593.        % Tr was set to graphic state.
  594.        { WordSpacing 0 eq
  595.           { { setfillstate TextSpacing 0 Vexch 3 -1 roll ashow } }
  596.       { TextSpacing 0 eq
  597.             { { setfillstate WordSpacing 0 Vexch 32 4 -1 roll widthshow } }
  598.             { { setfillstate WordSpacing 0 Vexch 32
  599.                  TextSpacing 0 Vexch 6 -1 roll awidthshow } }
  600.         ifelse
  601.       }
  602.      ifelse
  603.        }
  604.        { { WordSpacing TextSpacing
  605.             % Implement the combination of t3 and false charpath.
  606.             % Note that we must use cshow for this, because we
  607.             % can't parse multi-byte strings any other way.
  608.             % Stack: string xword xchar
  609.         { pop pop (x) dup 0 3 index put false charpath
  610.             % Stack: xword xchar ccode
  611.              3 copy 32 eq { add } { exch pop } ifelse 0 Vexch rmoveto pop
  612.         }
  613.        4 -1 roll cshow pop pop
  614.        textrenderingprocs TextRenderingMode get exec
  615.      }
  616.        }
  617.       ifelse
  618.     }
  619.    ifelse /Show gput
  620.  } bdef
  621. /showfirst { setshowstate Show } def
  622.  
  623. /Tj {
  624.   0 0 moveto Show settextposition
  625. } bdef
  626. /' { T* Tj } bdef
  627. /" { exch Tc exch Tw T* Tj } bdef
  628. /TJ {
  629.   0 0 moveto {
  630.     dup type /stringtype eq {
  631.       Show
  632.     } { -1000 div
  633.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  634.       0 Vexch rmoveto
  635.     } ifelse
  636.   } forall settextposition
  637. } bdef
  638.  
  639. /tf { setfillstate currentpoint fill moveto } bdef
  640. /tn { currentpoint newpath moveto } bdef % Obsolete, never used.
  641. % For stroking characters, temporarily restore the graphics CTM so that
  642. % the line width will be transformed properly.
  643. /Tmatrix matrix def
  644. /tS
  645.  { setstrokestate
  646.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  647.    setmatrix moveto
  648.  } bdef
  649. /tB { gsave tf grestore tS } bdef
  650. % This does the wrong thing if there have been multiple text operations
  651. % within a single BT/ET pair, but it's a start.
  652. /tW { } bdef
  653.  
  654. end readonly put        % GS_PDF_ProcSet
  655.  
  656. .setglobal
  657.