home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 September / PCWorld_2001-09_cd.bin / Software / Vyzkuste / rychlokurz / gs700w32.exe / gs7.00 / lib / pdf_ops.ps < prev    next >
Text File  |  2001-03-16  |  16KB  |  518 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.16 2001/03/17 01:15:42 raph 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.   /ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind
  132.   /Separation { 1 } bind
  133.   /DeviceN {    % What is the correct value??
  134.     [ 1 index 1 get length { 1 } repeat ] cvx
  135.   } bind
  136.   /Indexed { 0 } bind
  137.   /Pattern {
  138.     dup type /nametype eq 1 index length 1 eq or {
  139.       pop //cspattern //nullpattern1 matrix makepattern
  140.     } {
  141.       //nullpattern2 matrix makepattern 1 index 1 get csset
  142.         % Stack: patternspace nullpattern basecolor basespace
  143.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  144.       counttomark -1 roll ] cvx
  145.     } ifelse
  146.   } bind
  147. .dicttomark readonly def
  148. /csset            % <cspace> csset <color> <cspace>
  149.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  150.  } bdef
  151.  
  152. /g { //csdevgray fcput } bdef
  153. /G { //csdevgray scput } bdef
  154. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  155. /RG { 3 array astore cvx //csdevrgb scput } bdef
  156. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  157. /K { 4 array astore cvx //csdevcmyk scput } bdef
  158. /cs { csset fcput } bdef
  159. /CS { csset scput } bdef
  160. /ri { pop } bdef
  161. % We have to break up sc according to the number of operands.
  162. /sc1 { /FillColor gput } bdef
  163. /SC1 { /StrokeColor gput } bdef
  164. % We have to avoid storing into a color array associated with an outer
  165. % gsave level, so we do a kind of "copy on write".
  166. /sc* {
  167.   currentdict /FillColor .knownget {
  168.     astore pop
  169.   } {
  170.     /FillColor load length array astore cvx /FillColor gput
  171.   } ifelse
  172. } bdef
  173. /SC* {
  174.   currentdict /StrokeColor .knownget {
  175.     astore pop
  176.   } {
  177.     /StrokeColor load length array astore cvx /StrokeColor gput
  178.   } ifelse
  179. } bdef
  180.  
  181. % ---------------- Overprint/transparency setting ---------------- %
  182.  
  183. /op { /FillOverprint gput } bdef
  184. /OP { /StrokeOverprint gput } bdef
  185. /OPM {
  186.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  187. } bdef
  188. /ca { /FillConstantAlpha gput } bdef
  189. /CA { /StrokeConstantAlpha gput } bdef
  190. /SMask { /SoftMask gput } bdef
  191. /AIS { /AlphaIsShape gput } bdef
  192. /BM {
  193.   /.setblendmode where {
  194.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  195.       { .setblendmode } .internalstopped not { exit } if pop
  196.     } forall
  197.   } {
  198.     pop
  199.   } ifelse
  200. } bdef
  201. /TK {
  202.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  203. } bdef
  204.  
  205. % ---------------- Color installation ---------------- %
  206.  
  207. % Establish a given color (and color space) as current.
  208. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  209.   /.begintransparencymask where {
  210.     pop AlphaIsShape {
  211.       1 .setopacityalpha 0 .inittransparencymask exch .setshapealpha 1
  212.     } {
  213.       1 .setshapealpha 1 .inittransparencymask exch .setopacityalpha 0
  214.     } ifelse
  215.     % Set the soft mask by rendering the XObject.  Doing this every time
  216.     % is obviously very inefficient; we'll improve it later.
  217.     .settransparencymask    
  218.   } {
  219.     pop pop
  220.   } ifelse
  221. } bdef
  222. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  223.   exch dup null eq {
  224.     pop .inittransparencymask
  225.   } {
  226.     dup /Draw get exec
  227.   } ifelse
  228. } bdef
  229. % (Non-mask) images must execute setfillblend.
  230. /setfillblend {
  231.   FillOverprint setoverprint
  232.   FillConstantAlpha SoftMask .settransparencyparams
  233. } def
  234. /setfillstate {
  235.   FillColor FillColorSpace setgcolor setfillblend
  236. } def
  237. /setstrokestate {
  238.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  239.   StrokeConstantAlpha SoftMask .settransparencyparams
  240. } def
  241. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  242.   /DeviceGray { pop setgray } bdef
  243.   /DeviceRGB { pop setrgbcolor } bdef
  244.   /DeviceCMYK { pop setcmykcolor } bdef
  245.   /CIEBasedA
  246.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  247.   /CIEBasedABC /CIEBasedA load def
  248.   /CIEBasedDEF /CIEBasedA load def
  249.   /CIEBasedDEFG /CIEBasedA load def
  250.   /ICCBased /CIEBasedA load def
  251.   /Separation /CIEBasedA load def
  252.   /DeviceN /CIEBasedA load def
  253.   /Indexed /CIEBasedA load def
  254.   /Pattern
  255.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  256.      dup /Matrix .knownget not { matrix } if
  257.      gsave DefaultMatrix setmatrix makepattern grestore setcolor
  258.    } bdef
  259. end def
  260. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  261.  { 1 index null eq
  262.     { pop pop }
  263.     { dup 0 get //Cdict exch get exec }
  264.    ifelse
  265.  } bdef
  266. /fsexec        % <fillop|strokeop> fsexec -
  267.  {        % Preserve the current point, if any.
  268.     { currentpoint } stopped
  269.     { $error /newerror false put   cvx exec }
  270.     { 3 -1 roll cvx exec moveto }
  271.    ifelse
  272.  } bdef
  273.  
  274. % ---------------- Path painting and clipping ---------------- %
  275.  
  276. /S { setstrokestate /stroke fsexec } bdef
  277. /f { setfillstate /fill fsexec } bdef
  278. /f* { setfillstate /eofill fsexec } bdef
  279. /n { newpath } bdef        % don't allow n to get bound in
  280. /s { closepath S } bdef
  281. /B { gsave setfillstate fill grestore S } bdef
  282. /b { closepath B } bdef
  283. /B* { gsave setfillstate eofill grestore S } bdef
  284. /b* { closepath B* } bdef
  285.  
  286. % Clipping:
  287.  
  288. /Wdict 4 dict dup begin
  289. /S { gsave setstrokestate stroke grestore n } bdef
  290. /f { gsave setfillstate fill grestore n } bdef
  291. /f* { gsave setfillstate eofill grestore n } bdef
  292. /n { end clip newpath } bdef
  293. end readonly def
  294. /W { //Wdict begin } bdef
  295. /W*dict 4 dict dup begin
  296. Wdict { def } forall
  297. /n { end eoclip newpath } bdef
  298. end readonly def
  299. /W* { //W*dict begin } bdef
  300.  
  301. % ---------------- Text control ---------------- %
  302.  
  303. /textbeginpage
  304.  { /TextSpacing 0 def        % 0 Tc
  305.    /TextLeading 0 def        % 0 TL
  306.    /TextRenderingMode 0 def    % 0 Tr
  307.    /TextRise 0 def        % 0 Ts
  308.    /WordSpacing 0 def        % 0 Tw
  309.    /TextHScaling 1.0 def    % 100 Tz
  310.    /TextFont null def
  311.    /Show { showfirst } def
  312.  } bdef
  313.  
  314. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  315. % if the CharProc for a Type 3 font does a BT/ET itself.
  316. % Since we always call the CharProc inside a q/Q, we simply ensure that
  317. % the text state is saved and restored like the rest of the extended
  318. % graphics state.
  319.  
  320. /settextmatrix {
  321.   TextMatrix concat
  322.   TextHScaling 1 ne { TextHScaling 1 scale } if
  323.   TextRise 0 ne { 0 TextRise translate } if
  324.   TextFont dup null eq { pop } { setfont } ifelse
  325. } bdef
  326. /settextstate {
  327.     % The text state can be set even outside BT/ET.
  328.   currentdict /TextSaveMatrix known {
  329.     TextSaveMatrix setmatrix settextmatrix
  330.   } if
  331. } bdef
  332. /settextposition {
  333.         % Update the TextMatrix translation.
  334.   gsave TextSaveMatrix setmatrix
  335.   currentpoint TextMatrix 4 2 getinterval astore pop
  336.         % We would like to do "grestore currentpoint translate"
  337.         % here, but some PDF files set a singular text matrix
  338.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  339.   TextTempMatrix identmatrix setmatrix currentpoint
  340.   grestore
  341.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  342.   TextTempMatrix setmatrix
  343. } bdef
  344.  
  345. /BT {
  346.   currentdict /TextLineMatrix .knownget
  347.     { identmatrix pop TextMatrix identmatrix pop }
  348.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  349.   ifelse
  350.   { showfirst } /Show gput
  351.   currentdict /TextSaveMatrix .knownget not {
  352.     matrix dup /TextSaveMatrix gput
  353.   } if currentmatrix pop settextmatrix
  354.   matrix /TextTempMatrix gput        % see settextposition
  355. } bdef
  356. /ET {
  357.   TextRenderingMode 4 ge { clip newpath } if
  358.   TextSaveMatrix setmatrix
  359.   currentdict /TextSaveMatrix undef
  360. } bdef
  361. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  362. /TL { /TextLeading gput } bdef
  363. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bdef
  364. /Ts { /TextRise gput settextstate } bdef
  365. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  366. /Tz { 100 div /TextHScaling gput settextstate} bdef
  367.  
  368. % ---------------- Font control ---------------- %
  369.  
  370. /Tf {        % <font> <scale> Tf -
  371.   dup 1 eq { pop } { scalefont } ifelse
  372.   /TextFont gput settextstate
  373. } bdef
  374.  
  375. % Read a CFF font.
  376. /FRD        % <resname> <file> FRD -
  377.  { /FontSetInit /ProcSet findresource begin true ReadData
  378.  } bdef
  379.  
  380. % Copy a font, removing its FID.  If changed is true, also remove
  381. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  382. % the keys being removed, don't copy it.
  383. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  384.  { 1 index /FID known
  385.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  386.     {        % We add 1 to the length just in case the original
  387.         % didn't have a FID.
  388.       exch dup length 1 add dict exch
  389.        {        % Stack: changed newfont key value
  390.      1 index /FID eq 4 index
  391.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  392.      if not { 3 copy put } if pop pop
  393.        }
  394.       forall exch
  395.     }
  396.    if pop
  397.  } bdef
  398.  
  399. % Insert a new Encoding or Metrics into a font if necessary.
  400. % Return a possibly updated font, and a flag to indicate whether
  401. % the font was actually copied.
  402. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  403.             %   <font'> <copied>
  404.   dup null ne {
  405.     exch true .copyfontdict dup /Metrics 4 -1 roll put true
  406.   } {
  407.     pop false
  408.   } ifelse
  409. } bdef
  410. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  411.             %   <font'> <copied>
  412.   dup null ne { dup 2 index /Encoding get ne } { false } ifelse {
  413.     exch false .copyfontdict dup /Encoding 4 -1 roll put true
  414.   } {
  415.     pop false
  416.   } ifelse
  417. } bdef
  418. /.updatefont {        % <font> <Encoding|null> <Metrics|null> .updatefont
  419.             %   <font'> <copied>
  420.   3 -1 roll exch .updatefontmetrics
  421.             % Stack: enc|null font' copied
  422.   3 1 roll exch .updatefontencoding 3 -1 roll or
  423. } bdef
  424.  
  425. % ---------------- Text positioning ---------------- %
  426.  
  427. /Td {
  428.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  429.   TextLineMatrix TextMatrix copy pop settextstate
  430. } bdef
  431. /TD { dup neg /TextLeading gput Td } bdef
  432. /T* { 0 TextLeading neg Td } bdef
  433. /Tm {
  434.   TextLineMatrix astore TextMatrix copy pop settextstate
  435. } bdef
  436.  
  437. % ---------------- Text painting ---------------- %
  438.  
  439. /textrenderingprocs [        % (0 is handled specially)
  440.     % Painting-only modes
  441.    { tf } { tS } { tB } { tn }
  442.     % Clipping modes
  443.    { gsave tf grestore tW }
  444.    { gsave tS grestore tW }
  445.    { gsave tB grestore tW }
  446.    { tW }
  447. ] readonly def
  448. /setshowstate
  449.  { WordSpacing 0 eq TextSpacing 0 eq and
  450.     { TextRenderingMode 0 eq
  451.        { { setfillstate show } }
  452.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  453.       ifelse
  454.     }
  455.     { TextRenderingMode 0 eq
  456.        { WordSpacing 0 eq
  457.           { { setfillstate TextSpacing exch 0 exch ashow } }
  458.       { TextSpacing 0 eq
  459.          { { setfillstate WordSpacing exch 0 exch 32 exch widthshow } }
  460.          { { setfillstate WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  461.         ifelse
  462.       }
  463.      ifelse
  464.        }
  465.        { { WordSpacing TextSpacing
  466.             % Implement the combination of t3 and false charpath.
  467.             % Note that we must use cshow for this, because we
  468.             % can't parse multi-byte strings any other way.
  469.             % Stack: string xword xchar
  470.         { pop pop (x) dup 0 3 index put false charpath
  471.             % Stack: xword xchar ccode
  472.           3 copy 32 eq { add } { exch pop } ifelse 0 rmoveto pop
  473.         }
  474.        4 -1 roll cshow pop pop
  475.        textrenderingprocs TextRenderingMode get exec
  476.      }
  477.        }
  478.       ifelse
  479.     }
  480.    ifelse /Show gput
  481.  } bdef
  482. /showfirst { setshowstate Show } def
  483.  
  484. /Tj {
  485.   0 0 moveto Show settextposition
  486. } bdef
  487. /' { T* Tj } bdef
  488. /" { exch Tc exch Tw T* Tj } bdef
  489. /TJ {
  490.   0 0 moveto {
  491.     dup type /stringtype eq {
  492.       Show
  493.     } { -1000 div
  494.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  495.       0 rmoveto
  496.     } ifelse
  497.   } forall settextposition
  498. } bdef
  499.  
  500. /tf { setfillstate currentpoint fill moveto } bdef
  501. /tn { currentpoint newpath moveto } bdef
  502. % For stroking characters, temporarily restore the graphics CTM so that
  503. % the line width will be transformed properly.
  504. /Tmatrix matrix def
  505. /tS
  506.  { setstrokestate
  507.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  508.    setmatrix moveto
  509.  } bdef
  510. /tB { gsave tf grestore tS } bdef
  511. % This does the wrong thing if there have been multiple text operations
  512. % within a single BT/ET pair, but it's a start.
  513. /tW { } bdef
  514.  
  515. end readonly put        % GS_PDF_ProcSet
  516.  
  517. .setglobal
  518.