home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / sharewar / 95 / narzedzi / ambra / ambr32a1.exe / FILE / ARCHIVE.Z / ACROBAT / VIEWER32.EXE / PSPROCSET / 5 < prev    next >
Text File  |  1996-02-22  |  14KB  |  613 lines
  1. %%BeginFile: pdf.prc
  2. %%Copyright: Copyright 1987-1996 Adobe Systems Incorporated. All Rights Reserved.
  3. % general operators for PDF
  4.  
  5. % initialization
  6. /initialize {            % - initialize -
  7.     PDF begin
  8.     PDFVars begin
  9.     newpath
  10. } bd
  11. /terminate {            % - terminate -
  12.     end
  13.     end
  14. } bd
  15.  
  16. % path construction operators
  17. Level2? StartLoad
  18. {    /m/moveto ld
  19.     /l/lineto ld
  20.     /c/curveto ld
  21.     /setSA/setstrokeadjust ld
  22.     /setOP/setoverprint ld
  23. } EndLoad
  24.  
  25. Level2? not StartLoad
  26. {    % In L1, simulate stroke adjustment before each moveto,
  27.     % lineto, and curveto, but only if stroke adjustment is on.
  28.     % (It's set via 'gs' operator.) Default at top of page: it's on.
  29.     /pl {            % x y => x y
  30.         transform
  31.         0.25 sub round 0.25 add exch
  32.         0.25 sub round 0.25 add exch
  33.         itransform
  34.     } bd
  35.     /m { _sa? { pl } if moveto } bd
  36.     /l { _sa? { pl } if lineto } bd
  37.     /c { _sa? { pl } if curveto } bd
  38.     /setSA { /_sa? xdd } bd
  39.     /setOP/pop ld        % Ignore setoverprint in L1.
  40. } EndLoad
  41.  
  42. % x2 y2 x3 y3 v -
  43. /v { currentpoint 6 2 roll c } bd
  44.  
  45. % x1 y1 x2 y2 y -
  46. /y { 2 copy c } bd
  47.  
  48. /h/closepath ld
  49.  
  50. % graphic state operators
  51. /d/setdash ld                
  52. /j/setlinejoin ld
  53. /J/setlinecap ld
  54. /M/setmiterlimit ld
  55. /w/setlinewidth ld
  56. /cf    currentflat def            % default flatness
  57. /i {                        % flatness i -
  58.     dup 0 eq { pop cf } if    % use default flatness if arg is 0
  59.     setflat
  60. } bd
  61.  
  62. % path painting operators
  63.  
  64. % init _lp - force setting of color
  65. /ilp { /_lp /none dd } bd
  66.  
  67. % set color before fill or stroke
  68. /sfc {                        % setfillcolor
  69.     _lp /fill ne {            % if fill not set
  70.         _sfcs                % set colorspace
  71.         _sfc                % set color
  72.         /_lp /fill dd        % fill now set
  73.     } if
  74. } bd
  75. /ssc {                        % setstrokecolor
  76.     _lp /stroke ne {        % if stroke not set
  77.         _sscs                % set colorspace
  78.         _ssc                % set color
  79.         /_lp /stroke dd        % stroke now set
  80.     } if
  81. } bd
  82.  
  83. % endpath w/o painting
  84. /n {                % - n -
  85.     _doClip 1 ge {
  86.         _doClip 1 eq { clip } { eoclip } ifelse
  87.         /_doClip 0 dd
  88.     } if 
  89.     newpath
  90. } bd
  91.  
  92. % fill
  93. /f {                % - f -
  94.     _doClip 1 ge
  95.         {
  96.             gsave sfc fill grestore 
  97.             _doClip 1 eq { clip } { eoclip } ifelse
  98.             newpath
  99.             ilp 
  100.             /_doClip 0 dd
  101.         }
  102.         { sfc fill }
  103.     ifelse
  104. } bd
  105.  
  106. % eofill
  107. /f*    {                % - f* -
  108.     _doClip 1 ge
  109.         {
  110.             gsave sfc eofill grestore 
  111.             _doClip 1 eq { clip } { eoclip } ifelse
  112.             newpath
  113.             ilp
  114.             /_doClip 0 dd
  115.         }
  116.         { sfc eofill }
  117.     ifelse
  118. } bd
  119.  
  120. % stroke
  121. /S {                % - S -
  122.     _doClip 1 ge
  123.         {
  124.             gsave ssc stroke grestore 
  125.             _doClip 1 eq { clip } { eoclip } ifelse
  126.             newpath
  127.             ilp
  128.             /_doClip 0 dd
  129.         }
  130.         { ssc stroke }
  131.     ifelse
  132. } bd
  133. /s { h S } bd        % - s -
  134.  
  135. % fill, stroke, and clip
  136. /B {                % - B -
  137.     _doClip dup 1 ge     % f clears _doClip
  138.         gsave f grestore 
  139.         {
  140.             gsave S grestore 
  141.             1 eq { clip } { eoclip } ifelse
  142.             newpath
  143.             ilp
  144.             /_doClip 0 dd
  145.         }
  146.         { pop S }
  147.     ifelse
  148. } bd
  149. /b { h B } bd        % - b -
  150.  
  151. % fill, stroke, and eoclip
  152. /B* {                % - B -
  153.     _doClip dup 1 ge     % f* clears _doClip
  154.         gsave f* grestore 
  155.         {
  156.             gsave S grestore 
  157.             1 eq { clip } { eoclip } ifelse
  158.             newpath
  159.             ilp
  160.             /_doClip 0 dd
  161.         }
  162.         { pop S }
  163.     ifelse
  164. } bd
  165. /b* { h B* } bd        % - b* -
  166.  
  167. % remember to clip
  168. /W { /_doClip 1 dd } bd
  169. /W* { /_doClip 2 dd } bd
  170.  
  171. % gsave/grestore
  172. /q/save ld
  173. /Q { restore ilp } bd
  174.  
  175. % Categories and Resources for PDF 1.2
  176. % All we use are "define' and "find". For Level 1, we simply store these in a
  177. % global dictionary, _categories. This code is not currently used for the /Font category.
  178.  
  179. Level2? StartLoad
  180. {    /defineRes/defineresource ld
  181.     /findRes/findresource ld    
  182.     currentglobal
  183.     true setglobal
  184.     [/Function /ExtGState /Form]
  185.     { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  186.     forall
  187.     setglobal
  188. } EndLoad
  189.  
  190. Level2? not StartLoad
  191. {   /AlmostFull?    % dict => boolean
  192.     { dup maxlength exch length sub 2 le
  193.     } bind def
  194.  
  195.     /Expand    % dict factor => dict'
  196.     { 1 index maxlength mul cvi dict    % create a bigger dictionary
  197.       dup begin exch { def } forall end    % copy all the elements 
  198.     } bind def
  199.  
  200.     % Avoid 'dictfull' errors by expanding dictionaries as needed.
  201.     /xput % dict key val => dict' ("Expanding put")
  202.     { 3 2 roll
  203.         dup 3 index known not
  204.         { dup AlmostFull? { 1.5 Expand } if
  205.         } if
  206.         dup 4 2 roll put
  207.     } bind def
  208.  
  209.     /defineRes    % resourceName resource categoryName => resource
  210.     { _categories 1 index known not
  211.         { /_categories _categories 2 index 10 dict xput store
  212.         } if
  213.       _categories exch 2 copy get 5 -1 roll 4 index xput put
  214.     } bind def
  215. } EndLoad
  216.  
  217. % Set up the colorspace that will be installed the next time we fill.
  218. /cs                                        % name cs -
  219. {    
  220.     dup where { pop load } if            % load if not standard name
  221.     dup /_fcs xdd                        % save fill colorspace
  222.     % Now set up array to save color components.
  223.     ucs                                    % Get the underlying colorspace.
  224.     _cpcf exch get                        % Get the component vector.
  225.     /_fc xdd                            % Store that in _fc.
  226.     /_fp { } dd                            % No 'fill pattern' argument.
  227. } bd
  228.  
  229. % Set up the colorspace that will be installed the next time we stroke.
  230. /CS 
  231. { 
  232.     dup where { pop load } if            % load if not standard name
  233.     dup /_scs xdd ucs _cpcs exch get /_sc xdd /_sp { } dd
  234. } bd
  235.  
  236. % Get the underlying colorspace, so we know how many color components
  237. % to pass to setcolor. 
  238. % The colorspace [/Pattern base] can be used for both
  239. % colored patterns, which take no color values (just the pattern), and uncolored patterns,
  240. % which take 1, 3, or 4 color values PLUS the pattern. scn/SCN
  241. % stores the pattern in _fp (_sp), which is pushed onto the stack before the
  242. % call to setcolor. sc/SC set it to the null procedure.
  243. %
  244. % Since we support [/Pattern [/Indexed ...]] and
  245. % [/Pattern [/Separation ...]], it's easiest just to make ucs recursive.
  246.  
  247. /ucs {                                    % colorspace => name
  248.     dup type /arraytype eq
  249.       { dup 0 get
  250.         dup /Indexed eq                    % [/Indexed ...]
  251.           { pop 0 get }
  252.           { /Pattern eq
  253.               { dup length 2 eq            % [/Pattern colorspace]
  254.                   { 1 get ucs }            % Recurse.
  255.                   { 0 get }                % [/Pattern]: 1 component
  256.                 ifelse }
  257.               { 0 get }                    % [/Separation ...]: 1 component
  258.             ifelse }
  259.         ifelse }
  260.     if }
  261. bd
  262.  
  263. /_cpcf  % components per color (fill).  colorspace => components-vector
  264.     15 dict dup begin
  265.         /DefaultGray _f1 def
  266.       /DeviceGray _f1 def
  267.       /DefaultRGB _f3 def
  268.       /DeviceRGB _f3 def
  269.       /DeviceCMYK _f4 def
  270.       /CalGray _f1 def
  271.       /CalRGB _f3 def
  272.       /CalCMYK _f4 def
  273.       /Lab _f3 def
  274.       /Pattern _f0 def                        % colored
  275.       /Indexed _f1 def
  276.       /Separation _f1 def
  277.       /CIEBasedA _f1 def
  278.       /CIEBasedABC _f3 def
  279.     end
  280. dd
  281.  
  282. /_cpcs  % components per color (stroke).  colorspace => components-vector
  283.     15 dict dup begin
  284.       /DefaultGray _s1 def
  285.       /DeviceGray _s1 def
  286.       /DefaultRGB _s3 def
  287.       /DeviceRGB _s3 def
  288.       /DeviceCMYK _s4 def
  289.       /CalGray _s1 def
  290.       /CalRGB _s3 def
  291.       /CalCMYK _s4 def
  292.       /Lab _s3 def
  293.       /Pattern _s0 def                        % colored
  294.       /Indexed _s1 def
  295.       /Separation _s1 def
  296.       /CIEBasedA _s1 def
  297.       /CIEBasedABC _s3 def
  298.     end
  299. dd
  300.  
  301.  
  302. Level2? not StartLoad {                    % L1 defs
  303.  
  304.     % L1 setcolor fns set color space as well, so _sfcs does nothing
  305.     /_sfcs { } dd
  306.     /_sscs { } dd
  307.     /_sfc { _fc L1setcolor } dd
  308.     /_ssc { _sc L1setcolor } dd
  309.     /L1setcolor {                            %: color-components-array => -
  310.         aload length
  311.         % From the number of colors, we can tell which operator to use.
  312.         % Uncolored patterns will use their underlying color space.
  313.         dup 0 eq
  314.             { pop .5 setgray }                % Colored pattern
  315.             { dup 1 eq
  316.                 { pop setgray }                % DeviceGray, Indexed, Separation
  317.                 { 3 eq
  318.                     { setrgbcolor }            % DeviceRGB, CalRGB, Lab
  319.                     { setcmykcolor }        % DeviceCMYK, CalCMYK
  320.                 ifelse }
  321.             ifelse }
  322.         ifelse
  323.     } bind dd
  324.     
  325.     % set render intent                        % name ri -
  326.     /ri/pop ld
  327.     % makePat                                % patDict mtx => patDict
  328.     /makePat/pop ld        % We use the dictionary only to check its PaintType.
  329.     /sethalftone                            % Emulate for L1
  330.     {                                        % halftoneDict => -
  331.         begin
  332.         HalftoneType 1 eq
  333.             { Frequency Angle /SpotFunction load }
  334.             { 0 0 currentdict }
  335.         ifelse
  336.         setscreen
  337.       end
  338.     } bind def
  339.     
  340. } EndLoad
  341.  
  342. Level2? StartLoad
  343. {
  344.     % L2 defs
  345.  
  346.     /_sfcs
  347.     {
  348.         _fcs setcolorspace
  349.     } bind dd    % Set the colorspace for fill.
  350.     /_sscs
  351.     {
  352.         _scs setcolorspace
  353.     } bind dd    % Set the colorspace for stroke
  354.     /_sfc    % Set the fill color.
  355.     {
  356.         _fc aload pop    % Push the color components ...
  357.         _fp    % ... and maybe the fill pattern
  358.         setcolor    % ... then set the color.
  359.     } bind dd
  360.     /_ssc
  361.     {
  362.         _sc aload pop _sp setcolor
  363.     } bind dd    % Set the color for stroke.
  364.  
  365.     % set render intent                        % name ri -
  366.     /ri
  367.     {
  368.         /findcolorrendering isdefined?
  369.         {
  370.             findcolorrendering pop
  371.             dup /ColorRendering resourcestatus
  372.             {
  373.                 pop pop
  374.                 /ColorRendering findresource
  375.                 setcolorrendering
  376.             }
  377.             {
  378.                 pop
  379.             } ifelse
  380.         }
  381.         {
  382.             pop
  383.         } ifelse
  384.     } bd
  385.     /makePat /makepattern ld
  386. } EndLoad
  387.  
  388. % set fill or stroke color
  389. /sc        % set fill color                % c1 ... cn sc -
  390. {
  391.     _fc astore pop
  392.     ilp
  393. } bd
  394. /SC        % set stroke color                % c1 ... cn SC -
  395. {
  396.     _sc astore pop
  397.     ilp
  398. } bd
  399.  
  400. % set fill color for patterns.
  401. % If the value on the top of the stack is not a name, then this
  402. % is equivalent to 'sc'. Otherwise, the name refers to a pattern.
  403. % If the current colorspace is /Pattern, then 'name' must be a 
  404. % colored pattern, but if it's [/Pattern base], then we have to 
  405. % examine the pattern to see whether it's colored. If it's a colored
  406. % pattern, we use _f0 for the "components." 
  407.  
  408. /scn {                                    % c1 ... cn name scn -
  409.     dup type /nametype eq
  410.       { /Pattern findRes                % Get the value.
  411.           dup /_fpat xdd                % Store that in _fpat
  412.           /_fp { _fpat } dd                % Redefine _fp to push _fpat.
  413.           /PaintType get 1 eq            % Colored?
  414.           { /_fc _f0 dd ilp }            % Yes. Set _fc to a 0-length array.
  415.           { /_fc cpcf _fcs ucs get dd    % No. Recompute _fc ...
  416.               sc }                        % ... and store c1..cn there.
  417.           ifelse }                        
  418.       { sc }
  419.     ifelse
  420. } bd
  421.  
  422. /SCN {                                    % c1 ... cn name SCN -
  423.     dup type /nametype eq
  424.       { /Pattern findRes                % Get the value.
  425.           dup /_spat xdd                % Store that in _spat
  426.           /_sp { _spat } dd                % Redefine _sp to push _spat.
  427.           /PaintType get 1 eq            % Colored?
  428.           { /_sc _s0 dd ilp }            % Yes. Set _sc to a 0-length array.
  429.           { /_sc cpc _scs ucs get dd    % No. Recompute _sc ...
  430.               SC }                        % ... and store c1..cn there.
  431.           ifelse }                        
  432.       { SC }
  433.     ifelse
  434. } bd
  435.  
  436. % color operators
  437. /g  { /DefaultGray cs sc } bd
  438. /rg { /DefaultRGB cs sc } bd
  439. /k  { /DeviceCMYK cs sc } bd
  440. /G  { /DefaultGray CS SC } bd
  441. /RG { /DefaultRGB CS SC } bd
  442. /K  { /DeviceCMYK CS SC } bd
  443.  
  444. % a b c d x y cm -
  445. /cm { _mtx astore concat } bd
  446.  
  447. % x y width height re - 
  448. % Add the rectangle to the current path
  449. /re {
  450.     4 2 roll m            % x y m
  451.     1 index 0 rlineto    % w 0 rlineto
  452.     0 exch rlineto        % 0 h rlineto
  453.     neg 0 rlineto        % -w 0 rlineto
  454.     h
  455. } bd
  456.  
  457. % x y width height RC - 
  458. /RC/rectclip ld
  459.  
  460. % formdict EF -
  461. /EF/execform ld
  462.  
  463. % exec-string PS -
  464. /PS { cvx exec } bd
  465.  
  466. % initialize gstate once per page
  467. /initgs {
  468.     /DefaultGray where
  469.         { pop }
  470.         { /DefaultGray /DeviceGray dd }
  471.     ifelse
  472.     /DefaultRGB where
  473.         { pop }
  474.         { /DefaultRGB /DeviceRGB dd }
  475.     ifelse
  476.     0 g 0 G
  477.     [] 0 d 0 j 0 J 10 M 1 w
  478.     true setSA
  479. } bd
  480.  
  481. % The predefined spot functions
  482. 17 dict dup begin
  483.       /CosineDot
  484.       { 180 mul cos exch 180 mul cos add 2 div } bd
  485.  
  486.       /Cross
  487.       { abs exch abs 2 copy gt { exch } if pop neg } bd
  488.       
  489.       /Diamond                % Photoshop's version
  490.       { abs exch abs 2 copy add .75 le
  491.           { dup mul exch dup mul add 1 exch sub }
  492.           { 2 copy add 1.23 le
  493.               { .85 mul add 1 exch sub }
  494.               { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  495.               ifelse }
  496.           ifelse } bd
  497.       
  498.       /DoubleDot
  499.       { 2 { 360 mul sin 2 div exch } repeat add } bd
  500.       
  501.       /Ellipse
  502.       { abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt
  503.           { pop dup mul exch .75 div dup mul add 4 div
  504.               1 exch sub }
  505.           { dup 1 gt
  506.               {pop 1 exch sub dup mul exch 1 exch sub
  507.                   .75 div dup mul add 4 div 1 sub }
  508.               { .5 exch sub exch pop exch pop }
  509.               ifelse }
  510.           ifelse } bd
  511.       
  512.       /EllipseB
  513.       { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub } bd
  514.       
  515.       /EllipseC
  516.       { dup .5 gt { 1 exch sub } if
  517.           dup .25 ge
  518.           { .5 exch sub 4 mul dup mul 1 sub }
  519.           { 4 mul dup mul 1 exch sub }
  520.           ifelse
  521.           exch
  522.           dup .5 gt { 1 exch sub } if
  523.           dup .25 ge
  524.           { .5 exch sub 4 mul dup mul 1 sub }
  525.           { 4 mul dup mul 1 exch sub }
  526.           ifelse
  527.           add -2 div } bd
  528.       
  529.       /InvertedDoubleDot
  530.       { 2 { 360 mul sin 2 div exch } repeat add neg } bd
  531.       
  532.       /InvertedEllipseA 
  533.       { dup mul .9 mul exch dup mul add 1 sub } bd
  534.       
  535.       /InvertedSimpleDot
  536.       { dup mul exch dup mul add 1 sub } bd
  537.  
  538.       /Line 
  539.       { exch pop abs neg } bd
  540.       
  541.       /LineY                % called "Line" in FrameMaker 5
  542.       { pop } bd
  543.  
  544.       /Rhomboid
  545.       { abs exch abs 0.9 mul add 2 div } bd
  546.       % 0.8 in FrameMaker 5 
  547.       
  548.       /Round 
  549.       { abs exch abs 2 copy add 1 le
  550.           { dup mul exch dup mul add 1 exch sub }
  551.           { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  552.           ifelse } bd
  553.       
  554.       /SimpleDot
  555.       { dup mul exch dup mul add 1 exch sub } bd
  556.       
  557.       /Square
  558.       { abs exch abs 2 copy lt { exch } if pop neg } bd
  559.     end
  560.     { /Function defineRes pop } forall
  561.  
  562. /Identity {} /Function defineRes pop
  563.  
  564. Level2? StartLoad {
  565.     /gs 
  566.     {
  567.         begin
  568.             /SA here { setstrokeadjust } if
  569.             /OP here { setoverprint } if
  570.             /BG here { setblackgeneration } if
  571.             /UCR here { setundercolorremoval } if
  572.             /HT here { sethalftone } if
  573.             /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  574.             /TR here 
  575.             {    % A procedure or an array of 4 procedures. 
  576.                 dup xcheck { settransfer } { setcolortransfer } ifelse
  577.             } if
  578.         end
  579.     } bd
  580. } EndLoad
  581.  
  582. Level2? not StartLoad {
  583.     /gs
  584.     {
  585.         begin
  586.             /SA here { /_sa? xdd } if
  587.             /HT here 
  588.             {
  589.                 begin
  590.                     HalftoneType 1 eq 
  591.                     { Frequency Angle /SpotFunction load setscreen }
  592.                     if
  593.                 end
  594.             } if
  595.             /TR here { dup type xcheck { settransfer } if } if
  596.         end
  597.     } bd
  598. } EndLoad
  599.  
  600. % 'truncate2' and 'int' are used in code that interpolates from sampled values
  601. % in function resources.
  602.  
  603. /truncate2 { 2 copy idiv 3 1 roll mod } bd
  604.  
  605. /int {  % x x0 x1 y0 y1 => y
  606.     % On the line defined by (x0,y0) and (x1,y1), interpolate a
  607.     % value for y, given x.
  608.     dup 2 index sub 3 index 5 index sub div 6 -2 roll sub mul
  609.     exch pop add exch pop
  610. } bd
  611.  
  612. %%EndFile
  613.