home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dtp / ghostscript / 5.10 / pdf_draw.ps < prev    next >
Encoding:
Text File  |  1997-12-28  |  11.5 KB  |  450 lines
  1. %    Copyright (C) 1994, 1995, 1997 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. % pdf_draw.ps
  19. % PDF drawing operations (graphics, text, and images).
  20.  
  21. % We don't handle the following PDF elements yet (identified by
  22. % page number in the reference manual):
  23. %    style strings (63-64), except in a few known fonts
  24. %    font descriptor resources (71-75), except for MissingWidth
  25. %    text clipping modes (104)
  26. %        What do these mean??
  27.  
  28. % We handle the following PDF 1.2 constructs:
  29. %    gs operator (but not functions)
  30.  
  31. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  32. .currentglobal true .setglobal
  33. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  34. GS_PDF_ProcSet begin
  35. pdfdict begin
  36.  
  37. % For simplicity, we use a single interpretation dictionary for all
  38. % PDF graphics operations, even though this is too liberal.
  39. /drawopdict 100 dict def
  40.  
  41. % ================================ Graphics ================================ %
  42.  
  43. % ---------------- Functions ---------------- %
  44.  
  45. /resolvefunction {    % <fndict> resolvefunction <function>
  46.         % Don't lose our place in PDFfile.
  47.   PDFfile fileposition exch
  48.   dup true resolvestream
  49.         % The stream isn't positionable, so read all the data now.
  50.         % Note that we only support FunctionType 0.
  51.         % Stack: filepos fndict stream
  52.   1 index /Range get length 2 idiv 2 index /BitsPerSample get mul
  53.   2 index /Size get { mul } forall
  54.   7 add 8 idiv string
  55.   1 index exch readstring pop exch closefile
  56.         % Stack: filepos fndict data
  57.   exch dup length 1 add dict .copydict
  58.   dup /DataSource 4 -1 roll put
  59.   .buildfunction
  60.   exch PDFfile exch setfileposition
  61. } bdef
  62.  
  63. % ---------------- Graphics state management ---------------- %
  64.  
  65. drawopdict begin
  66.             % Graphics state stack
  67.   /q { q } def
  68.   /Q { Q } def
  69.             % Graphics state setting
  70.   /cm { cm } def
  71.   /i { i } def
  72.   /J { J } def
  73.   /d { d } def
  74.   /j { j } def
  75.   /w { w } def
  76.   /M { M } def
  77.   /gs { gs } def
  78. end
  79.  
  80. /gsparamdict mark
  81.   /Type { pop }
  82.   /SA { /setstrokeadjust 1 # }
  83.   /OP { /setoverprint 1 # }
  84.   /BG
  85.    { dup /Identity eq
  86.       { pop { } /setblackgeneration 1 #
  87.       }
  88.       {        %****** DUMMY ******
  89.     pop
  90.       }
  91.      ifelse
  92.    }
  93.   /UCR
  94.    { dup /Identity eq
  95.       { pop { } /setundercolorremoval 1 #
  96.       }
  97.       {        %****** DUMMY ******
  98.     pop
  99.       }
  100.      ifelse
  101.    }
  102.   /TR
  103.    { dup /Identity eq
  104.       { pop { } /settransfer 1 #
  105.       }
  106.       {        %****** DUMMY ******
  107.     pop
  108.       }
  109.      ifelse
  110.    }
  111.   /HT
  112.    { dup /Default eq
  113.       { pop /.setdefaultscreen 0 #
  114.       }
  115.       {        %****** DUMMY ******
  116.     pop
  117.       }
  118.      ifelse
  119.    }
  120.   /HTP { oget aload pop /sethalftonephase 2 # }
  121. .dicttomark readonly def
  122. /gs            % <gsres> gs -
  123.  { Page /ExtGState rget
  124.     {  { oforce exch gsparamdict exch .knownget { exec } { pop } ifelse }
  125.       forall
  126.     }
  127.    if
  128.  } bdef
  129.  
  130. % ---------------- Color setting ---------------- %
  131.  
  132. /csncompdict mark
  133.   /DeviceGray 1
  134.   /CalGray 1
  135.   /DeviceRGB 3
  136.   /CalRGB 3
  137.   /Lab 3
  138.   /DeviceCMYK 4
  139.   /CalCMYK 4
  140.   /Separation 1
  141. .dicttomark readonly def
  142.  
  143. /csrdict mark
  144.   /DeviceGray {
  145.     /DefaultGray Page /ColorSpace rget { exch pop } if
  146.   }
  147.   /CalGray { }
  148.   /DeviceRGB {
  149.     /DefaultRGB Page /ColorSpace rget { exch pop } if
  150.   }
  151.   /CalRGB { }
  152.   /Lab { }
  153.   /DeviceCMYK { }
  154.   /CalCMYK { }
  155.   /Indexed    %****** SHOULD RESOLVE BASE SPACE *****
  156.    { dup 3 oget dup type /stringtype eq
  157.       { pop
  158.       }
  159.       {        % The color lookup table is a stream.
  160.         % Get its contents.  Don't lose our place in PDFfile.
  161.     PDFfile fileposition 3 1 roll
  162.     true resolvestream
  163.     1 index 2 get 1 add
  164.     csncompdict 3 index 1 get
  165.       dup type /arraytype eq { 0 get } if get mul
  166.     string readstring pop
  167.         % Stack: cspace filepos table
  168.     1 index 3 3 -1 roll put
  169.     exch PDFfile exch setfileposition
  170.       }
  171.      ifelse
  172.    }
  173.   /Pattern
  174.    { dup type /nametype ne
  175.       { dup length 1 ge
  176.      { 1 get resolvecolorspace
  177.        /Pattern exch 2 array astore
  178.      }
  179.     if
  180.       }
  181.      if
  182.    }
  183.   /Separation    %****** SHOULD RESOLVE ALTERNATIVE SPACE ******
  184.    {        % Resolve the tintTransform function.
  185.      dup 3 oget resolvefunction
  186.      1 index 3 3 -1 roll put
  187.    }
  188. .dicttomark readonly def
  189.  
  190. /csgray            % <op> <csop> csgray -
  191.  { /DeviceGray resolvecolorspace
  192.    dup /DeviceGray eq { pop } { exch 3 -1 roll } ifelse
  193.    pop cvx exec
  194.  } bdef
  195. /csrgb            % <op> <csop> csrgb -
  196.  { /DeviceRGB resolvecolorspace
  197.    dup /DeviceRGB eq { pop } { exch 3 -1 roll } ifelse
  198.    pop cvx exec
  199.  } bdef
  200. /cscmyk            % <op> <csop> cscmyk -
  201.  { pop cvx exec
  202.  } bdef
  203. /csresolve        % <csresourcename> csresolve <cspace>
  204.  { dup Page /ColorSpace rget
  205.     { exch pop resolvecolorspace }
  206.     { /undefined cvx signalerror }
  207.    ifelse
  208.  } bdef
  209. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  210.   dup dup type /arraytype eq { 0 get } if
  211.   //csrdict exch .knownget {
  212.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  213.   } {
  214.     csresolve
  215.   } ifelse
  216. } bdef
  217.  
  218. /cset        % <c0> ... [- <sc1> <sc2> <sc3> <sc4> <sc5>] cset -
  219.  {        % We can't really make sc[n] and SC[N] work, because
  220.         % the color space information isn't available at
  221.         % conversion time; so we hack it by assuming that
  222.         % all the operands on the stack are used, and that
  223.         % if the top operand is a name, it's a Pattern resource.
  224.    1 index type /nametype eq
  225.     { exch Page /Pattern rget { resolvepattern } { null } ifelse exch }
  226.    if
  227.    count 1 sub get exec
  228.  } bdef
  229. /resolvepattern        % <patternstreamdict> resolvepattern <patterndict>
  230.  {        % Don't do the resolvestream now: just capture the data
  231.         % from the file if necessary.
  232.    dup length dict copy
  233.    dup /FilePosition .knownget
  234.     { 1 index /File get dup fileposition 3 1 roll
  235.         % Stack: dict savepos pos file
  236.       dup 3 -1 roll setfileposition
  237.       dup 3 index /Length get string readstring pop
  238.         % Stack: dict savepos file string
  239.       3 1 roll exch setfileposition
  240.       1 index /File 3 -1 roll put
  241.       dup /FilePosition undef
  242.     }
  243.    if
  244.    dup /PaintProc
  245.     { false resolvestream pdfopdict .pdfrun
  246.     }
  247.    put
  248.  } bdef
  249.  
  250. drawopdict begin
  251.   /g { /g { cs sc1 } csgray } bdef
  252.   /rg { /rg { cs sc3 } csrgb } bdef
  253.   /k { /k { cs sc4 } cscmyk } bdef
  254.   /cs { csresolve cs } bdef
  255.   /sc { { null sc1 sc2 sc3 sc4 sc5 } cset } bdef
  256.   /scn /sc load def
  257.   /G { /G { CS SC1 } csgray } bdef
  258.   /RG { /RG { CS SC3 } csrgb } bdef
  259.   /K { /K { CS SC4 } cscmyk } bdef
  260.   /CS { csresolve CS } bdef
  261.   /SC { { null SC1 SC2 SC3 SC4 SC5 } cset } bdef
  262.   /SCN /SC load def
  263. end
  264.  
  265. % ---------------- Paths ---------------- %
  266.  
  267. drawopdict begin
  268.             % Path construction
  269.   /m { m } def
  270.   /l { l } def
  271.   /c { c } def
  272.   /v { v } def
  273.   /y { y } def
  274.   /re { re } def
  275.   /h { h } def
  276.             % Path painting and clipping
  277.   /n { n } def
  278.   /S { S } def
  279.   /s { s } def
  280.   /f { f } def
  281.   /f* { f* } def
  282.   /B { B } def
  283.   /b { b } def
  284.   /B* { B* } def
  285.   /b* { b* } def
  286.   /W { W } def
  287.   /W* { W* } def
  288. end
  289.  
  290. % ---------------- XObjects ---------------- %
  291.  
  292. /xobjectprocs mark        % <dict> -proc- -
  293.   /Image { DoImage }
  294.   /Form { DoForm }
  295. .dicttomark readonly def
  296.  
  297. /defaultdecodedict mark
  298.   /DeviceGray [0 1] readonly
  299.   /CalGray 1 index
  300.   /DeviceRGB [0 1 0 1 0 1] readonly
  301.   /CalRGB 1 index
  302.   /Lab
  303.    { 0 100 2 index 1 get /Range .knownget not { {-100 100 -100 100} } if
  304.      aload pop 6 array astore readonly
  305.    } bind
  306.   /DeviceCMYK [0 1 0 1 0 1 0 1] readonly
  307.   /CalCMYK 1 index
  308.   /Separation [0 1] readonly
  309. .dicttomark readonly def
  310.  
  311. /DoImage
  312.  { dup length dict
  313.    1 index /ColorSpace knownoget
  314.     { resolvecolorspace
  315.       dup type /arraytype eq { dup length 1 eq { 0 get } if } if
  316.       exch begin /ColorSpace exch def
  317.     }
  318.     { begin
  319.     }
  320.    ifelse
  321.    /ImageType 1 def
  322.         % Always define ImageMask appropriately.
  323.    dup /ImageMask knownoget dup { and } if
  324.      /ImageMask exch def
  325.    /Width 2 copy oget def
  326.    /Height 2 copy oget def
  327.    /BitsPerComponent 2 copy oget def
  328.    /Decode 2 copy knownoget not
  329.     {        % Decode is required for the PostScript image operators.
  330.       ImageMask
  331.        { [0 1]
  332.        }
  333.        { ColorSpace dup type /arraytype eq { 0 get } if dup /Indexed eq
  334.       { pop [ 0 1 BitsPerComponent bitshift 1 sub ] }
  335.       { defaultdecodedict exch get exec }
  336.      ifelse
  337.        }
  338.       ifelse
  339.     }
  340.    if def
  341.    /Interpolate 2 copy knownoget { def } { pop } ifelse
  342.    /ImageMatrix Width 0 0 Height neg 0 Height 6 array astore def
  343.         % Define DataSource as the width of the row buffer,
  344.         % which is what is needed if we're writing PostScript.
  345.    /DataSource 
  346.      Width BitsPerComponent mul
  347.      ImageMask not { Decode length 2 idiv mul } if
  348.      7 add 8 idiv
  349.    def
  350.         % Even though we're going to read data,
  351.         % pass false to resolvestream so that
  352.         % it doesn't try to use Length (which may not be present).
  353.    false resolvestream /Is_stream exch store
  354.    currentdict end ID
  355.  } bdef
  356. % Redefine Is, which constructs the data source for the image,
  357. % to retrieve the stream.  (pdf_2ps.ps redefines Is to copy the data too.)
  358. userdict /Is_stream null put
  359. /Is        % <imagedict> Is <imagedict> <datasource>
  360.  { Is_stream
  361.  } bdef
  362.  
  363. /DoForm
  364.  { dup [ /pop load 2 index
  365.     { false resolvestream pdfopdict .pdfrun }
  366.    aload pop ] cvx /PaintProc exch put
  367.    execform
  368.  } bdef
  369.  
  370. drawopdict begin
  371.   /Do
  372.     { PDFfile fileposition exch
  373.       dup Page /XObject rget not { /undefined cvx signalerror } if
  374.       exch pop dup /Subtype get xobjectprocs exch get exec
  375.       PDFfile exch setfileposition
  376.     } bdef
  377. end
  378.  
  379. % ---------------- In-line images ---------------- %
  380.  
  381. % Undo the abbreviations in an in-line image dictionary.
  382. % Note that these can appear as keys, values, or members of array values.
  383. % /I is ambiguous; we check specially for it below.
  384. /unabbrevdict mark
  385.     % Top-level dictionary keys
  386.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  387.   /F /Filter  /H /Height  /IM /ImageMask  /W /Width
  388.     % Values
  389.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  390.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  391.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /G /DeviceGray  /RGB /DeviceRGB
  392.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  393. .dicttomark readonly def
  394. /unabbrev        % <obj> unabbrev <obj'>
  395.  { dup type /nametype eq
  396.     { unabbrevdict 1 index .knownget { exch pop } if
  397.     }
  398.     { dup type /arraytype eq
  399.        { dup 0 1 2 index length 1 sub
  400.       { 2 copy get unabbrev put dup
  401.       }
  402.      for pop
  403.        }
  404.       if
  405.     }
  406.    ifelse
  407.  } bdef
  408.  
  409. drawopdict begin
  410.   /BI { mark } bdef
  411.   /ID
  412.     { counttomark
  413.        { counttomark 1 roll
  414.      dup /I eq { pop /Interpolate } { unabbrev } ifelse
  415.        }
  416.       repeat
  417.       /File PDFsource
  418.       .dicttomark DoImage
  419.       PDFsource token pop /EI ne { /ID cvx /syntaxerror signalerror } if
  420.     } bdef
  421. end
  422.  
  423. % ================================ Text ================================ %
  424.  
  425. drawopdict begin
  426.             % Text control
  427.   /BT { BT } def
  428.   /ET { ET } def
  429.   /Tc { Tc } def
  430.   /TL { TL } def
  431.   /Tr { Tr } def
  432.   /Ts { Ts } def
  433.   /Tw { Tw } def
  434.   /Tz { Tz } def
  435.             % Text positioning
  436.   /Td { Td } def
  437.   /TD { TD } def
  438.   /Tm { Tm } def
  439.   /T* { T* } def
  440.             % Text painting
  441.   /Tj { Tj } def
  442.   /' { ' } def
  443.   /" { " } def
  444.   /TJ { mark exch aload pop TJ } def
  445. end
  446.  
  447. end            % pdfdict
  448. end            % GS_PDF_ProcSet
  449. .setglobal
  450.