home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / pdf_draw.ps < prev    next >
Text File  |  2004-09-14  |  41KB  |  1,308 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_draw.ps,v 1.66.2.5 2004/09/13 22:16:17 ray Exp $
  17. % pdf_draw.ps
  18. % PDF drawing operations (graphics, text, and images).
  19.  
  20. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  21. .currentglobal true .setglobal
  22. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  23. GS_PDF_ProcSet begin
  24. pdfdict begin
  25.  
  26. % For simplicity, we use a single interpretation dictionary for all
  27. % PDF graphics operations, even though this is too liberal.
  28. /drawopdict 100 dict def
  29.  
  30. % ================================ Graphics ================================ %
  31.  
  32. % ---------------- Functions ---------------- %
  33.  
  34. % Note that resolvefunction converts a PDF Function to a PostScript Function;
  35. % resolve*fnproc converts a PDF function to a PostScript procedure.
  36. % We need to process all required and optional parameters to resolve any
  37. % use of indirect references.
  38.  
  39. /fnrdict mark
  40.   0 { .resolvefn0 }
  41.   2 { .resolvefn2 }
  42.   3 { .resolvefn3 }
  43.   4 { .resolvefn4 }
  44. .dicttomark readonly def
  45.  
  46. /.resolvefn0 {
  47.   dup length 1 add dict .copydict    % make room for DataSource
  48.   % now resolve any indirect references
  49.   dup /Size 2 copy knownoget { put } { pop pop } ifelse
  50.   dup /BitsPerSample 2 copy knownoget { put } { pop pop } ifelse
  51.   dup /Order 2 copy knownoget { put } { pop pop } ifelse
  52.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  53.   dup /Decode 2 copy knownoget { put } { pop pop } ifelse
  54.   
  55.         % Don't lose our place in PDFfile.
  56.   PDFfile fileposition exch
  57.   dup true resolvestream
  58.         % The stream isn't positionable, so read all the data now.
  59.         % Stack: filepos fndict stream
  60.   1 index /Range get length 2 idiv 2 index /BitsPerSample get mul
  61.   2 index /Size get { mul } forall
  62.   7 add 8 idiv string
  63.   1 index exch readstring pop exch closefile
  64.         % Stack: filepos fndict data
  65.   exch dup /DataSource 4 -1 roll put
  66.   exch PDFfile exch setfileposition
  67. } bdef
  68.  
  69. /.resolvefn2 {
  70.   dup length dict .copydict
  71.   dup /C0 2 copy knownoget { put } { pop pop } ifelse
  72.   dup /C1 2 copy knownoget { put } { pop pop } ifelse
  73.   dup /N 2 copy knownoget { put } { pop pop } ifelse
  74. } bdef
  75.  
  76. /.resolvefn3 {
  77.   dup length dict .copydict
  78.   dup /Bounds 2 copy knownoget { put } { pop pop } ifelse
  79.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  80.   dup /Functions 2 copy oget mark exch dup {
  81.     oforce .resolvefn
  82.   } forall
  83.   counttomark -1 roll astore exch pop put
  84. } bdef
  85.  
  86. /.resolvefn4 {
  87.   PDFfile fileposition exch             % filepos fndict
  88.   dup true resolvestream                % filepos fndict stream
  89.   exch dup length dict copy             % filepos stream fndict2
  90.   dup /Function undef                   % filepos stream fndict2
  91.   exch dup token not {
  92.     () /rangecheck cvx signalerror
  93.   } if
  94.   exch token {
  95.     /rangecheck cvx signalerror
  96.   } if
  97.         % Use .bind to avoid idiom recognition.
  98.   .bind
  99.   1 index /Function 3 -1 roll put
  100.   exch PDFfile exch setfileposition
  101. } bdef
  102.  
  103. /.resolvefn {        % <fndict> .resolvefn <fndict'>
  104.   dup length dict .copydict
  105.   dup /Domain 2 copy knownoget { put } { pop pop } ifelse
  106.   dup /Range 2 copy knownoget { put } { pop pop } ifelse
  107.   dup /FunctionType oget //fnrdict exch get exec
  108. } bdef
  109.  
  110. /resolvefunction {    % <fndict> resolvefunction <function>
  111.   .resolvefn
  112.   PDFDEBUG { (%Function: ) print dup === flush } if
  113. } bdef
  114.  
  115. /resolvefnproc {    % <fndict> resolvefnproc <proc>
  116.   resolvefunction .buildfunction
  117. } bdef
  118.  
  119. /resolveidfnproc {    % <fndict> resolveidfnproc <proc>
  120.   dup /Identity eq { pop { } } { resolvefnproc } ifelse
  121. } bdef
  122.  
  123. /resolvedefaultfnproc {    % <fndict> <default> resolved'fnproc <proc>
  124.   1 index /Default eq { exch pop } { pop resolveidfnproc } ifelse
  125. } bdef
  126.  
  127. % ---------------- Shadings ---------------- %
  128.  
  129. /shrdict mark
  130.   /ColorSpace {
  131.     resolvecolorspace
  132.   }
  133.   /Function {
  134.     dup type /dicttype eq {
  135.       resolvefunction
  136.     } {
  137.       [ exch { oforce resolvefunction } forall ]
  138.     } ifelse
  139.   }
  140. .dicttomark readonly def
  141.  
  142. /resolveshading {    % <shadingstream> resolveshading <shading>
  143.   PDFfile fileposition exch
  144.   mark exch {
  145.     oforce //shrdict 2 index .knownget { exec } if
  146.   } forall .dicttomark
  147.   dup /ShadingType get 4 ge {
  148.     dup dup true resolvestream
  149.         % Make a reusable stream so that the shading doesn't
  150.         % reposition PDFfile at unexpected times.
  151.     /ReusableStreamDecode filter /DataSource exch put
  152.   } if exch PDFfile exch setfileposition
  153. } bdef
  154. /resolvesh {        % <shname> resolveshading <shading>
  155.   Page /Shading rget {
  156.     resolveshading
  157.   } {
  158.     null
  159.   }ifelse
  160. } bdef
  161.  
  162. % ---------------- Halftones ---------------- %
  163.  
  164. /spotfunctions mark
  165.   /Round {
  166.     abs exch abs 2 copy add 1 le {
  167.       dup mul exch dup mul add 1 exch sub 
  168.     } {
  169.       1 sub dup mul exch 1 sub dup mul add 1 sub
  170.     } ifelse
  171.   }
  172.   /Diamond {
  173.     abs exch abs 2 copy add .75 le {
  174.       dup mul exch dup mul add 1 exch sub
  175.     } {
  176.       2 copy add 1.23 le {
  177.     .85 mul add 1 exch sub
  178.       } {
  179.     1 sub dup mul exch 1 sub dup mul add 1 sub
  180.       } ifelse
  181.     } ifelse
  182.   }
  183.   /Ellipse {
  184.     abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  185.       pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  186.     } {
  187.       dup 1 gt {
  188.     pop 1 exch sub dup mul exch 1 exch sub
  189.     .75 div dup mul add 4 div 1 sub
  190.       } {
  191.     .5 exch sub exch pop exch pop
  192.       } ifelse
  193.     } ifelse
  194.   }
  195.   /EllipseA { dup mul .9 mul exch dup mul add 1 exch sub }
  196.   /InvertedEllipseA { dup mul .9 mul exch dup mul add 1 sub }
  197.   /EllipseB { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  198.   /EllipseC { dup mul .9 mul exch dup mul add 1 exch sub }
  199.   /InvertedEllipseC { dup mul .9 mul exch dup mul add 1 sub }
  200.   /Line { exch pop abs neg }
  201.   /LineX { pop }
  202.   /LineY { exch pop }
  203.   /Square { abs exch abs 2 copy lt { exch } if pop neg }
  204.   /Cross { abs exch abs 2 copy gt { exch } if pop neg }
  205.   /Rhomboid { abs exch abs 0.9 mul add 2 div }
  206.   /DoubleDot { 2 {360 mul sin 2 div exch } repeat add }
  207.   /InvertedDoubleDot { 2 {360 mul sin 2 div exch } repeat add neg }
  208.   /SimpleDot { dup mul exch dup mul add 1 exch sub }
  209.   /InvertedSimpleDot { dup mul exch dup mul add 1 sub }
  210.   /CosineDot { 180 mul cos exch 180 mul cos add 2 div }
  211.   /Double { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add }
  212.   /InvertedDouble {
  213.     exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg
  214.   }
  215. .dicttomark readonly def
  216.  
  217. /htrdict mark
  218.   1 { .resolveht1 }
  219.   5 { .resolveht5 }
  220.     % We don't support types 6, 10, or 16 yet.
  221. .dicttomark readonly def
  222.  
  223. /.resolveht1 {
  224.   mark exch {
  225.     oforce
  226.     1 index /SpotFunction eq {
  227.       dup type /nametype eq
  228.     { //spotfunctions exch get } { resolvefnproc }
  229.       ifelse
  230.     } {
  231.       1 index /TransferFunction eq {
  232.     resolveidfnproc
  233.       } if
  234.     } ifelse
  235.   } forall .dicttomark
  236. } bdef
  237.  
  238. /.resolveht5 {
  239.   mark exch {
  240.     oforce dup type /dicttype eq { resolvehalftone } if
  241.   } forall .dicttomark
  242. } bdef
  243.  
  244. /resolvehalftone {    % <dict> resolvehalftone <halftone>
  245.   dup /HalftoneType get
  246.   dup //htrdict exch .knownget {
  247.     exch pop exec
  248.   } {
  249.     (\n\n   **** Unsupported HalftoneType ) pdfformaterror
  250.     =string cvs pdfformaterror (. ***\n\n) pdfformaterror
  251.     /resolvehalftone cvx /unregistered signalerror
  252.   } ifelse
  253. } bdef
  254.  
  255. % ---------------- Graphics state management ---------------- %
  256.  
  257. /cmmatrix matrix def
  258. drawopdict begin
  259.             % Graphics state stack
  260.   /q { q } def
  261.   /Q { Q } def
  262.             % Graphics state setting
  263.   /cm { //cmmatrix astore concat } def
  264.   /i { 1 .min setflat } def
  265.   /J /setlinecap load def
  266.   /d /setdash load def
  267.   /j /setlinejoin load def
  268.   /w /setlinewidth load def
  269.   /M /setmiterlimit load def
  270.   /gs { gs } def
  271. end
  272.  
  273. % Each entry in this dictionary is
  274. %    <gsres> <value> -proc- <gsres>
  275. /gsbg {
  276.   /BGDefault load resolvedefaultfnproc setblackgeneration
  277. } bdef
  278. /gsucr {
  279.   /UCRDefault load resolvedefaultfnproc setundercolorremoval
  280. } bdef
  281. /gstr {
  282.   dup type /arraytype eq {
  283.     { oforce /TRDefault load resolvedefaultfnproc } forall
  284.     setcolortransfer
  285.   } {
  286.     /TRDefault load resolvedefaultfnproc settransfer
  287.   } ifelse
  288. } bdef
  289. /gsparamdict mark
  290.   /SA { setstrokeadjust }
  291.   /OP { 1 index /op known not { dup op } if OP }
  292.     % The PDF 1.3 specification says that the name /Default is only
  293.     % recognized for {BG,UCR,TR}2.  However, PDF 1.3 files produced
  294.     % by Adobe Acrobat Distiller 4.0 for Windows use the name /Default
  295.     % with the older keys, so we have to implement this.
  296.   /BG { 1 index /BG2 known { pop } { gsbg } ifelse }
  297.   /UCR { 1 index /UCR2 known { pop } { gsucr } ifelse }
  298.   /TR { 1 index /TR2 known { pop } { gstr } ifelse }
  299.   /HT {
  300.     dup /Default eq {
  301.       pop .setdefaulthalftone
  302.     } {
  303.     %****** DOESN'T IMPLEMENT THE STREAM CASE YET ******
  304.       resolvehalftone sethalftone
  305.     } ifelse
  306.     % the transfer function may dependent on the halftone, so make sure
  307.     % it is set if included in the graphic state (otherwise this is
  308.     % subject to order of a dictionary forall, which is unpredictable)
  309.     dup /TR2 .knownget {
  310.       dup /Default eq { oforce gsparamdict /TR2 get exec } { pop } ifelse
  311.     } {
  312.       dup /TR .knownget {
  313.         /dup /Default eq { oforce gsparamdict /TR get exec } { pop } ifelse
  314.       } if
  315.     } ifelse
  316.   }
  317.   /HTP {
  318.     % HTP may be present even if this isn't a DPS interpreter.
  319.     /sethalftonephase where { pop aload pop sethalftonephase } { pop } ifelse
  320.   }
  321.     % PDF 1.3
  322.   /Font { aload pop Tf }
  323.   /LW { setlinewidth }
  324.   /LC { setlinecap }
  325.   /LJ { setlinejoin }
  326.   /ML { setmiterlimit }
  327.   /D { aload pop setdash }
  328.   /RI { ri }
  329.   /op { op }
  330.   /OPM { OPM }
  331.   /BG2 { gsbg }
  332.   /UCR2 { gsucr }
  333.   /TR2 { gstr }
  334.   /FL { 1 .min setflat }
  335.   /SM {
  336.     % SM may be present even if this is only a Level 2 interpreter.
  337.     /setsmoothness where { pop setsmoothness } { pop } ifelse
  338.   }
  339.     % PDF 1.4
  340.     % All of these require the "transparency" feature in the interpreter.
  341.   /ca { ca }
  342.   /CA { CA }
  343.   /SMask { gssmask }
  344.   /AIS { AIS }
  345.   /BM { BM }
  346.   /TK { TK }
  347. .dicttomark readonly def
  348. /gs {            % <gsres> gs -
  349.   Page /ExtGState rget {
  350.     % We keep the dictionary on the stack during the forall so that
  351.     % keys that interact with each other have access to it.
  352.     dup {
  353.       oforce exch gsparamdict exch .knownget { exec } { pop } ifelse
  354.     } forall pop
  355.   } if
  356. } bdef
  357.  
  358. % ------ Transparency support ------ %
  359.  
  360. /gssmask {
  361.   dup /None eq PDFusingtransparency not or {
  362.     pop null
  363.   } {
  364.     % Preprocess the SMask value into a parameter dictionary for
  365.     % .begintransparencymask, with added /BBox and /Draw keys.
  366.     mark exch        % Stack: mark smaskdict
  367.     dup /S oget /Subtype exch 3 2 roll
  368.             % Stack: mark ... smaskdict
  369.     dup /BC knownoget {
  370.       gsave
  371.         1 index /G oget /Group oget /CS knownoget {
  372.       csresolve setgcolorspace
  373.     } if
  374.         aload pop setcolor [ currentgray ]
  375.       grestore
  376.       /Background exch 3 2 roll
  377.     } if
  378.     dup /TR knownoget {
  379.       resolveidfnproc /TransferFunction exch 3 2 roll
  380.     } if    
  381.     dup /G oget dup /BBox oget /BBox exch 4 2 roll
  382.     /.execmaskgroup cvx 2 packedarray cvx /Draw exch 3 2 roll
  383.     pop .dicttomark
  384.   } ifelse SMask
  385. } bdef
  386.  
  387. % This procedure is called to actually render the soft mask.
  388. /.execmaskgroup {    % <masknum> <paramdict> <formdict> .execmaskgroup -
  389.     % Save our place in PDFfile, and do a gsave to avoid resetting
  390.     % the color space.
  391.   gsave PDFfile fileposition 4 1 roll
  392.     % We have to select the group's color space so that the
  393.     % background color will be interpreted correctly.
  394.   dup /Group oget /CS knownoget { csresolve setgcolorspace } if
  395.   exch dup /BBox get aload pop .begintransparencymask {
  396.     dup /Resources knownoget { oforce } { 0 dict } ifelse
  397.     exch false resolvestream
  398.     .execgroup .endtransparencymask
  399.   } .internalstopped {
  400.     .discardtransparencymask stop
  401.   } if
  402.   PDFfile exch setfileposition grestore
  403. } bdef
  404. % Paint a Form+Group XObject, either for a transparency mask or for a Do.
  405. /.execgroup {        % <resdict> <stream> .execgroup -
  406.   gsave //nodict begin
  407.   null SMask
  408.   1 .setopacityalpha 1 .setshapealpha
  409.   0 .inittransparencymask 1 .inittransparencymask
  410.   /Compatible .setblendmode
  411.     % Execute the body of the Form, similar to DoForm.
  412.   pdfopdict .pdfruncontext
  413.   end grestore
  414. } bdef
  415.  
  416. /.beginformgroup {    % groupdict bbox .beginformgroup -
  417.   exch mark exch            % bbox mark groupdict
  418.   dup /CS knownoget { csresolve setgcolorspace } if
  419.   dup /I knownoget { /Isolated exch 3 2 roll } if
  420.   dup /K knownoget { /Knockout exch 3 2 roll } if
  421.   pop .dicttomark
  422.         % Stack: bbox paramdict
  423.   exch aload pop
  424.   .begintransparencygroup
  425. } bdef
  426.  
  427. % .paintgroupform implements the Form PaintProc in the case where the
  428. % Form XObject dictionary includes a Group key.  See .paintform below.
  429. /.paintgroupform {    % <resdict> <stream> <formdict> .paintgroupform -
  430.   dup /Group oget exch /BBox oget
  431.         % Stack: resdict stream groupdict bbox
  432.   .beginformgroup {
  433.     .execgroup
  434.   } .internalstopped {
  435.     .discardtransparencygroup stop
  436.   } if .endtransparencygroup
  437. } bdef
  438.  
  439. % Make an ImageType 103 (soft-masked) image.
  440. /makesoftmaskimage {    % <datasource> <imagemask> <SMask> makesoftmaskimage
  441.             %   <datasource> <imagemask>, updates currentdict =
  442.             %   imagedict
  443.         % See the ImageType 3 case of makemaskimage below.
  444.         % SMask is a stream, another Image XObject.
  445.         % Stack: datasource imagemask(false) smaskstreamdict
  446.   PDFfile fileposition exch
  447.   dup /Matte knownoget { /Matte exch def } if
  448.   dup length dict makeimagedict pop
  449.         % In order to prevent the two data sources from being
  450.         % aliased, we need to make at least one a reusable stream.
  451.         % We pick the mask, since it's smaller (in case we need to
  452.         % read all its data now).
  453.         % Stack: datasource imagemask(false) savedpos
  454.         % maskdict is currentdict
  455.   /DataSource DataSource mark
  456.     /Intent 1
  457.     /AsyncRead true
  458.   .dicttomark .reusablestreamdecode def
  459.   PDFfile exch setfileposition
  460.   currentdict end currentdict end
  461.   5 dict begin
  462.   /ImageType 103 def
  463.   /DataDict exch def
  464.   dup /InterleaveType 3 put
  465.   DataDict /Matte knownoget {
  466.     /Matte exch def
  467.   } if
  468.   AlphaIsShape { /ShapeMaskDict } { /OpacityMaskDict } ifelse exch def
  469.   /ColorSpace DataDict /ColorSpace get def
  470. } bdef
  471.  
  472. % ---------------- Color setting ---------------- %
  473.  
  474. /01_1 [0 1] readonly def
  475. /01_3 [0 1 0 1 0 1] readonly def
  476. /01_4 [0 1 0 1 0 1 0 1] readonly def
  477.  
  478. % The keys here are resolved (PostScript, not PDF) color space names.
  479. /csncompdict mark
  480.   /DeviceGray { pop 1 }
  481.   /DeviceRGB { pop 3 }
  482.   /DeviceCMYK { pop 4 }
  483.   /CIEBasedA { pop 1 }
  484.   /CIEBasedABC { pop 3 }
  485.   /ICCBased { 1 oget /N oget }
  486.   /Separation { pop 1 }
  487.   /DeviceN { 1 oget length }
  488. .dicttomark readonly def
  489.  
  490. /csrdict mark
  491.   /DeviceGray { }
  492.   /DeviceRGB { }
  493.   /DeviceCMYK { }
  494.   /CalGray {
  495.     1 oget 6 dict begin
  496.     dup /Gamma knownoget {
  497.       /exp load 2 packedarray cvx /DecodeA exch def
  498.     } if
  499.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  500.     dup /WhitePoint knownoget {
  501.       dup /WhitePoint exch def
  502.       dup /MatrixA exch def
  503.       /RangeLMN [ 3 2 roll { 0 exch } forall ] def
  504.     } if
  505.     /PDFColorSpace exch def [ /CIEBasedA currentdict end ]
  506.   }
  507.   /CalRGB {
  508.     1 oget 6 dict begin
  509.     dup /Gamma knownoget {
  510.       [ exch { /exp load 2 packedarray cvx } forall
  511.       ] /DecodeABC exch def
  512.     } if
  513.     dup /Matrix knownoget { /MatrixABC exch def } if
  514.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  515.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  516.     /PDFColorSpace exch def [ /CIEBasedABC currentdict end ]
  517.   }
  518.   /CalCMYK {
  519.     pop /DeviceCMYK        % not defined by Adobe
  520.   }
  521.   /Lab {
  522.     1 oget 6 dict begin
  523.     dup /Range knownoget not { [-100 100 -100 100] } if
  524.     [0 100 null null null null] dup 2 4 -1 roll putinterval
  525.     /RangeABC exch def
  526.     /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] def
  527.     /MatrixABC [1 1 1 1 0 0 0 0 -1] def
  528.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  529.     dup /WhitePoint knownoget { /WhitePoint exch def } {
  530.       (   **** Warning: Lab colorspace is missing WhitePoint.\n)
  531.       pdfformaterror
  532.       /WhitePoint [0.9505 1 1.089] def
  533.     } ifelse
  534.     % scaling function g() for DecodeLMN construction
  535.     { dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse }
  536.     /DecodeLMN [
  537.       % Store white point implicitly inside procedures.
  538.       [ 3 index aload pop WhitePoint 0 get /mul .systemvar ] cvx bind
  539.       [ 4 index aload pop WhitePoint 1 get /mul .systemvar ] cvx bind
  540.       [ 5 index aload pop WhitePoint 2 get /mul .systemvar ] cvx bind
  541.     ] def pop
  542.     /PDFColorSpace exch def [ /CIEBasedABC currentdict end ]
  543.   }
  544.   /ICCBased {
  545.     PDFfile fileposition exch
  546.     dup dup 1 oget
  547.     mark exch { oforce } forall .dicttomark
  548.     dup dup true resolvestream
  549.     /ReusableStreamDecode filter /DataSource exch put
  550.     1 exch put
  551.     exch PDFfile exch setfileposition
  552.     % Resolve alternate color space
  553.     dup 1 get            % Get colorspace dictionary
  554.     dup /Alternate .knownget    % Check for alternate color space
  555.     { oforce resolvecolorspace /Alternate exch put }    % resolve and replace
  556.     { pop }            % remove colorspace dictionary
  557.     ifelse
  558.   } bind
  559.   /Separation {
  560.     aload pop exch oforce resolvecolorspace
  561.                 % Contrary to PDF manuals up to v.1.5, Acrobat Distiller 3.01
  562.                 % can use /Identity name here instead of a function.
  563.     exch oforce resolveidfnproc
  564.     4 array astore
  565.   }
  566.   /DeviceN {
  567.     0 4 getinterval                    % ignore attributes
  568.     aload pop 3 -1 roll oforce           % resolve names array
  569.     [ exch { oforce } forall ]           % resolve each of the names
  570.     3 -1 roll oforce resolvecolorspace
  571.     3 -1 roll oforce resolvefnproc
  572.     4 array astore
  573.   }
  574.   /Indexed {
  575.     aload pop 3 -1 roll oforce resolvecolorspace
  576.         % Stack: /Indexed hival lookup basespace
  577.         % If the underlying space is a Lab space, we must scale
  578.         % the output of the lookup table as part of DecodeABC.
  579.     dup dup type /arraytype eq { 0 get } if /CIEBasedABC eq {
  580.       dup 1 get /DecodeLMN known {
  581.     1 get dup length dict copy
  582.     begin /DecodeABC [ 0 2 4 {
  583.       RangeABC 1 index 1 add get RangeABC 2 index get sub /mul load
  584.       RangeABC 3 index get /add load
  585.       DecodeABC 6 -1 roll 2 idiv get [ 6 1 roll aload pop ] cvx
  586.     } for ] def
  587.     /RangeABC //01_3 def
  588.     currentdict end /CIEBasedABC exch 2 array astore
  589.       } if
  590.     } if
  591.     3 1 roll
  592.     oforce dup type /stringtype ne {
  593.         % The color lookup table is a stream.
  594.         % Get its contents.  Don't lose our place in PDFfile.
  595.         % Stack: /Indexed basespace hival lookup
  596.     PDFfile fileposition 5 1 roll true resolvestream
  597.         % Stack: filepos /Indexed basespace hival lookupstream
  598.     1 index 1 add
  599.         % Stack: filepos /Indexed basespace hival lookupstream len
  600.     3 index
  601.       dup dup type /arraytype eq { 0 get } if
  602.       //csncompdict exch get exec mul
  603.     string readstring pop
  604.         % Stack: filepos /Indexed basespace hival table
  605.     5 -1 roll PDFfile exch setfileposition
  606.     }
  607.     if 4 array astore
  608.         % Replace the PDFColorSpace with the Indexed space if needed.
  609.     dup 1 get
  610.     dup type /arraytype eq {
  611.       dup length 2 ge {
  612.     dup 1 get type /dicttype eq {
  613.       dup 1 get /PDFColorSpace known {
  614.         dup 1 get /PDFColorSpace 3 index put
  615.       } if
  616.     } if
  617.       } if
  618.     } if pop
  619.   }
  620.   /Pattern {
  621.     dup type /nametype ne {
  622.       dup length 1 gt {
  623.     1 oget resolvecolorspace
  624.     /Pattern exch 2 array astore
  625.       } if
  626.     } if
  627.   }
  628. .dicttomark readonly def
  629.  
  630. /cssubst {        % <csname> cssubst <cspace'> true
  631.             % <csname> cssubst false
  632.   dup resolvecolorspace
  633.   dup 1 index ne { exch pop true } { pop pop false } ifelse
  634. } bdef
  635.  
  636. /csnames mark
  637.   /DeviceGray dup  /DeviceRGB dup  /DeviceCMYK dup  /Pattern dup
  638. .dicttomark readonly def
  639. /csresolve {        % <csresourcename> csresolve <cspace>
  640.   dup type /nametype ne {
  641.     (\n   **** Warning: CS/cs (setcolorspace) operand not a name: ) pdfformaterror
  642.     dup stderrfile dup 3 -1 roll write==only flushfile
  643.     ( ****\n) pdfformaterror
  644.     dup type /arraytype eq {    % Adobe InDesign + PDF Library has array
  645.       resolvecolorspace
  646.     } if
  647.   } {
  648.   dup Page /ColorSpace rget {
  649.     exch pop resolvecolorspace
  650.   } {
  651.     //csnames 1 index known not { /undefined cvx signalerror } if
  652.     } ifelse
  653.   } ifelse
  654. } bdef
  655. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  656.   dup dup type /arraytype eq { 0 get } if
  657.   //csrdict exch .knownget {
  658.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  659.   } {
  660.     csresolve
  661.   } ifelse
  662. } bdef
  663.  
  664. /scresolve {    % <c0> ... scresolve <multi>
  665.         % We can't really make sc[n] and SC[N] work, because
  666.         % the color space information isn't available at
  667.         % conversion time; so we hack it by assuming that
  668.         % all the operands on the stack are used, and that
  669.         % if the top operand is a name, it's a Pattern resource.
  670.   dup type /nametype eq
  671.     { Page /Pattern rget { resolvepattern } { null } ifelse }
  672.   if
  673.   dup type /dicttype eq {
  674.         % Check the PaintType, if any (shading patterns don't
  675.         % have one).
  676.     dup /PaintType knownoget { 2 eq } { false } ifelse
  677.   } {
  678.     .pdfcount 1 gt
  679.   } ifelse
  680. } bdef
  681.  
  682. /.pdfpaintproc {         % <patdict> <resdict> .pdfpaintproc -
  683.   PDFDEBUG { (%Begin PaintProc) = flush } if
  684.     % For uncolored patterns, we have to unbind the current
  685.     % color and color space before running the PaintProc.
  686.     % There's no harm in doing this for colored patterns,
  687.     % so for simplicity, we always do it.
  688.   PDFfile fileposition 3 1 roll
  689.   q
  690.   null sc1 null SC1
  691.  
  692.   % save old value of pdfemptycount on opstack, set to new value
  693.   pdfemptycount /pdfemptycount count 3 sub def 3 1 roll
  694.   exch false resolvestream pdfopdict .pdfruncontext
  695.   % restore pdfemptycount
  696.   /pdfemptycount exch def
  697.  
  698.   Q
  699.   PDFDEBUG { (%End PaintProc) = flush } if
  700.   PDFfile exch setfileposition
  701. } bdef
  702.  
  703. /resolvepattern {    % <patternstreamdict> resolvepattern <patterndict>
  704.         % Don't do the resolvestream now: just capture the data
  705.         % from the file if necessary.
  706.   dup length dict copy
  707.   dup /FilePosition .knownget {
  708.     1 index /File get dup fileposition 3 1 roll
  709.         % Stack: dict savepos pos file
  710.     dup 3 -1 roll setfileposition
  711.     dup 3 index /Length oget
  712.  
  713.     dup 65535 le {
  714.       string readstring pop
  715.     } {
  716.       () /SubFileDecode filter /ReusableStreamDecode filter
  717.     } ifelse
  718.         % Stack: dict savepos file string
  719.     3 1 roll exch setfileposition
  720.     1 index /File 3 -1 roll put
  721.     dup /FilePosition undef
  722.   } if
  723.   dup /Shading knownoget {
  724.     resolveshading 1 index /Shading 3 -1 roll put
  725.   } if
  726.   dup /PaintProc [
  727.         % Bind the resource dictionary into the PaintProc.
  728.     2 index /Resources knownoget { oforce } { 0 dict } ifelse
  729.     /.pdfpaintproc cvx
  730.   ] cvx put
  731.   PDFDEBUG {
  732.     (%Pattern: ) print dup === flush
  733.   } if
  734. } bdef
  735.  
  736. drawopdict begin
  737.   /g { /DeviceGray cssubst { cs sc1 } { g } ifelse } bdef
  738.   /rg { /DeviceRGB cssubst { cs sc* } { rg } ifelse } bdef
  739.   /k { k } bdef
  740.   /cs { csresolve cs } bdef
  741.   /sc { scresolve { sc* } { sc1 } ifelse } bdef
  742.   /scn /sc load def
  743.   /G { /DeviceGray cssubst { CS SC1 } { G } ifelse } bdef
  744.   /RG { /DeviceRGB cssubst { CS SC* } { RG } ifelse } bdef
  745.   /K { K } bdef
  746.   /CS { csresolve CS } bdef
  747.   /ri { ri } bdef
  748.   /SC { scresolve { SC* } { SC1 } ifelse } bdef
  749.   /SCN /SC load def
  750. end
  751.  
  752. % ---------------- Paths ---------------- %
  753.  
  754. drawopdict begin
  755.             % Path construction
  756.   /m /moveto load def
  757.   /l /lineto load def
  758.   /c /curveto load def
  759.   /v { currentpoint 6 2 roll curveto } def
  760.   /y { 2 copy curveto } def
  761.   /re {
  762.    4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  763.    closepath
  764.   } def
  765.   /h /closepath load def
  766.             % Path painting and clipping
  767.   /n { n } def
  768.   /S { S } def
  769.   /s { s } def
  770.   /f { f } def
  771.   /f* { f* } def
  772.   /B { B } def
  773.   /b { b } def
  774.   /B* { B* } def
  775.   /b* { b* } def
  776.   /W { W } def
  777.   /W* { W* } def
  778.   /sh { setfillstate resolvesh shfill } def
  779. end
  780.  
  781. % ---------------- XObjects ---------------- %
  782.  
  783. /xobjectprocs mark        % <dict> -proc- -
  784.   /Image { DoImage }
  785.   /Form { DoForm }
  786.   /PS { DoPS }
  787. .dicttomark readonly def
  788.  
  789. % Note that the keys in defaultdecodedict are resolved (PostScript, not PDF)
  790. % color space names.
  791. /defaultdecodedict mark
  792.   /DeviceGray { pop //01_1 } bind
  793.   /DeviceRGB { pop //01_3 } bind
  794.   /DeviceCMYK { pop //01_4 } bind
  795.   /CIEBasedA { 1 get /RangeA knownoget not { //01_1 } if } bind
  796.   /CIEBasedABC { 1 get /RangeABC knownoget not { //01_3 } if } bind
  797.   /ICCBased {
  798.      1 oget dup /Range knownoget {
  799.        exch pop
  800.      }{
  801.        /N get [ exch {0 1} repeat ] readonly
  802.      } ifelse
  803.   } bind
  804.   /Separation { pop //01_1 } bind
  805.   /DeviceN {
  806.     1 oget length [ exch {0 1} repeat ] readonly
  807.   } bind
  808.   /Indexed {
  809.     pop [ 0 1 BitsPerComponent bitshift 1 sub ]
  810.   } bind
  811. .dicttomark readonly def
  812.  
  813. /checkaltimage {    % <resdict> checkaltimage <resdict[']>
  814.   Printed {
  815.     dup /Alternates knownoget {
  816.       {
  817.     dup /DefaultForPrinting knownoget {
  818.       {
  819.         /Image oget exch pop exit
  820.       } {
  821.         pop
  822.       } ifelse
  823.     } {
  824.       pop
  825.     } ifelse
  826.       } forall
  827.     } if
  828.   } if
  829. } bdef
  830.  
  831. /makeimagedict {    % <resdict> <newdict> makeimagedict <imagemask>
  832.             % On return, newdict' is currentdict
  833.   begin
  834.   /Width 2 copy oget def
  835.   /Height 2 copy oget def
  836.         % Handle missing BitsPerComponent later.
  837.   /BitsPerComponent 2 copy knownoget { def } { pop } ifelse
  838.   /Interpolate 2 copy knownoget { def } { pop } ifelse
  839.   makeimagekeys
  840. } bdef
  841. /makeimagekeys {    % <resdict> makeimagekeys <imagemask>
  842.         % newdict is currentdict
  843.         % Assumes Width, Height, BPC, Interpolate already copied.
  844.   /ImageType 1 def
  845.   /ImageMatrix Width 0 0
  846.         % Handle 0-height images specially.
  847.     Height dup 0 eq { pop 1 } if neg 0 1 index neg
  848.     6 array astore def
  849.   dup /ImageMask knownoget dup { and } if {
  850.         % Image mask
  851.         % Decode is required for the PostScript image operators.
  852.                 % AI8 writes bogus decode array [0 1 0 0 0 0 0 0]
  853.     /Decode 2 copy knownoget { 0 2 getinterval } { //01_1 } ifelse def
  854.         % BitsPerComponent is optional for masks.
  855.     /BitsPerComponent 2 copy known { pop } { 1 def } ifelse
  856.     true
  857.   } {
  858.         % Opaque image
  859.     dup /ColorSpace oget resolvecolorspace /ColorSpace exch def
  860.         % Decode is required for the PostScript image operators.
  861.     /Decode 2 copy knownoget not {
  862.       ColorSpace //defaultdecodedict
  863.       ColorSpace dup type /arraytype eq { 0 get } if get exec
  864.     } if def
  865.     false
  866.   } ifelse
  867.         % Even though we're going to read data,
  868.         % pass false to resolvestream so that
  869.         % it doesn't try to use Length (which may not be present).
  870.   exch false resolvestream /DataSource exch def
  871. } bdef
  872.  
  873. /DoImage {
  874.   checkaltimage dup length 6 add dict
  875.   1 index /SMask knownoget { 1 index exch /SMask exch put } if
  876.   1 index /Mask knownoget { 1 index exch /Mask exch put } if
  877.   makeimagedict doimagesmask
  878. } bdef
  879. /makemaskimage {    % <datasource> <imagemask> <Mask> makemaskimage
  880.             %   <datasource> <imagemask>, updates currentdict =
  881.             %   imagedict
  882.   dup type /arraytype eq {
  883.     /ImageType 4 def
  884.                 % Check that every element of the Mask is an integer.
  885.     //false 1 index {
  886.       type /integertype ne or
  887.     } forall {
  888.       (\n   **** Warning: Some elements of Mask array are not integers.\n)
  889.       pdfformaterror
  890.       [ exch { 0.5 add cvi } forall ]  % following AR4, 5, 6 implementation
  891.     } if
  892.     /MaskColor exch def
  893.   } {
  894.         % Mask is a stream, another Image XObject.
  895.         % Stack: datasource imagemask(false) maskstreamdict
  896.     PDFfile fileposition exch
  897.     dup length dict makeimagedict pop
  898.         % In order to prevent the two data sources from being
  899.         % aliased, we need to make at least one a reusable stream.
  900.         % We pick the mask, since it's smaller (in case we need to
  901.         % read all its data now).
  902.         % Stack: datasource imagemask(false) savedpos
  903.         % maskdict is currentdict
  904.     /DataSource DataSource mark
  905.       /Intent 1
  906.       /AsyncRead true
  907.     .dicttomark .reusablestreamdecode def
  908.     PDFfile exch setfileposition
  909.     currentdict end currentdict end
  910.     5 dict begin
  911.     /ImageType 3 def
  912.     /InterleaveType 3 def
  913.     /DataDict exch def
  914.     /MaskDict exch def
  915.     /ColorSpace DataDict /ColorSpace get def
  916.   } ifelse
  917. } bdef
  918. /doimagesmask { % <imagemask> doimagesmask -
  919.   PDFusingtransparency { currentdict /SMask knownoget } { false } ifelse {
  920.     << /Subtype /Luminosity >> 0 0 0 0 .begintransparencymask
  921.     PDFfile fileposition exch
  922.     gsave //nodict begin
  923.     null /SoftMask gput
  924.     1 .setopacityalpha 1 .setshapealpha
  925.     0 .inittransparencymask 1 .inittransparencymask
  926.     /Compatible .setblendmode
  927.     DoImage
  928.     end grestore
  929.     PDFfile exch setfileposition
  930.     0 .endtransparencymask
  931.     << /Subtype /Group /Isolated true >> 0 0 0 0 .begintransparencygroup
  932.     doimage
  933.     .endtransparencygroup
  934.   } {
  935.     doimage
  936.   } ifelse
  937. } bdef
  938. /doimage {    % <imagemask> doimage -
  939.         % imagedict is currentdict, gets popped from dstack
  940.   DataSource exch
  941.   PDFusingtransparency {
  942.     currentdict /SMask knownoget
  943.   } {
  944.     false
  945.   } ifelse {
  946.     makesoftmaskimage
  947.   } {
  948.     currentdict /Mask knownoget {
  949.       makemaskimage
  950.     } if
  951.   } ifelse
  952.         % Stack: datasource imagemask
  953.    % image and imagemask can be redefined in gs_init.ps to tweak interpolation
  954.    % after device-specific files are run. Don't bind them here.
  955.    { currentdict end setfillstate /imagemask }
  956.    { ColorSpace setgcolorspace currentdict end setfillblend /image }
  957.   ifelse
  958.   .systemvar stopped {
  959.     pop
  960.     $error /errorname get dup /ioerror eq {
  961.       pop (\n   **** Warning: File has insufficient data for an image.\n)
  962.       pdfformaterror
  963.     } {
  964.       (\n   **** Warning: File encountered ')
  965.       exch 40 string cvs concatstrings
  966.       (' error while processing an image.\n) concatstrings
  967.       pdfformaterror
  968.     } ifelse
  969.   } if
  970.         % Close the input stream, unless it is PDFfile or
  971.         % PDFsource.
  972.   dup dup PDFfile eq exch PDFsource eq or { pop } { closefile } ifelse
  973. } bdef
  974.  
  975. /.paintform {    % <formdict> <resdict> <stream> .paintform -
  976.   3 -1 roll dup /Group known PDFusingtransparency and {
  977.     .paintgroupform
  978.   } {
  979.     pop pdfopdict .pdfruncontext
  980.   } ifelse
  981. } bdef
  982.  
  983. /DoForm {
  984.     % Adobe 2nd edition of the PDF 1.3 spec makes /FormType
  985.     % and /Matrix keys optional. Cope with the missing keys.
  986.   begin <<
  987.   currentdict /FormType known not { /FormType 1 } if
  988.   currentdict /Matrix   known not { /Matrix { 1 0 0 1 0 0 } cvlit } if
  989.   currentdict end { oforce } forall
  990.   >>
  991.   dup [ 2 index /Resources knownoget { oforce } { 0 dict } ifelse
  992.   3 index false /resolvestream cvx
  993.   /.paintform cvx
  994.   ] cvx /PaintProc exch put
  995.     % Adjust pdfemptycount since we have an extra dictionary on the stack
  996.   pdfemptycount exch
  997.   /pdfemptycount where pop count 2 sub /pdfemptycount exch put
  998.   q execform Q                 % gsave / grestore around the Form
  999.     % Restore pdfemptycount
  1000.   /pdfemptycount where pop exch /pdfemptycount exch put
  1001. } bdef
  1002.  
  1003. /_dops_save 1 array def
  1004.  
  1005. /DoPS {
  1006.   DOPS
  1007.    {
  1008.      //_dops_save 0 save put
  1009.      true resolvestream cvx exec
  1010.      //_dops_save 0 get restore
  1011.    }
  1012.    { pop }
  1013.   ifelse
  1014. } bdef
  1015.  
  1016. currentdict /_dops_save undef
  1017.  
  1018. drawopdict begin
  1019.   /Do {
  1020.     setfillblend
  1021.     PDFfile fileposition exch
  1022.     dup Page /XObject rget { 
  1023.       exch pop dup /Subtype get xobjectprocs exch get
  1024.         % Don't leave extra objects on the stack while executing
  1025.         % the definition of the form.
  1026.       3 -1 roll 2 .execn
  1027.     } {
  1028.         % This should cause an error, but Acrobat Reader can
  1029.         % continue, so we do too.
  1030.       (   **** Undefined XObject resource: ) 
  1031.       exch =string cvs concatstrings (\n) concatstrings
  1032.       pdfformaterror
  1033.     } ifelse
  1034.     PDFfile exch setfileposition
  1035.   } bdef
  1036. end
  1037.  
  1038. % ---------------- In-line images ---------------- %
  1039.  
  1040. % Undo the abbreviations in an in-line image dictionary.
  1041. % Note that we must look inside array values.
  1042. % /I is context-dependent.
  1043. /unabbrevkeydict mark
  1044.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  1045.   /F /Filter  /H /Height  /I /Interpolate  /IM /ImageMask  /W /Width
  1046. .dicttomark readonly def
  1047. /unabbrevvaluedict mark
  1048.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  1049.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  1050.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /Fl /FlateDecode
  1051.   /G /DeviceGray  /RGB /DeviceRGB
  1052.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  1053. .dicttomark readonly def
  1054. /unabbrevtypedict mark
  1055.   /nametype {
  1056.     //unabbrevvaluedict 1 index .knownget { exch pop } if
  1057.   }
  1058.   /arraytype {
  1059.     dup 0 1 2 index length 1 sub {
  1060.       2 copy get unabbrevvalue put dup
  1061.     } for pop
  1062.   }
  1063. .dicttomark readonly def
  1064. /unabbrevvalue {    % <obj> unabbrevvalue <obj'>
  1065.   oforce //unabbrevtypedict 1 index type .knownget { exec } if
  1066. } bdef
  1067.  
  1068. drawopdict begin
  1069.   /BI { mark } bdef
  1070.   /ID {
  1071.     counttomark 2 idiv dup 7 add dict begin {
  1072.       exch //unabbrevkeydict 1 index .knownget { exch pop } if
  1073.       exch unabbrevvalue def
  1074.     } repeat pop
  1075.     /IDFlag true def  % flag for stream processing.
  1076.     /File PDFsource def
  1077.     currentdict makeimagekeys doimage    
  1078.     % The Adobe documentation says that the data following ID
  1079.     % consists of "lines", and some PDF files (specifically, some files
  1080.     % produced by PCL2PDF from Visual Software) contain garbage bytes
  1081.     % between the last byte of valid data and an EOL.
  1082.         % Some files (PDFOUT v3.8d by GenText) have EI immediately following
  1083.         % the stream. Some have no EOL and garbage bytes.
  1084.         % Therefore, we skip all bytes before EI or EOL 
  1085.     0
  1086.       { PDFsource read not { //true exit } if
  1087.         dup 10 eq 1 index 13 eq or
  1088.           { pop PDFsource token pop /EI ne exit
  1089.           }
  1090.         if
  1091.         exch 69 eq 1 index 73 eq and { //false exit } if  % 'EI'
  1092.       }
  1093.     loop
  1094.     exch pop
  1095.       { /ID cvx /syntaxerror signalerror
  1096.       }
  1097.     if
  1098.   } bdef
  1099. end
  1100.  
  1101. % ================================ Text ================================ %
  1102.  
  1103. drawopdict begin
  1104.             % Text control
  1105.   /BT { BT } def
  1106.   /ET { ET } def
  1107.   /Tc { Tc } def
  1108.   /TL { TL } def
  1109.   /Tr { Tr } def
  1110.   /Ts { Ts } def
  1111.   /Tw { Tw } def
  1112.   /Tz { Tz } def
  1113.             % Text positioning
  1114.   /Td { Td } def
  1115.   /TD { TD } def
  1116.   /Tm { Tm } def
  1117.   /T* { T* } def
  1118.             % Text painting
  1119.   /Tj { Tj } def
  1120.   /' { ' } def
  1121.   /" { " } def
  1122.   /TJ { TJ } def
  1123. end
  1124.  
  1125. % ============================== Annotations ============================== %
  1126.  
  1127.  
  1128.  
  1129. % Get and normalize an annotation's rectangle.
  1130. /annotrect {        % <annot> annotrect <x> <y> <w> <h>
  1131.   /Rect get aload pop
  1132.   exch 3 index sub dup 0 lt { dup 5 -1 roll add 4 1 roll neg } if
  1133.   exch 2 index sub dup 0 lt { dup 4 -1 roll add 3 1 roll neg } if
  1134. } bdef
  1135.  
  1136. % Set an annotation color.
  1137. /annotsetcolor {    % <annot> annotsetcolor -
  1138.   /C knownoget { aload pop setrgbcolor } { 0 setgray } ifelse
  1139. } bdef
  1140.  
  1141. % Draw the border.  Currently, we ignore requests for beveling, and we
  1142. % don't round the corners of rectangles.
  1143. /strokeborder {        % <annot> <width> <dash> strokeborder -
  1144.   1 index 0 ne {    % do not draw if border width is 0
  1145.     gsave
  1146.     2 index annotsetcolor
  1147.     0 setdash dup setlinewidth
  1148.     exch annotrect
  1149.     2 { 4 index sub 4 1 roll } repeat
  1150.     2 { 4 index 0.5 mul add 4 1 roll } repeat
  1151.     rectstroke pop
  1152.     grestore
  1153.   } {
  1154.     pop pop pop
  1155.   } ifelse
  1156. } bdef
  1157.  
  1158. % Draw an annotation border.
  1159. /drawborder {        % <annot> drawborder -
  1160.   gsave
  1161.   dup /BS knownoget {
  1162.     dup /W knownoget not { 1 } if
  1163.     [] 2 index /S knownoget {
  1164.       /D eq { 2 index /D knownoget not { [3] } if exch pop } if
  1165.     } if 3 -1 roll pop strokeborder
  1166.   } {
  1167.     dup /Border knownoget {
  1168.       dup 2 get
  1169.       exch dup length 3 gt { 3 get } { pop [] } ifelse
  1170.       strokeborder
  1171.     } {
  1172.       1 [] strokeborder
  1173.     } ifelse
  1174.   } ifelse
  1175.   grestore
  1176. } bdef
  1177.  
  1178. %
  1179. %   The PDF annotation F (flags) integer is bit encoded.
  1180. %   Bit 1 (LSB) Invisible:  1 --> Do not display if no handler.
  1181. %         Note:  We have no handlers but we ignore this bit.
  1182. %   Bit 2 Hidden:  1 --> Do not display.  We will not display if this bit is set.
  1183. %   Bit 3 Print:  1 --> Display if printing.  We will display if this bit set
  1184. %         (and not hidden) and Printed is true
  1185. %   Bit 4 NoZoom:  1 --> Do not zoom annotation even if image is zoomed.
  1186. %   Bit 5 NoRotate:  1 --> Do not rotate annotation even if image is rotated.
  1187. %   Bit 6 NoView:  0 --> Display if this is a 'viewer'.  We will display
  1188. %         if this bit is not set (and not hidden) and Printed is false
  1189. %   Bit 7 Read Only - 1 --> No interaction.  We ignore this bit
  1190. %
  1191. /annotvisible {            % <annot> annotvisible <visible>
  1192.   /F knownoget not { 0 } if         % Get flag value
  1193.   dup 2 and 0 eq              % Check hidden flag
  1194.   exch dup 4 and 0 ne Printed and    % Check print flag
  1195.   exch 32 and 0 eq Printed not and    % Check noview flag
  1196.   or                    % Combine print and view
  1197.   and                     % Combine with 'hidden' flag test
  1198. } bdef
  1199.  
  1200. /drawwidget {            % <scalefactor> <annot> drawwidget -
  1201.   dup /AP knownoget {
  1202.     false
  1203.     [/N /R /D] {
  1204.     % stack: scale annot appearance false key
  1205.       dup 3 index exch known {
  1206.     exch pop true exit 
  1207.       } if
  1208.       pop
  1209.     } forall
  1210.     % stack: scale annot appearance key true
  1211.     % stack: scale annot appearance false
  1212.     dup {
  1213.       pop
  1214.       oget
  1215.         % Acrobat Distiller produces files in which this Form
  1216.         % XObject lacks Type and Subtype keys.  This is illegal,
  1217.         % but Acrobat Reader accepts it.  The only way we can
  1218.         % tell whether this is a Form or a set of sub-appearances
  1219.         % is by testing for the stream Length key.
  1220.       dup /Length known {
  1221.               % If this is a form then simply use it
  1222.         true
  1223.       } {
  1224.         1 index /AS knownoget not {
  1225.               % If we do not have AS then use any appearance
  1226.         { exch pop oforce exit } forall true
  1227.         } { 
  1228.         % Stack: annot Ndict AS
  1229.         % Get the specified appearance.  If no appearance, then
  1230.         % display nothing - set stack = false.
  1231.       knownoget
  1232.         } ifelse
  1233.       } ifelse
  1234.     } {
  1235.       exch pop    % discard useless AP dictionary
  1236.     } ifelse
  1237.  
  1238.         % Stack: scale annot appearance true
  1239.         % Stack: scale annot false
  1240.     {
  1241.               % Draw appearance
  1242.                 % Initialize graphic following "7.4.4 Appearance Streams"
  1243.       q graphicsbeginpage textbeginpage
  1244.       1 index annotrect pop pop translate
  1245.       2 index dup scale        % Apply scale factor
  1246.       DoForm Q
  1247.     } if
  1248.   } if pop pop
  1249. } bdef
  1250.  
  1251. %  For stamp object we have to determine the size of the output rectangle
  1252. %  and the size of the BBox for the stamp image.  From these we calculate
  1253. %  a scale factor for drawing the stamp.
  1254. /calcstampscale {        % <annot> calcstampscale scale
  1255.   dup /Rect known {
  1256.   dup annotrect 4 -2 roll pop pop     % get width height size in user space
  1257.   3 -1 roll /AP knownoget {
  1258.     /N knownoget {
  1259.       dup /Matrix knownoget {
  1260.     % transform /Annot /Rect xwidth to Form space
  1261.     4 -2 roll 3 -1 roll dtransform 3 -1 roll
  1262.       } if
  1263.       /BBox knownoget {
  1264.         exch pop    % discard y height
  1265.         aload pop pop exch pop sub    % BBox width
  1266.     div        % scale x widths
  1267.     dup 0 lt { neg } if        % get magnitude
  1268.       } {
  1269.         pop pop 1        % default to unity scaling
  1270.       } ifelse            % if we have /BBox
  1271.     } {
  1272.       pop pop 1
  1273.     } ifelse            % if we have /N
  1274.   } {
  1275.     pop pop 1
  1276.   } ifelse            % if we have /AP
  1277.   } {
  1278.     (   **** Warning: /Annot dict is missing required /Rect entry.\n)
  1279.     pdfformaterror
  1280.     pop 1
  1281.   } ifelse
  1282. } bdef
  1283.  
  1284. /drawlink {            % <annot> drawlink -
  1285.   dup drawborder dup calcstampscale exch drawwidget
  1286. } bdef
  1287.  
  1288. % Draw an annotation.
  1289. /drawannottypes mark
  1290.   /Link { drawlink } bind
  1291. .dicttomark readonly def
  1292. /drawannot {        % <annot> drawannot -
  1293.   dup annotvisible {
  1294.     gsave
  1295.     dup dup /Subtype get //drawannottypes exch .knownget {
  1296.       exec
  1297.     } {
  1298.       dup calcstampscale exch drawwidget    % Use drawwidget for everything else
  1299.     } ifelse            % type known
  1300.     grestore
  1301.   } if pop            % annotvisible
  1302. } bdef
  1303. currentdict /drawannottypes undef
  1304.  
  1305. end            % pdfdict
  1306. end            % GS_PDF_ProcSet
  1307. .setglobal
  1308.