home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / pdf_ops.ps < prev    next >
Text File  |  2000-12-05  |  16KB  |  516 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: pdf_ops.ps,v 1.15 2000/09/19 18:29:11 lpd Exp $
  19. % Definitions for most of the PDF operators.
  20.  
  21. .currentglobal true .setglobal
  22.  
  23. % Define pdfmark.  Don't allow it to be bound in.
  24. % Also don't define it in systemdict, because this leads some Adobe code
  25. % to think this interpreter is a distiller.
  26. % (If this interpreter really is a distiller, don't do this.)
  27. systemdict /pdfmark known not
  28.  { userdict /pdfmark { cleartomark } bind put } if
  29.  
  30. userdict /GS_PDF_ProcSet 127 dict dup begin
  31.  
  32. % ---------------- Abbreviations ---------------- %
  33.  
  34. /bdef { bind def } bind def
  35.  
  36. % ---------------- Graphics state stack ---------------- %
  37.  
  38. % PDF adds a number of parameters to the graphics state.
  39. % We implement this by pushing and popping a dictionary
  40. % each time we do a PDF gsave or grestore.
  41. % The keys in this dictionary are as follows:
  42. %    self            % identifies the dictionary as one of ours
  43. %    ClipRect        % (optional)
  44. %    Show
  45. %    TextSaveMatrix        % matrix at time of BT (iff within BT/ET)
  46. % (The following correspond directly to PDF state parameters.)
  47. %    AlphaIsShape
  48. %    FillConstantAlpha
  49. %    FillColor
  50. %    FillColorSpace
  51. %    FillOverprint
  52. %    SoftMask
  53. %    StrokeConstantAlpha
  54. %    StrokeColor
  55. %    StrokeColorSpace
  56. %    StrokeOverprint
  57. %    TextSpacing
  58. %    TextHScaling
  59. %    Leading
  60. %    TextFont
  61. %    TextLineMatrix
  62. %    TextMatrix
  63. %    TextRise
  64. %    TextRenderingMode
  65. %    WordSpacing
  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.   currentdict /ClipRect .knownget { aload pop rectclip } if
  82.   0 g  0 G  false op  false OP  0 OPM
  83.   1 ca  1 CA  null SMask  false AIS  /Compatible BM  true TK
  84. } bdef
  85.  
  86. /gput        % <value> <key> gput -
  87.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  88.         % If we're in a Level 1 system, we need to grow the
  89.         % dictionary explicitly.
  90.    currentdict length currentdict maxlength ge %eq
  91.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  92.     }
  93.    if def
  94.  } bdef
  95.  
  96. /q {
  97.   gsave //nodict begin
  98. } bdef
  99. % Some PDF files have excess Q operators!
  100. /Q {
  101.   currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  102. } bdef
  103.  
  104. % ---------------- Color setting ---------------- %
  105.  
  106. /fcput        % <color> <colorspace> fcput -
  107.  { /FillColorSpace gput /FillColor gput
  108.  } bdef
  109. /scput        % <color> <colorspace> scput -
  110.  { /StrokeColorSpace gput /StrokeColor gput
  111.  } bdef
  112.  
  113. /csdevgray [/DeviceGray] readonly def
  114. /csdevrgb [/DeviceRGB] readonly def
  115. /csdevcmyk [/DeviceCMYK] readonly def
  116. /cspattern [/Pattern] readonly def
  117. /nullpattern1 mark
  118.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  119.    /XStep 1 /YStep 1 /PaintProc { }
  120. .dicttomark readonly def
  121. /nullpattern2 nullpattern1 dup length dict copy readonly def
  122.  
  123. % Each entry in the color space dictionary is a procedure of the form
  124. %    <cspace> -proc- <cspace> <initial-color>
  125. /CSdict mark
  126.   /DeviceGray { pop //csdevgray 0 } bind
  127.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  128.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  129.   /CIEBasedA { 0 } bind
  130.   /CIEBasedABC { [0 0 0] cvx } bind
  131.   /Separation { 1 } bind
  132.   /DeviceN {    % What is the correct value??
  133.     [ 1 index 1 get length { 1 } repeat ] cvx
  134.   } bind
  135.   /Indexed { 0 } bind
  136.   /Pattern {
  137.     dup type /nametype eq 1 index length 1 eq or {
  138.       pop //cspattern //nullpattern1 matrix makepattern
  139.     } {
  140.       //nullpattern2 matrix makepattern 1 index 1 get csset
  141.         % Stack: patternspace nullpattern basecolor basespace
  142.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  143.       counttomark -1 roll ] cvx
  144.     } ifelse
  145.   } bind
  146. .dicttomark readonly def
  147. /csset            % <cspace> csset <color> <cspace>
  148.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  149.  } bdef
  150.  
  151. /g { //csdevgray fcput } bdef
  152. /G { //csdevgray scput } bdef
  153. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  154. /RG { 3 array astore cvx //csdevrgb scput } bdef
  155. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  156. /K { 4 array astore cvx //csdevcmyk scput } bdef
  157. /cs { csset fcput } bdef
  158. /CS { csset scput } bdef
  159. /ri { pop } bdef
  160. % We have to break up sc according to the number of operands.
  161. /sc1 { /FillColor gput } bdef
  162. /SC1 { /StrokeColor gput } bdef
  163. % We have to avoid storing into a color array associated with an outer
  164. % gsave level, so we do a kind of "copy on write".
  165. /sc* {
  166.   currentdict /FillColor .knownget {
  167.     astore pop
  168.   } {
  169.     /FillColor load length array astore cvx /FillColor gput
  170.   } ifelse
  171. } bdef
  172. /SC* {
  173.   currentdict /StrokeColor .knownget {
  174.     astore pop
  175.   } {
  176.     /StrokeColor load length array astore cvx /StrokeColor gput
  177.   } ifelse
  178. } bdef
  179.  
  180. % ---------------- Overprint/transparency setting ---------------- %
  181.  
  182. /op { /FillOverprint gput } bdef
  183. /OP { /StrokeOverprint gput } bdef
  184. /OPM {
  185.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  186. } bdef
  187. /ca { /FillConstantAlpha gput } bdef
  188. /CA { /StrokeConstantAlpha gput } bdef
  189. /SMask { /SoftMask gput } bdef
  190. /AIS { /AlphaIsShape gput } bdef
  191. /BM {
  192.   /.setblendmode where {
  193.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  194.       { .setblendmode } .internalstopped not { exit } if pop
  195.     } forall
  196.   } {
  197.     pop
  198.   } ifelse
  199. } bdef
  200. /TK {
  201.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  202. } bdef
  203.  
  204. % ---------------- Color installation ---------------- %
  205.  
  206. % Establish a given color (and color space) as current.
  207. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  208.   /.begintransparencymask where {
  209.     pop AlphaIsShape {
  210.       1 .setopacityalpha 0 .inittransparencymask exch .setshapealpha 1
  211.     } {
  212.       1 .setshapealpha 1 .inittransparencymask exch .setopacityalpha 0
  213.     } ifelse
  214.     % Set the soft mask by rendering the XObject.  Doing this every time
  215.     % is obviously very inefficient; we'll improve it later.
  216.     .settransparencymask    
  217.   } {
  218.     pop pop
  219.   } ifelse
  220. } bdef
  221. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  222.   exch dup null eq {
  223.     pop .inittransparencymask
  224.   } {
  225.     dup /Draw get exec
  226.   } ifelse
  227. } bdef
  228. % (Non-mask) images must execute setfillblend.
  229. /setfillblend {
  230.   FillOverprint setoverprint
  231.   FillConstantAlpha SoftMask .settransparencyparams
  232. } def
  233. /setfillstate {
  234.   FillColor FillColorSpace setgcolor setfillblend
  235. } def
  236. /setstrokestate {
  237.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  238.   StrokeConstantAlpha SoftMask .settransparencyparams
  239. } def
  240. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  241.   /DeviceGray { pop setgray } bdef
  242.   /DeviceRGB { pop setrgbcolor } bdef
  243.   /DeviceCMYK { pop setcmykcolor } bdef
  244.   /CIEBasedA
  245.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  246.   /CIEBasedABC /CIEBasedA load def
  247.   /CIEBasedDEF /CIEBasedA load def
  248.   /CIEBasedDEFG /CIEBasedA load def
  249.   /Separation /CIEBasedA load def
  250.   /DeviceN /CIEBasedA load def
  251.   /Indexed /CIEBasedA load def
  252.   /Pattern
  253.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  254.      dup /Matrix .knownget not { matrix } if
  255.      gsave DefaultMatrix setmatrix makepattern grestore setcolor
  256.    } bdef
  257. end def
  258. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  259.  { 1 index null eq
  260.     { pop pop }
  261.     { dup 0 get //Cdict exch get exec }
  262.    ifelse
  263.  } bdef
  264. /fsexec        % <fillop|strokeop> fsexec -
  265.  {        % Preserve the current point, if any.
  266.     { currentpoint } stopped
  267.     { $error /newerror false put   cvx exec }
  268.     { 3 -1 roll cvx exec moveto }
  269.    ifelse
  270.  } bdef
  271.  
  272. % ---------------- Path painting and clipping ---------------- %
  273.  
  274. /S { setstrokestate /stroke fsexec } bdef
  275. /f { setfillstate /fill fsexec } bdef
  276. /f* { setfillstate /eofill fsexec } bdef
  277. /n { newpath } bdef        % don't allow n to get bound in
  278. /s { closepath S } bdef
  279. /B { gsave setfillstate fill grestore S } bdef
  280. /b { closepath B } bdef
  281. /B* { gsave setfillstate eofill grestore S } bdef
  282. /b* { closepath B* } bdef
  283.  
  284. % Clipping:
  285.  
  286. /Wdict 4 dict dup begin
  287. /S { gsave setstrokestate stroke grestore n } bdef
  288. /f { gsave setfillstate fill grestore n } bdef
  289. /f* { gsave setfillstate eofill grestore n } bdef
  290. /n { end clip newpath } bdef
  291. end readonly def
  292. /W { //Wdict begin } bdef
  293. /W*dict 4 dict dup begin
  294. Wdict { def } forall
  295. /n { end eoclip newpath } bdef
  296. end readonly def
  297. /W* { //W*dict begin } bdef
  298.  
  299. % ---------------- Text control ---------------- %
  300.  
  301. /textbeginpage
  302.  { /TextSpacing 0 def        % 0 Tc
  303.    /TextLeading 0 def        % 0 TL
  304.    /TextRenderingMode 0 def    % 0 Tr
  305.    /TextRise 0 def        % 0 Ts
  306.    /WordSpacing 0 def        % 0 Tw
  307.    /TextHScaling 1.0 def    % 100 Tz
  308.    /TextFont null def
  309.    /Show { showfirst } def
  310.  } bdef
  311.  
  312. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  313. % if the CharProc for a Type 3 font does a BT/ET itself.
  314. % Since we always call the CharProc inside a q/Q, we simply ensure that
  315. % the text state is saved and restored like the rest of the extended
  316. % graphics state.
  317.  
  318. /settextmatrix {
  319.   TextMatrix concat
  320.   TextHScaling 1 ne { TextHScaling 1 scale } if
  321.   TextRise 0 ne { 0 TextRise translate } if
  322.   TextFont dup null eq { pop } { setfont } ifelse
  323. } bdef
  324. /settextstate {
  325.     % The text state can be set even outside BT/ET.
  326.   currentdict /TextSaveMatrix known {
  327.     TextSaveMatrix setmatrix settextmatrix
  328.   } if
  329. } bdef
  330. /settextposition {
  331.         % Update the TextMatrix translation.
  332.   gsave TextSaveMatrix setmatrix
  333.   currentpoint TextMatrix 4 2 getinterval astore pop
  334.         % We would like to do "grestore currentpoint translate"
  335.         % here, but some PDF files set a singular text matrix
  336.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  337.   TextTempMatrix identmatrix setmatrix currentpoint
  338.   grestore
  339.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  340.   TextTempMatrix setmatrix
  341. } bdef
  342.  
  343. /BT {
  344.   currentdict /TextLineMatrix .knownget
  345.     { identmatrix pop TextMatrix identmatrix pop }
  346.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  347.   ifelse
  348.   { showfirst } /Show gput
  349.   currentdict /TextSaveMatrix .knownget not {
  350.     matrix dup /TextSaveMatrix gput
  351.   } if currentmatrix pop settextmatrix
  352.   matrix /TextTempMatrix gput        % see settextposition
  353. } bdef
  354. /ET {
  355.   TextRenderingMode 4 ge { clip newpath } if
  356.   TextSaveMatrix setmatrix
  357.   currentdict /TextSaveMatrix undef
  358. } bdef
  359. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  360. /TL { /TextLeading gput } bdef
  361. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bdef
  362. /Ts { /TextRise gput settextstate } bdef
  363. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  364. /Tz { 100 div /TextHScaling gput settextstate} bdef
  365.  
  366. % ---------------- Font control ---------------- %
  367.  
  368. /Tf {        % <font> <scale> Tf -
  369.   dup 1 eq { pop } { scalefont } ifelse
  370.   /TextFont gput settextstate
  371. } bdef
  372.  
  373. % Read a CFF font.
  374. /FRD        % <resname> <file> FRD -
  375.  { /FontSetInit /ProcSet findresource begin true ReadData
  376.  } bdef
  377.  
  378. % Copy a font, removing its FID.  If changed is true, also remove
  379. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  380. % the keys being removed, don't copy it.
  381. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  382.  { 1 index /FID known
  383.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  384.     {        % We add 1 to the length just in case the original
  385.         % didn't have a FID.
  386.       exch dup length 1 add dict exch
  387.        {        % Stack: changed newfont key value
  388.      1 index /FID eq 4 index
  389.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  390.      if not { 3 copy put } if pop pop
  391.        }
  392.       forall exch
  393.     }
  394.    if pop
  395.  } bdef
  396.  
  397. % Insert a new Encoding or Metrics into a font if necessary.
  398. % Return a possibly updated font, and a flag to indicate whether
  399. % the font was actually copied.
  400. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  401.             %   <font'> <copied>
  402.   dup null ne {
  403.     exch true .copyfontdict dup /Metrics 4 -1 roll put true
  404.   } {
  405.     pop false
  406.   } ifelse
  407. } bdef
  408. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  409.             %   <font'> <copied>
  410.   dup null ne { dup 2 index /Encoding get ne } { false } ifelse {
  411.     exch false .copyfontdict dup /Encoding 4 -1 roll put true
  412.   } {
  413.     pop false
  414.   } ifelse
  415. } bdef
  416. /.updatefont {        % <font> <Encoding|null> <Metrics|null> .updatefont
  417.             %   <font'> <copied>
  418.   3 -1 roll exch .updatefontmetrics
  419.             % Stack: enc|null font' copied
  420.   3 1 roll exch .updatefontencoding 3 -1 roll or
  421. } bdef
  422.  
  423. % ---------------- Text positioning ---------------- %
  424.  
  425. /Td {
  426.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  427.   TextLineMatrix TextMatrix copy pop settextstate
  428. } bdef
  429. /TD { dup neg /TextLeading gput Td } bdef
  430. /T* { 0 TextLeading neg Td } bdef
  431. /Tm {
  432.   TextLineMatrix astore TextMatrix copy pop settextstate
  433. } bdef
  434.  
  435. % ---------------- Text painting ---------------- %
  436.  
  437. /textrenderingprocs [        % (0 is handled specially)
  438.     % Painting-only modes
  439.    { tf } { tS } { tB } { tn }
  440.     % Clipping modes
  441.    { gsave tf grestore tW }
  442.    { gsave tS grestore tW }
  443.    { gsave tB grestore tW }
  444.    { tW }
  445. ] readonly def
  446. /setshowstate
  447.  { WordSpacing 0 eq TextSpacing 0 eq and
  448.     { TextRenderingMode 0 eq
  449.        { { setfillstate show } }
  450.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  451.       ifelse
  452.     }
  453.     { TextRenderingMode 0 eq
  454.        { WordSpacing 0 eq
  455.           { { setfillstate TextSpacing exch 0 exch ashow } }
  456.       { TextSpacing 0 eq
  457.          { { setfillstate WordSpacing exch 0 exch 32 exch widthshow } }
  458.          { { setfillstate WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  459.         ifelse
  460.       }
  461.      ifelse
  462.        }
  463.        { { WordSpacing TextSpacing
  464.             % Implement the combination of t3 and false charpath.
  465.             % Note that we must use cshow for this, because we
  466.             % can't parse multi-byte strings any other way.
  467.             % Stack: string xword xchar
  468.         { pop pop (x) dup 0 3 index put false charpath
  469.             % Stack: xword xchar ccode
  470.           3 copy 32 eq { add } { exch pop } ifelse 0 rmoveto pop
  471.         }
  472.        4 -1 roll cshow pop pop
  473.        textrenderingprocs TextRenderingMode get exec
  474.      }
  475.        }
  476.       ifelse
  477.     }
  478.    ifelse /Show gput
  479.  } bdef
  480. /showfirst { setshowstate Show } def
  481.  
  482. /Tj {
  483.   0 0 moveto Show settextposition
  484. } bdef
  485. /' { T* Tj } bdef
  486. /" { exch Tc exch Tw T* Tj } bdef
  487. /TJ {
  488.   0 0 moveto {
  489.     dup type /stringtype eq {
  490.       Show
  491.     } { -1000 div
  492.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  493.       0 rmoveto
  494.     } ifelse
  495.   } forall settextposition
  496. } bdef
  497.  
  498. /tf { setfillstate currentpoint fill moveto } bdef
  499. /tn { currentpoint newpath moveto } bdef
  500. % For stroking characters, temporarily restore the graphics CTM so that
  501. % the line width will be transformed properly.
  502. /Tmatrix matrix def
  503. /tS
  504.  { setstrokestate
  505.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  506.    setmatrix moveto
  507.  } bdef
  508. /tB { gsave tf grestore tS } bdef
  509. % This does the wrong thing if there have been multiple text operations
  510. % within a single BT/ET pair, but it's a start.
  511. /tW { } bdef
  512.  
  513. end readonly put        % GS_PDF_ProcSet
  514.  
  515. .setglobal
  516.