home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / pdf_ops.ps < prev    next >
Text File  |  2000-03-29  |  13KB  |  414 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: pdf_ops.ps,v 1.2 2000/03/10 03:57:03 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. %    Show
  44. %    TextSaveMatrix        % matrix at time of BT
  45. % (The following correspond directly to PDF state parameters.)
  46. %    FillColor
  47. %    FillColorSpace
  48. %    StrokeColor
  49. %    StrokeColorSpace
  50. %    TextSpacing
  51. %    TextHScaling
  52. %    Leading
  53. %    TextFont
  54. %    TextLineMatrix
  55. %    TextMatrix
  56. %    TextRise
  57. %    TextRenderingMode
  58. %    WordSpacing
  59.  
  60. /nodict 1 dict def
  61. nodict /self { //nodict } executeonly put
  62. nodict readonly pop
  63.  
  64. /beginpage
  65.  { //nodict 20 dict .copydict begin graphicsbeginpage textbeginpage
  66.  } bdef
  67. /endpage
  68.  { showpage end
  69.  } bdef
  70.  
  71. /graphicsbeginpage { initgraphics  0 g  0 G } bdef
  72.  
  73. /gput        % <value> <key> gput -
  74.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  75.         % If we're in a Level 1 system, we need to grow the
  76.         % dictionary explicitly.
  77.    currentdict length currentdict maxlength ge %eq
  78.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  79.     }
  80.    if def
  81.  } bdef
  82.  
  83. /q {
  84.   gsave //nodict begin
  85. } bdef
  86. % Some PDF files have excess Q operators!
  87. /Q {
  88.   currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  89. } bdef
  90.  
  91. % ---------------- Color setting ---------------- %
  92.  
  93. /fcput        % <color> <colorspace> fcput -
  94.  { /FillColorSpace gput /FillColor gput
  95.  } bdef
  96. /scput        % <color> <colorspace> scput -
  97.  { /StrokeColorSpace gput /StrokeColor gput
  98.  } bdef
  99.  
  100. /csdevgray [/DeviceGray] readonly def
  101. /csdevrgb [/DeviceRGB] readonly def
  102. /csdevcmyk [/DeviceCMYK] readonly def
  103. /cspattern [/Pattern] readonly def
  104. /nullpattern1 mark
  105.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  106.    /XStep 1 /YStep 1 /PaintProc { }
  107. .dicttomark readonly def
  108. /nullpattern2 nullpattern1 dup length dict copy readonly def
  109.  
  110. % Each entry in the color space dictionary is a procedure of the form
  111. %    <cspace> -proc- <cspace> <initial-color>
  112. /CSdict mark
  113.   /DeviceGray { pop //csdevgray 0 } bind
  114.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  115.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  116.   /CIEBasedA { 0 } bind
  117.   /CIEBasedABC { [0 0 0] cvx } bind
  118.   /Separation { 1 } bind
  119.   /DeviceN {    % What is the correct value??
  120.     [ 1 index 1 get length { 1 } repeat ] cvx
  121.   } bind
  122.   /Indexed { 0 } bind
  123.   /Pattern {
  124.     dup type /nametype eq 1 index length 1 eq or {
  125.       pop //cspattern //nullpattern1 matrix makepattern
  126.     } {
  127.       //nullpattern2 matrix makepattern 1 index 1 get csset
  128.         % Stack: patternspace nullpattern basecolor basespace
  129.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  130.       counttomark -1 roll ] cvx
  131.     } ifelse
  132.   } bind
  133. .dicttomark readonly def
  134. /csset            % <cspace> csset <color> <cspace>
  135.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  136.  } bdef
  137.  
  138. /g { //csdevgray fcput } bdef
  139. /G { //csdevgray scput } bdef
  140. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  141. /RG { 3 array astore cvx //csdevrgb scput } bdef
  142. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  143. /K { 4 array astore cvx //csdevcmyk scput } bdef
  144. /cs { csset fcput } bdef
  145. /CS { csset scput } bdef
  146. /ri { pop } bdef
  147. % We have to break up sc according to the number of operands.
  148. /sc1 { /FillColor gput } bdef
  149. /SC1 { /StrokeColor gput } bdef
  150. /sc* { /FillColor load astore pop } bdef
  151. /SC* { /StrokeColor load astore pop } bdef
  152.  
  153. % ---------------- Color installation ---------------- %
  154.  
  155. % Establish a given color (and color space) as current.
  156. /setfillcolor { FillColor FillColorSpace setgcolor } def
  157. /setstrokecolor { StrokeColor StrokeColorSpace setgcolor } def
  158. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  159.   /DeviceGray { pop setgray } bdef
  160.   /DeviceRGB { pop setrgbcolor } bdef
  161.   /DeviceCMYK { pop setcmykcolor } bdef
  162.   /CIEBasedA
  163.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  164.   /CIEBasedABC /CIEBasedA load def
  165.   /CIEBasedDEF /CIEBasedA load def
  166.   /CIEBasedDEFG /CIEBasedA load def
  167.   /Separation /CIEBasedA load def
  168.   /DeviceN /CIEBasedA load def
  169.   /Indexed /CIEBasedA load def
  170.   /Pattern
  171.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  172.      dup /Matrix .knownget not { matrix } if makepattern setcolor
  173.    } bdef
  174. end def
  175. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  176.  { 1 index null eq
  177.     { pop pop }
  178.     { dup 0 get //Cdict exch get exec }
  179.    ifelse
  180.  } bdef
  181. /fsexec        % <fillop|strokeop> fsexec -
  182.  {        % Preserve the current point, if any.
  183.     { currentpoint } stopped
  184.     { $error /newerror false put   cvx exec }
  185.     { 3 -1 roll cvx exec moveto }
  186.    ifelse
  187.  } bdef
  188.  
  189. % ---------------- Path painting and clipping ---------------- %
  190.  
  191. /S { setstrokecolor /stroke fsexec } bdef
  192. /f { setfillcolor /fill fsexec } bdef
  193. /f* { setfillcolor /eofill fsexec } bdef
  194. /n { newpath } bdef        % don't allow n to get bound in
  195. /s { closepath S } bdef
  196. /B { gsave setfillcolor fill grestore S } bdef
  197. /b { closepath B } bdef
  198. /B* { gsave setfillcolor eofill grestore S } bdef
  199. /b* { closepath B* } bdef
  200.  
  201. % Clipping:
  202.  
  203. /Wdict 4 dict dup begin
  204. /S { gsave setstrokecolor stroke grestore n } bdef
  205. /f { gsave setfillcolor fill grestore n } bdef
  206. /f* { gsave setfillcolor eofill grestore n } bdef
  207. /n { end clip newpath } bdef
  208. end readonly def
  209. /W { //Wdict begin } bdef
  210. /W*dict 4 dict dup begin
  211. Wdict { def } forall
  212. /n { end eoclip newpath } bdef
  213. end readonly def
  214. /W* { //W*dict begin } bdef
  215.  
  216. % ---------------- Text control ---------------- %
  217.  
  218. /textbeginpage
  219.  { /TextSpacing 0 def        % 0 Tc
  220.    /TextLeading 0 def        % 0 TL
  221.    /TextRenderingMode 0 def    % 0 Tr
  222.    /TextRise 0 def        % 0 Ts
  223.    /WordSpacing 0 def        % 0 Tw
  224.    /TextHScaling 1.0 def    % 100 Tz
  225.    /TextFont null def
  226.    /Show { showfirst } def
  227.  } bdef
  228.  
  229. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  230. % if the CharProc for a Type 3 font does a BT/ET itself.
  231. % Since we always call the CharProc inside a q/Q, we simply ensure that
  232. % the text state is saved and restored like the rest of the extended
  233. % graphics state.
  234.  
  235. /settextmatrix {
  236.   TextMatrix concat
  237.   TextHScaling 1 ne { TextHScaling 1 scale } if
  238.   TextRise 0 ne { 0 TextRise translate } if
  239.   TextFont dup null eq { pop } { setfont } ifelse
  240. } bdef
  241. /settextstate {
  242.   TextSaveMatrix setmatrix settextmatrix
  243. } bdef
  244. /settextposition {
  245.         % Update the TextMatrix translation.
  246.   gsave TextSaveMatrix setmatrix
  247.   currentpoint TextMatrix 4 2 getinterval astore pop
  248.   grestore currentpoint translate
  249. } bdef
  250.  
  251. /BT {
  252.   currentdict /TextLineMatrix .knownget
  253.     { identmatrix pop TextMatrix identmatrix pop }
  254.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  255.   ifelse
  256.     { showfirst } /Show gput
  257.   currentdict /TextSaveMatrix .knownget not
  258.     { matrix dup /TextSaveMatrix gput }
  259.   if currentmatrix pop settextmatrix
  260. } bdef
  261. /ET {
  262.   TextSaveMatrix setmatrix
  263. } bdef
  264. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  265. /TL { /TextLeading gput } bdef
  266. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bdef
  267. /Ts { /TextRise gput settextstate } bdef
  268. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  269. /Tz { 100 div /TextHScaling gput settextstate} bdef
  270.  
  271. % ---------------- Font control ---------------- %
  272.  
  273. /Tf {        % <font> <scale> Tf -
  274.   dup 1 eq { pop } { scalefont } ifelse
  275.   /TextFont gput settextstate
  276. } bdef
  277.  
  278. % Read a CFF font.
  279. /FRD        % <resdict> <file> FRD -
  280.  { /FontSetInit /ProcSet findresource begin ReadData
  281.  } bdef
  282.  
  283. % Copy a font, removing its FID.  If changed is true, also remove
  284. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  285. % the keys being removed, don't copy it.
  286. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  287.  { 1 index /FID known
  288.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  289.     {        % We add 1 to the length just in case the original
  290.         % didn't have a FID.
  291.       exch dup length 1 add dict exch
  292.        {        % Stack: changed newfont key value
  293.      1 index /FID eq 4 index
  294.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  295.      if not { 3 copy put } if pop pop
  296.        }
  297.       forall exch
  298.     }
  299.    if pop
  300.  } bdef
  301.  
  302. % Insert a new Encoding or Metrics into a font if necessary.
  303. % Return a possibly updated font, and a flag to indicate whether
  304. % the font was actually copied.
  305. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  306.             %   <font'> <copied>
  307.   dup null ne {
  308.     exch true .copyfontdict dup /Metrics 4 -1 roll put true
  309.   } {
  310.     pop false
  311.   } ifelse
  312. } bdef
  313. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  314.             %   <font'> <copied>
  315.   dup null ne { dup 2 index /Encoding get ne } { false } ifelse {
  316.     exch false .copyfontdict dup /Encoding 4 -1 roll put true
  317.   } {
  318.     pop false
  319.   } ifelse
  320. } bdef
  321. /.updatefont {        % <font> <Encoding|null> <Metrics|null> .updatefont
  322.             %   <font'> <copied>
  323.   3 -1 roll exch .updatefontmetrics
  324.             % Stack: enc|null font' copied
  325.   3 1 roll exch .updatefontencoding 3 -1 roll or
  326. } bdef
  327.  
  328. % ---------------- Text positioning ---------------- %
  329.  
  330. /Td {
  331.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  332.   TextLineMatrix TextMatrix copy pop settextstate
  333. } bdef
  334. /TD { dup neg /TextLeading gput Td } bdef
  335. /T* { 0 TextLeading neg Td } bdef
  336. /Tm {
  337.   TextLineMatrix astore TextMatrix copy pop settextstate
  338. } bdef
  339.  
  340. % ---------------- Text painting ---------------- %
  341.  
  342. /textrenderingprocs [        % (0 is handled specially)
  343.    { tf } { tS } { tB } { tn }
  344.     % We don't know what the clipping modes mean....
  345.    4 copy
  346. ] readonly def
  347. /setshowstate
  348.  { WordSpacing 0 eq TextSpacing 0 eq and
  349.     { TextRenderingMode 0 eq
  350.        { { setfillcolor show } }
  351.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  352.       ifelse
  353.     }
  354.     { TextRenderingMode 0 eq
  355.        { WordSpacing 0 eq
  356.           { { setfillcolor TextSpacing exch 0 exch ashow } }
  357.       { TextSpacing 0 eq
  358.          { { setfillcolor WordSpacing exch 0 exch 32 exch widthshow } }
  359.          { { setfillcolor WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  360.         ifelse
  361.       }
  362.      ifelse
  363.        }
  364.        { { WordSpacing TextSpacing
  365.             % Implement the combination of t3 and false charpath.
  366.             % Note that we must use cshow for this, because we
  367.             % can't parse multi-byte strings any other way.
  368.             % Stack: string xword xchar
  369.         { pop pop (x) dup 0 3 index put false charpath
  370.             % Stack: xword xchar ccode
  371.           3 copy 32 eq { add } { exch pop } ifelse 0 rmoveto pop
  372.         }
  373.        4 -1 roll cshow pop pop
  374.        textrenderingprocs TextRenderingMode get exec
  375.      }
  376.        }
  377.       ifelse
  378.     }
  379.    ifelse /Show gput
  380.  } bdef
  381. /showfirst { setshowstate Show } def
  382.  
  383. /Tj {
  384.   0 0 moveto Show settextposition
  385. } bdef
  386. /' { T* Tj } bdef
  387. /" { exch Tc exch Tw T* Tj } bdef
  388. /TJ {
  389.   0 0 moveto {
  390.     dup type /stringtype eq {
  391.       Show
  392.     } { -1000 div
  393.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  394.       0 rmoveto
  395.     } ifelse
  396.   } forall settextposition
  397. } bdef
  398.  
  399. /tf { setfillcolor currentpoint fill moveto } bdef
  400. /tn { currentpoint newpath moveto } bdef
  401. % For stroking characters, temporarily restore the graphics CTM so that
  402. % the line width will be transformed properly.
  403. /Tmatrix matrix def
  404. /tS
  405.  { setstrokecolor
  406.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  407.    setmatrix moveto
  408.  } bdef
  409. /tB { gsave tf grestore tS } bdef
  410.  
  411. end readonly put        % GS_PDF_ProcSet
  412.  
  413. .setglobal
  414.