home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / pdf_ops.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  27.7 KB  |  878 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 9248 2008-11-27 15:05:37Z ken $
  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. % (The following is cached information derived from other graphics state params)
  65. %    FontMatrixNonHV % TextFont.FontMatrix alters horz/vert glyph advance vector direction
  66.  
  67. /nodict 1 dict def
  68. nodict /self { //nodict } executeonly put
  69. nodict readonly pop
  70.  
  71. /dictbeginpage {    % <initialdict> dictbeginpage -
  72.   //nodict 20 dict .copydict begin { def } forall
  73.   graphicsbeginpage textbeginpage
  74. } bdef
  75. /endpage {    % - endpage -
  76.   showpage end
  77. } bdef
  78.  
  79. /graphicsbeginpage {
  80.   initgraphics
  81.   //true .setaccuratecurves
  82.   currentdict /ClipRect knownoget { aload pop rectclip } if
  83.   0 g  0 G  false op  false OP  0 OPM
  84.   1 ca  1 CA  null SMask  false AIS  /Compatible BM  true TK
  85. } bdef
  86.  
  87. /gput        % <value> <key> gput -
  88.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  89.         % If we're in a Level 1 system, we need to grow the
  90.         % dictionary explicitly.
  91.    currentdict length currentdict maxlength ge %eq
  92.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  93.     }
  94.    if def
  95.  } bdef
  96.  
  97. /q {
  98.   gsave //nodict begin
  99. } bdef
  100.  
  101. % Some PDF files have excess Q operators!
  102. /Q {
  103.   currentdict /self .knownget {
  104.     exec //nodict eq {
  105.       end
  106.       % Restore graphics state, but do not modify path. Paths are not part
  107.       % of the PDF graphics state; see 4.4.1 of PDF reference 3rd ed.
  108.       % Collecting the path with one ctm and re-playing it with another ctm
  109.       % transforms the path exactly as PDF needs.
  110.       .getpath grestore newpath { exec } forall
  111.       //false
  112.     } {
  113.       //true
  114.     } ifelse
  115.   } {
  116.     //true    % formaterror -- not a gsave dict
  117.   } ifelse
  118.   { (\n   **** File has imbalanced q/Q operators \(too many Q's\) ****\n)
  119.     pdfformaterror
  120.   } if
  121. } bdef
  122.  
  123. % Save PDF gstate
  124. /qstate {       % - qstate <qstate>
  125.   gstate
  126. } bdef
  127.  
  128. % Set PDF gstate
  129. /setqstate {    % <qstate> setqstate -
  130.   { matrix setmatrix //false upath } stopped {
  131.     pop setgstate newpath
  132.   } {
  133.     % Save the CTM, set identity during the uappend, then set the CTM
  134.     exch setgstate matrix currentmatrix matrix setmatrix
  135.     exch newpath uappend setmatrix
  136.   } ifelse
  137. } bdef
  138.  
  139. % ---------------- Color setting ---------------- %
  140.  
  141. /fcput        % <color> <colorspace> fcput -
  142.  { /FillColorSpace gput /FillColor gput
  143.  } bdef
  144. /scput        % <color> <colorspace> scput -
  145.  { /StrokeColorSpace gput /StrokeColor gput
  146.  } bdef
  147. /csput        % <colorspace> csput -
  148.  { csset 2 copy fcput scput
  149.  } bdef
  150.  
  151. /csdevgray [/DeviceGray] readonly def
  152. /csdevrgb [/DeviceRGB] readonly def
  153. /csdevcmyk [/DeviceCMYK] readonly def
  154. /cspattern [/Pattern] readonly def
  155. /nullpattern1 mark
  156.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 1 1]
  157.    /XStep 1 /YStep 1 /PaintProc { pop } bind
  158. .dicttomark readonly def
  159. /nullpattern2 nullpattern1 dup length dict copy readonly def
  160.  
  161. % Each entry in the color space dictionary is a procedure of the form
  162. %    <cspace> -proc- <cspace> <initial-color>
  163. /CSdict mark
  164.   /DeviceGray { pop //csdevgray 0 } bind
  165.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  166.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  167.   /CIEBasedA { 0 } bind
  168.   /CIEBasedABC { [0 0 0] cvx } bind
  169.   /ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind
  170.   /Separation { 1 } bind
  171.   /DeviceN {    % What is the correct value??
  172.     [ 1 index 1 get length { 1 } repeat ] cvx
  173.   } bind
  174.   /Indexed { 0 } bind
  175.   /Pattern {
  176.     dup type /nametype eq 1 index length 1 eq or {
  177.       pop //cspattern //nullpattern1 matrix makepattern
  178.     } {
  179.       //nullpattern2 matrix makepattern 1 index 1 get csset
  180.         % Stack: patternspace nullpattern basecolor basespace
  181.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  182.       counttomark -1 roll ] cvx
  183.     } ifelse
  184.   } bind
  185. .dicttomark readonly def
  186. /csset            % <cspace> csset <color> <cspace>
  187.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  188.  } bdef
  189.  
  190. /g { //csdevgray fcput } bdef
  191. /G { //csdevgray scput } bdef
  192. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  193. /RG { 3 array astore cvx //csdevrgb scput } bdef
  194. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  195. /K { 4 array astore cvx //csdevcmyk scput } bdef
  196. /cs { csset fcput } bdef
  197. /CS { csset scput } bdef
  198. /ri { //.renderingintentdict exch .knownget { .setrenderingintent } if } bdef
  199. % We have to break up sc according to the number of operands.
  200. /sc1 { /FillColor gput } bdef
  201. /SC1 { /StrokeColor gput } bdef
  202. % We have to avoid storing into a color array associated with an outer
  203. % gsave level, so we do a kind of "copy on write".
  204. /sc* {
  205.   currentdict /FillColor .knownget {
  206.     astore pop
  207.   } {
  208.     /FillColor load
  209.     % FillColor may contain either a single value or an array.
  210.     dup type /arraytype eq { length }{ pop 1 } ifelse
  211.     array astore cvx /FillColor gput
  212.   } ifelse
  213. } bdef
  214. /SC* {
  215.   currentdict /StrokeColor .knownget {
  216.     astore pop
  217.   } {
  218.     /StrokeColor load
  219.     % StrokeColor may contain either a single value or an array.
  220.     dup type /arraytype eq { length }{ pop 1 } ifelse
  221.     array astore cvx /StrokeColor gput
  222.   } ifelse
  223. } bdef
  224.  
  225. % ---------------- Overprint/transparency setting ---------------- %
  226.  
  227. /op { /FillOverprint gput } bdef
  228. /OP { /StrokeOverprint gput } bdef
  229. /OPM {
  230.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  231. } bdef
  232. /ca { /FillConstantAlpha gput } bdef
  233. /CA { /StrokeConstantAlpha gput } bdef
  234. /SMask { /SoftMask gput } bdef
  235. /AIS { /AlphaIsShape gput } bdef
  236. /BM {
  237.   /.setblendmode where {
  238.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  239.       { .setblendmode } .internalstopped not { exit } if pop
  240.     } forall
  241.   } {
  242.     pop
  243.   } ifelse
  244. } bdef
  245. /TK {
  246.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  247. } bdef
  248.  
  249. % ---------------- Color installation ---------------- %
  250.  
  251. % Establish a given color (and color space) as current.
  252. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  253.   PDFusingtransparency {
  254.     /.begintransparencygroup where {
  255.       pop AlphaIsShape {
  256.         1 .setopacityalpha  exch .setshapealpha 1
  257.       } {
  258.         1 .setshapealpha  exch .setopacityalpha 0
  259.       } ifelse
  260.     % Set the soft mask by rendering the XObject.  Doing this every time
  261.     % is obviously very inefficient; we'll improve it later.
  262.       .settransparencymask    
  263.     } {
  264.       pop pop
  265.     } ifelse
  266.   } {
  267.     pop pop
  268.   } ifelse
  269. } bdef
  270. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  271.   exch dup null eq {
  272.     PDFusingtransparency {
  273.       pop pop
  274.     } {
  275.       dup /Draw get exec
  276.     } ifelse
  277.   } {
  278.     dup /Draw get exec
  279.   } ifelse
  280. } bdef
  281. % (Non-mask) images must execute setfillblend.
  282. /setfillblend {
  283.   FillOverprint setoverprint
  284.   FillConstantAlpha SoftMask .settransparencyparams
  285. } def
  286. /setfillstate {
  287.   FillColor FillColorSpace setgcolor setfillblend
  288. } def
  289. /setstrokestate {
  290.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  291.   StrokeConstantAlpha SoftMask .settransparencyparams
  292. } def
  293. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  294.   /DeviceGray { pop setgray } bdef
  295.   /DeviceRGB { pop setrgbcolor } bdef
  296.   /DeviceCMYK { pop setcmykcolor } bdef
  297.   /CIEBasedA { setgcolorspace setcolor } bdef
  298.   /CIEBasedABC /CIEBasedA load def
  299.   /CIEBasedDEF /CIEBasedA load def
  300.   /CIEBasedDEFG /CIEBasedA load def
  301.   /ICCBased /CIEBasedA load def
  302.   /Separation /CIEBasedA load def
  303.   /DeviceN /CIEBasedA load def
  304.   /Indexed /CIEBasedA load def
  305.   /Pattern
  306.    { setgcolorspace
  307.  
  308.      % Since multiple patterns may share
  309.      % same data stream, we need to ensure
  310.      % that the stream is at 0 position.
  311.      % Making this consistently with resolveshading,
  312.      % which applies ReusableStreamDecode filter
  313.      % to the PS stream, which represents the
  314.      % PDF stream in dynamics.
  315.  
  316.      dup /Shading knownoget {
  317.        dup /ShadingType oget 4 ge {
  318.          /DataSource knownoget {
  319.            dup type /filetype eq {
  320.              0 setfileposition
  321.            } {
  322.              pop
  323.            } ifelse
  324.          } if
  325.        } {
  326.         pop
  327.        } ifelse
  328.      } if
  329.  
  330.      % Associate pattern instance with the default qstate for the context. 
  331.      % A single pattren object can be reused in several contexts.
  332.      dup DefaultQstate .knownget {
  333.        exch pop
  334.      } {
  335.        dup dup /Matrix knownoget not { { 1 0 0 1 0 0 } } if
  336.        gsave DefaultQstate setqstate makepattern grestore
  337.        dup 3 1 roll
  338.        DefaultQstate exch put
  339.      } ifelse
  340.      setcolor
  341.    } bdef
  342. end def
  343. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  344.  { 1 index null eq
  345.     { pop pop }
  346.     { dup 0 get //Cdict exch get exec }
  347.    ifelse
  348.  } bdef
  349. % Compare the old and new color spaces in an attempt to avoid expensive
  350. % reloads of CIEBased color spaces.
  351. /PCSdict 15 dict dup begin    % <colorspace> -proc- <colorspace|pdfcspace>
  352.   /CIEBasedA { dup 1 get /PDFColorSpace .knownget { exch pop } if } bdef
  353.   /CIEBasedABC /CIEBasedA load def
  354.   /CIEBasedDEF /CIEBasedA load def
  355.   /CIEBasedDEFG /CIEBasedA load def
  356.   /Indexed {
  357.     dup 1 get dup pdfcolorspace 2 copy ne { 3 1 roll } if pop pop
  358.   } bdef
  359. end def
  360. /pdfcolorspace {    % <colorspace> pdfcolorspace <colorspace|pdfcspace>
  361.   dup type /arraytype eq {
  362.     //PCSdict 1 index 0 get .knownget { exec } if
  363.   } if
  364. } bdef
  365. /setgcolorspace {    % <colorspace> setgcolorspace -
  366.   dup pdfcolorspace currentcolorspace pdfcolorspace eq {
  367.     pop
  368.   } {
  369.     setcolorspace
  370.   } ifelse
  371. } bdef
  372. /fsexec        % <fillop|strokeop> fsexec -
  373.  {        % Preserve the current point, if any.
  374.     { currentpoint } stopped
  375.     { $error /newerror false put   cvx exec }
  376.     { 3 -1 roll cvx exec moveto }
  377.    ifelse
  378.  } bdef
  379.  
  380. % ---------------- Path painting and clipping ---------------- %
  381.  
  382. /S { setstrokestate /stroke fsexec } bdef
  383. /f { setfillstate /fill fsexec } bdef
  384. /f* { setfillstate /eofill fsexec } bdef
  385. /n { newpath } bdef        % don't allow n to get bound in
  386. /s { closepath S } bdef
  387. /B { gsave setfillstate fill grestore S } bdef
  388. /b { closepath B } bdef
  389. /B* { gsave setfillstate eofill grestore S } bdef
  390. /b* { closepath B* } bdef
  391.  
  392. % Clipping:
  393.  
  394. /Wdict 4 dict dup begin
  395. /S { gsave setstrokestate stroke grestore n } bdef
  396. /f { gsave setfillstate fill grestore n } bdef
  397. /f* { gsave setfillstate eofill grestore n } bdef
  398. /n { end clip newpath } bdef
  399. end readonly def
  400. /W { //Wdict begin } bdef
  401. /W*dict 4 dict dup begin
  402. Wdict { def } forall
  403. /n { end eoclip newpath } bdef
  404. end readonly def
  405. /W* { //W*dict begin } bdef
  406.  
  407. % ---------------- Text control ---------------- %
  408.  
  409. /textbeginpage
  410.  { /TextSpacing 0 def        % 0 Tc
  411.    /TextLeading 0 def        % 0 TL
  412.    /TextRenderingMode 0 def    % 0 Tr
  413.    /TextRise 0 def        % 0 Ts
  414.    /WordSpacing 0 def        % 0 Tw
  415.    /TextHScaling 1.0 def    % 100 Tz
  416.    /TextFont null def
  417.    /FontMatrixNonHV //false def
  418.    /Show { showfirst } def
  419.  } bdef
  420.  
  421. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  422. % if the CharProc for a Type 3 font does a BT/ET itself.
  423. % Since we always call the CharProc inside a q/Q, we simply ensure that
  424. % the text state is saved and restored like the rest of the extended
  425. % graphics state.
  426.  
  427. /settextmatrix {
  428.   TextMatrix concat
  429.   TextHScaling 1 ne { TextHScaling 1 scale } if
  430.   TextRise 0 ne { 0 TextRise translate } if
  431.   TextFont dup null eq { pop } { setfont } ifelse
  432. } bdef
  433. /settextstate {
  434.     % The text state can be set even outside BT/ET.
  435.   currentdict /TextSaveMatrix known {
  436.     TextSaveMatrix setmatrix settextmatrix
  437.   } if
  438. } bdef
  439. /settextposition {
  440.         % Update the TextMatrix translation.
  441.   gsave TextSaveMatrix setmatrix
  442.   currentpoint TextRise sub TextMatrix 4 2 getinterval astore pop
  443.         % We would like to do "grestore currentpoint translate"
  444.         % here, but some PDF files set a singular text matrix
  445.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  446.   TextTempMatrix identmatrix setmatrix currentpoint
  447.   grestore
  448.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  449.   TextTempMatrix setmatrix
  450. } bdef
  451.  
  452. /BT {
  453.   currentdict /TextLineMatrix .knownget
  454.     { identmatrix pop TextMatrix identmatrix pop }
  455.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  456.   ifelse
  457.   { showfirst } /Show gput
  458.   currentdict /TextSaveMatrix .knownget not {
  459.     matrix dup /TextSaveMatrix gput
  460.   } if currentmatrix pop settextmatrix
  461.   matrix /TextTempMatrix gput        % see settextposition
  462. } bdef
  463. /ET {
  464.   TextRenderingMode 4 ge { clip newpath } if
  465.   TextSaveMatrix setmatrix
  466.   currentdict /TextSaveMatrix undef
  467. } bdef
  468. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  469. /TL { /TextLeading gput } bdef
  470. /Tr { dup .settextrenderingmode /TextRenderingMode gput { showfirst } /Show gput } bdef
  471. /Ts { /TextRise gput settextstate } bdef
  472. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  473. /Tz { 100 div /TextHScaling gput settextstate} bdef
  474.  
  475. % ---------------- Font control ---------------- %
  476.  
  477. % Test if the FontMatrix could transform a horizontal/vertical (depending
  478. % on writing mode) advance vector in glyph space into one with a different
  479. % direction in text space.
  480. % - if FontMatrix = [a b c d tx ty], this condition translates to:
  481. %       b != 0 for horizontal writing mode
  482. %       c != 0 for vertical writing mode
  483. % - when false, we automatically have wy/x == 0 in text space whenever wy/x == 0
  484. %   in glyph space, and can avoid the slow method that is otherwise necessary
  485. %   to implement zeroing wy/x cf PDF Ref 5.3.3 "Text space details"
  486.     % Worker procedure for testing a single font matrix
  487. /?FontMatrixNonHV {            % ?horz <<fontdict>> -- ?horz ?nonhv
  488.     /FontMatrix .knownget {
  489.     1 index { 1 } { 2 } ifelse get 0 ne
  490.     } {
  491.     //false
  492.     } ifelse
  493. } bdef
  494.     % Worker procedure for recursive checking of font matrices
  495. /?FontMatrixNonHV {            % {self} ?horz <<font>> -- {self} ?horz ?nonhv
  496.     2 copy //?FontMatrixNonHV exec {        % check the font's own FontMatrix
  497.     pop pop //true
  498.     } {
  499.     % look for descendents/ components
  500.     pop                    % {self} ?horz <<font>>
  501.     dup /FontType get
  502.     dup 0 eq {                % Type 0: look into FDepVector
  503.         pop /FDepVector get 2 index        % {self} ?horz [fonts..] {testproc}
  504.     } {
  505.         9 eq {                % Type 9 (CIDFontType 0): check FDArray
  506.         /FDArray get //?FontMatrixNonHV
  507.         } {                    % all others: nothing more to check
  508.         pop {} {}
  509.         } ifelse
  510.     } ifelse
  511.     %stack: {self} ?horz [fonts..] {testproc}
  512.     //false 5 2 roll {            % {testproc} false {self} ?horz <<subfont>>
  513.         4 index exec {
  514.         4 -1 roll pop //true 4 1 roll
  515.         exit
  516.         } if
  517.     } forall
  518.     %stack: {testproc} ?nonhv {self} ?horz
  519.     4 2 roll exch pop
  520.     } ifelse
  521. } bdef
  522.     % Main procedure
  523. /?FontMatrixNonHV {        % <<rootfont>> -- ?nonhv
  524.     //?FontMatrixNonHV exch
  525.     % determine WMode
  526.     dup /WMode .knownget { 0 eq } { //true } ifelse % {proc} <<rootfont>> ?horz
  527.     exch
  528.     % call the worker procedure
  529.     //?FontMatrixNonHV exec
  530.     exch pop exch pop
  531. } bdef
  532.  
  533. /Tf {        % <font> <scale> Tf -
  534.   dup 0 eq {
  535.     (\n   **** Warning: Invalid 0.0 font scale given for Tf ****\n)
  536.     pdfformaterror
  537.     pop 0.00000001    % handle invalid scale by using a really small value
  538.   } if
  539.   1 index type /dicttype ne {
  540.     selectfont currentfont
  541.   } {
  542.     dup 1 eq { pop } { scalefont } ifelse
  543.   }
  544.   ifelse
  545.   dup ?FontMatrixNonHV dup FontMatrixNonHV ne {
  546.     /FontMatrixNonHV gput
  547.     { showfirst } /Show gput
  548.   } {
  549.     pop
  550.   } ifelse
  551.   /TextFont gput settextstate
  552. } bdef
  553.  
  554. % Copy a font, removing its FID.  If changed is true, also remove
  555. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  556. % the keys being removed, don't copy it.
  557. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  558.  { 1 index /FID known
  559.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  560.     {        % We add 1 to the length just in case the original
  561.         % didn't have a FID.
  562.       exch dup length 1 add dict exch
  563.        {        % Stack: changed newfont key value
  564.      1 index /FID eq 4 index
  565.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  566.      if not { 3 copy put } if pop pop
  567.        }
  568.       forall exch
  569.     }
  570.    if pop
  571.  } bdef
  572.  
  573. % Insert a new Encoding or Metrics into a font if necessary.
  574. % Return a possibly updated font, and a flag to indicate whether
  575. % the font was actually copied.
  576. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  577.             %   <font'> <copied>
  578.   dup //null ne {
  579.     exch //true .copyfontdict dup /Metrics 4 -1 roll put //true
  580.   } {
  581.     pop //false
  582.   } ifelse
  583. } bdef
  584.  
  585. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  586.             %   <font'> <copied>
  587.   dup //null ne { dup 2 index /Encoding get ne } { //false } ifelse {
  588.     exch //false .copyfontdict dup /Encoding 4 -1 roll put //true
  589.   } {
  590.     pop //false
  591.   } ifelse
  592. } bdef
  593.  
  594. % Duplicate keys in CharString dictionary according to GlyphMap: <</new_glyph /old_glyph>>
  595. % We have to do this because PDF fonts can associate multiple widths with the same glyph
  596. % but Metrics dictionary works by the glyph name.
  597. /.update_charstring {    % <font> <GlyphMap> .update_charstring  <font'> <copied>
  598.   dup //null ne {
  599.     exch //true .copyfontdict       % map font
  600.     dup dup /CharStrings get        % map font font cstr
  601.     dup length                      % map font font cstr len
  602.     4 index length add              % map font font cstr len+map_len
  603.     dict copy dup begin             % map font font cstr'
  604.     /CharStrings exch put           % map font
  605.     exch {                          % font /new /old
  606.       currentdict exch .knownget {
  607.         def
  608.       } {
  609.         currentdict /.notdef .knownget {
  610.           def
  611.         } {
  612.           pop
  613.           % The font has no .notdef.
  614.           % Could not resolve the conflict,
  615.           % but either the font is invalid or the glyph name is never used.
  616.         } ifelse
  617.       } ifelse
  618.     } forall
  619.     end //true
  620.   } {
  621.     pop //false
  622.   } ifelse
  623. } bdef
  624.  
  625. /.updatefont {          % <font> <Encoding|null> <Metrics|null> <GlyphMap|null>
  626.                       %        .updatefont <font'> <copied>
  627.   4 2 roll            % <Metrics|null> <GlyphMap> <font> <Encoding|null>
  628.   .updatefontencoding % <Metrics|null> <GlyphMap> <font> bool
  629.   4 1 roll exch       % bool <Metrics|null> <font> <GlyphMap>
  630.   .update_charstring  % bool <Metrics|null> <font> bool
  631.   3 1 roll exch       % bool bool <font> <Metrics|null>
  632.   .updatefontmetrics  % bool bool <font> bool
  633.   4 2 roll or or      % <font> is_copied
  634. } bdef
  635.  
  636. % ---------------- Text positioning ---------------- %
  637.  
  638. /Td {
  639.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  640.   TextLineMatrix TextMatrix copy pop settextstate
  641. } bdef
  642. /TD { dup neg /TextLeading gput Td } bdef
  643. /T* { 0 TextLeading neg Td } bdef
  644. /Tm {
  645.   TextLineMatrix astore TextMatrix copy pop settextstate
  646. } bdef
  647.  
  648. % ---------------- Text painting ---------------- %
  649.  
  650. /Vexch {
  651.   rootfont /WMode knownoget { 1 eq { exch } if } if
  652. } bind def
  653.  
  654. /textrenderingprocs [        % (0 is handled specially)
  655.     % Painting-only modes
  656.    { tf } { tS } { tB } { tn }
  657.     % Clipping modes
  658.    { gsave tf grestore tW }
  659.    { gsave tS grestore tW }
  660.    { gsave tB grestore tW }
  661.    { tW }
  662. ] readonly def
  663.  
  664. /pdfwrite_textrenderingprocs [
  665.     { setfillstate show } bind
  666.     { setstrokestate 
  667.         % Need to set the stroke width to a value which gives the correct
  668.         % width under pdfwrite. Pdfwrite uses (in text mode) an identity
  669.         % CTM, so we need to calculate the stroke width which would result
  670.         % if the CTM had been unity. 
  671.       currentlinewidth dup
  672.       matrix defaultmatrix idtransform TextSaveMatrix dtransform
  673.       2 copy eq {
  674.           pop
  675.         }{
  676.           % non-square scaling reduces to Text matrix in pdfwrite , so 
  677.           % we can ignore it. (wrong answer, but consistent)
  678.           pop pop currentlinewidth
  679.         }ifelse setlinewidth
  680.         show } bind
  681.     { gsave 0 .settextrenderingmode 
  682.       setfillstate dup show currentpoint 3 -1 roll 
  683.       grestore gsave setstrokestate 
  684.         false charpath 
  685.         % We need to make sure the matrix used for the stroke
  686.         % and therefore stroke width does not include the 
  687.         % Text Matrix Tm.
  688.         TextSaveMatrix setmatrix
  689.         stroke 
  690.       grestore moveto
  691.     } bind
  692.     { setfillstate show } bind
  693.     { gsave 0 .settextrenderingmode 
  694.       setfillstate dup show grestore true charpath } bind
  695.     { gsave 1 .settextrenderingmode 
  696.       setstrokestate dup show grestore
  697.       true charpath } bind
  698.     { gsave 0 .settextrenderingmode 
  699.       setfillstate dup show grestore gsave dup 
  700.       setstrokestate false charpath 
  701.         % We need to make sure the matrix used for the stroke
  702.         % and therefore stroke width does not include the 
  703.         % Text Matrix Tm.
  704.         TextSaveMatrix setmatrix
  705.         stroke grestore 
  706.       true charpath } bind
  707.     { true charpath } bind
  708. ] readonly def
  709.  
  710. /setshowstate
  711.  { WordSpacing 0 eq TextSpacing 0 eq and FontMatrixNonHV not and
  712.     { 
  713.     currentdevice .devicename /pdfwrite eq 
  714.     {
  715.         pdfwrite_textrenderingprocs TextRenderingMode get
  716.     }
  717.     {
  718.         TextRenderingMode 0 eq {
  719.             { setfillstate show }
  720.           } {
  721.             TextRenderingMode 3 eq {
  722.                     % Some PDF files execute 'tm' with a singular matrix,
  723.             % and then use the text rendering mode 3.
  724.             % The graphics library currently cannot handle text
  725.             % operations when the CTM is singular.
  726.             % Work around this here.
  727.           {    
  728.                 matrix currentmatrix dup dup
  729.                 dup 0 get 0 eq 1 index 1 get 0 eq and {
  730.                   dup dup 2 get 0 eq { 0 }{ 1 } ifelse 1 put
  731.                 } if
  732.                 dup 2 get 0 eq 1 index 3 get 0 eq and {
  733.                   dup dup 1 get 0 eq { 3 }{ 2 } ifelse 1 put
  734.                 } if
  735.                 setmatrix
  736.                 2 index setfillstate show % Tr was set to graphic state.
  737.                 setmatrix 
  738.             % now set the currentpoint using the original matrix
  739.                 gsave
  740.                 setmatrix
  741.                 false charpath currentpoint newpath 
  742.                 grestore
  743.                 moveto
  744.               }
  745.             } {
  746.               { false charpath textrenderingprocs TextRenderingMode get exec }
  747.             } ifelse
  748.           } ifelse
  749.     } ifelse
  750.     }
  751.     { TextRenderingMode 0 eq TextRenderingMode 3 eq or
  752.        % Tr was set to graphic state.
  753.        { FontMatrixNonHV {
  754.            {
  755.              setfillstate
  756.              [ TextSpacing WordSpacing 3 index
  757.                {                        % str [... weach wword c undef|ythis xthis|undef
  758.          exch % will be removed, unless FontMatrix.xx/yy == 0 (FontMatrixNonHV already true)
  759.                  Vexch pop                                  % str [... weach wword c wthis
  760.                  3 index add exch 32 eq {1 index add} if    % str [... weach wword w
  761.                  3 1 roll                                   % str [... w weach wword
  762.                }
  763.                % for the "exch" removed or not below, see comment in pdf_font.ps::getfontmetrics
  764.            currentfont /FontMatrix get 0 3 Vexch pop get 0 ne {
  765.              1 1 index length 1 sub getinterval cvx
  766.            } if
  767.            cshow pop pop ]
  768.              { xshow } { yshow } Vexch pop exec
  769.            }
  770.          } {
  771.            WordSpacing 0 eq
  772.             { { setfillstate TextSpacing 0 Vexch 3 -1 roll ashow } }
  773.         { TextSpacing 0 eq
  774.               { { setfillstate WordSpacing 0 Vexch 32 4 -1 roll widthshow } }
  775.               { { setfillstate WordSpacing 0 Vexch 32
  776.                    TextSpacing 0 Vexch 6 -1 roll awidthshow } }
  777.           ifelse
  778.         }
  779.        ifelse
  780.          } ifelse
  781.        }
  782.        { { WordSpacing TextSpacing
  783.             % Implement the combination of t3 and false charpath.
  784.             % Note that we must use cshow for this, because we
  785.             % can't parse multi-byte strings any other way.
  786.             % Stack: string wword wchar
  787.         {
  788.          exch % will be removed, unless FontMatrixNonHV && FontMatrix.xx/yy == 0
  789.             % Stack: str wword wchar ccode xthis ythis
  790.          Vexch pop currentpoint 6 3 roll
  791.             % Stack: str wthis xorig yorig wword wchar ccode
  792.          (x) dup 0 3 index put //false charpath
  793.              3 copy 32 eq { add } { exch pop } ifelse
  794.             % Stack: str wthis xorig yorig wword wchar ccode wextra
  795.              7 -3 roll moveto add
  796.              0 Vexch rmoveto pop
  797.         }
  798.             % for the "exch" removed or not below, see comment in pdf_font.ps::getfontmetrics
  799.         FontMatrixNonHV dup not exch {
  800.           currentfont /FontMatrix get 0 3 Vexch pop get 0 ne
  801.         } if {
  802.           1 1 index length 1 sub getinterval cvx
  803.         } if
  804.        4 -1 roll cshow pop pop
  805.        textrenderingprocs TextRenderingMode get exec
  806.      }
  807.        }
  808.       ifelse
  809.     }
  810.    ifelse /Show gput
  811.  } bdef
  812. /showfirst { setshowstate Show } def
  813.  
  814. /Tj {
  815.   0 0 moveto Show settextposition
  816. } bdef
  817. /' { T* Tj } bdef
  818. /" { exch Tc exch Tw T* Tj } bdef
  819. /TJ {
  820.   0 0 moveto {
  821.     dup type /stringtype eq {
  822.       Show
  823.     } { -1000 div
  824.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  825.       0 Vexch rmoveto
  826.     } ifelse
  827.   } forall settextposition
  828. } bdef
  829.  
  830. /tf { setfillstate currentpoint fill moveto } bdef
  831. /tn { currentpoint newpath moveto } bdef % Obsolete, never used.
  832. % For stroking characters, temporarily restore the graphics CTM so that
  833. % the line width will be transformed properly.
  834. /Tmatrix matrix def
  835. /tS
  836.  { setstrokestate
  837.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  838.    setmatrix moveto
  839.  } bdef
  840. /tB { gsave tf grestore tS } bdef
  841. % This does the wrong thing if there have been multiple text operations
  842. % within a single BT/ET pair, but it's a start.
  843. /tW { } bdef
  844.  
  845. % Text formatting and painting for the AcroForm field without appearance streams.
  846. /Tform {                % <MaxLen> (V) <Ff> <Q> Tform -
  847.   clippath pathbbox 4 2 roll pop pop                        % MaxLen (V) Ff Q dx dy
  848.   currentfont /ScaleMatrix .knownget { 3 get } { 1 } ifelse % MaxLen (V) Ff Q dx dy yy
  849.   currentfont /FontBBox get dup 1 get neg exch 3 get        % MaxLen (V) Ff Q dx dy yy desc asc
  850.   dup 0 ne { div } { pop pop 0 } ifelse                     % MaxLen (V) Ff Q dx dy yy desc/asc
  851.   1 index mul                                               % MaxLen (V) Ff Q dx dy yy desc/asc*yy
  852.  
  853.   4 index 16#1000 and 0 ne { % multiline
  854.     8 { pop } repeat (Multiline form fields are not yet implemented.) =
  855.   } {
  856.     4 index 16#1000000 and 0 ne { % comb
  857.       8 { pop } repeat (Combed form fields are not yet implemented.) =
  858.     } { % plain text                                       
  859.       3 1 roll sub add 2 div             % MaxLen (V) Ff Q dx (dy-yy+desc)/2
  860.       0 exch moveto                      % MaxLen (V) Ff Q dx
  861.       1 index 0 ne {
  862.         3 index stringwidth pop          % MaxLen (V) Ff Q dx w
  863.         sub exch 1 eq { 2 div } { 2 sub } ifelse % MaxLen (V) Ff (dx-w)/2
  864.         0 rmoveto                        % MaxLen (V) Ff
  865.         pop                              % MaxLen (V)
  866.       } {
  867.         pop pop pop                      % MaxLen (V)
  868.         2 0 rmoveto
  869.       } ifelse
  870.       exch pop Show                      % -
  871.     } ifelse
  872.   } ifelse
  873. } bdef
  874.  
  875. end readonly put        % GS_PDF_ProcSet
  876.  
  877. .setglobal
  878.