home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset pdflev3
- %%Version: 4.0 6
- %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
- %%LanguageLevel: 3
- %%Title: PDF operators, with code specific for Level 3
- /_defaulthalftone currenthalftone dd
- /_defaultblackgeneration currentblackgeneration dd
- /_defaultundercolorremoval currentundercolorremoval dd
- /_defaultcolortransfer [currentcolortransfer] dd
- /_processColors
- currentpagedevice /ProcessColorModel getifknown
- { << /DeviceGray [/Gray]
- /DeviceRGB [/Red /Green /Blue]
- /DeviceCMYK [/Cyan /Magenta /Yellow /Black]
- /DeviceCMY [/Cyan /Magenta /Yellow]
- /DeviceRGBK [/Red /Green /Blue /Black]
- >> exch getifknown {} {[]} ifelse }
- {[]}
- ifelse
- def
- /initialize {
- _defaulthalftone sethalftone
- /_defaultblackgeneration load setblackgeneration
- /_defaultundercolorremoval load setundercolorremoval
- _defaultcolortransfer aload pop setcolortransfer
- false setoverprint
- <</MaxFormItem 0>> setuserparams} bd
- /terminate { } bd
- /m/moveto ld
- /l/lineto ld
- /c/curveto ld
- /setSA/setstrokeadjust ld
- /sh
- { dup /DataSource known
- { dup begin
- DataSource type /filetype eq { DataSource resetfile } if
- end
- } if
- _op? setoverprint
- shfill
- } [/DataSource] bld
- /defineRes/defineresource ld
- /findRes/findresource ld
- currentglobal
- true systemdict /setglobal get exec
- [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource]
- { /Generic /Category findresource dup length dict copy /Category defineresource pop }
- forall
- systemdict /setglobal get exec
- /ri {
- /findcolorrendering isdefined?
- {
- mark exch
- findcolorrendering
- counttomark 2 eq
- { type /booleantype eq
- { dup type /nametype eq
- { dup /ColorRendering resourcestatus
- { pop pop
- dup /DefaultColorRendering ne
- {
- /ColorRendering findresource
- setcolorrendering
- } if
- } if
- } if
- } if
- } if
- cleartomark
- }
- { pop
- } ifelse
- } bd
- /_sfcs { _fcs setcolorspace } bind dd
- /_sscs { _scs setcolorspace } bind dd
- /_sfc {
- _fc aload pop
- _fp null eq
- { _op?
- { _opmode 1 eq
- { _fcs GetCSFamily /DeviceCMYK eq {DoNonZeroOverprint} if
- } if
- } if
- setcolor
- }
- { _fp setpattern }
- ifelse
- } bind dd
- /_ssc {
- _sc aload pop
- _sp null eq
- { _OP?
- { _opmode 1 eq
- { _scs GetCSFamily /DeviceCMYK eq {DoNonZeroOverprint} if
- } if
- } if
- setcolor
- }
- { _sp setpattern }
- ifelse
- } bind dd
- /CMYKDeviceNColorspaces [
- [/Separation /None /DeviceCMYK {0 0 0}] bind
- [/Separation (Black)
- /DeviceCMYK {0 0 0 4 -1 roll}] bind
- [/Separation (Yellow)
- /DeviceCMYK {0 0 3 -1 roll 0}] bind
- [/DeviceN [(Yellow) (Black)]
- /DeviceCMYK {0 0 4 2 roll}] bind
- [/Separation (Magenta)
- /DeviceCMYK {0 exch 0 0}] bind
- [/DeviceN [(Magenta) (Black)]
- /DeviceCMYK {0 3 1 roll 0 exch}] bind
- [/DeviceN [(Magenta) (Yellow)]
- /DeviceCMYK {0 3 1 roll 0}] bind
- [/DeviceN [(Magenta) (Yellow) (Black)]
- /DeviceCMYK {0 4 1 roll}] bind
- [/Separation (Cyan)
- /DeviceCMYK {0 0 0}] bind
- [/DeviceN [(Cyan) (Black)]
- /DeviceCMYK {0 0 3 -1 roll}] bind
- [/DeviceN [(Cyan) (Yellow)]
- /DeviceCMYK {0 exch 0}] bind
- [/DeviceN [(Cyan) (Yellow) (Black)]
- /DeviceCMYK {0 3 1 roll}] bind
- [/DeviceN [(Cyan) (Magenta)]
- /DeviceCMYK {0 0}] bind
- [/DeviceN [(Cyan) (Magenta) (Black)]
- /DeviceCMYK {0 exch}] bind
- [/DeviceN [(Cyan) (Magenta) (Yellow)]
- /DeviceCMYK {0}] bind
- [/DeviceCMYK] bind
- ] def
- /DoNonZeroOverprint {
- 6 dict begin
- /kk exch def
- /yy exch def
- /mm exch def
- /cc exch def
- /sum 0 def
- cc 0 ne {/sum sum 2#1000 or def cc} if
- mm 0 ne {/sum sum 2#0100 or def mm} if
- yy 0 ne {/sum sum 2#0010 or def yy} if
- kk 0 ne {/sum sum 2#0001 or def kk} if
- CMYKDeviceNColorspaces sum get setcolorspace
- sum 0 eq {0} if
- end
- } [/cc /mm /yy /kk /sum] bld
- /scn {
- dup type /dicttype eq
- { dup /_fp xdd
- dup /PatternType get 1 eq
- { /PaintType get 1 eq
- { /_fc _fillColors 0 get dd ilp }
- { /_fc _fillColors
- _fcs 1 get
- GetComps get dd
- sc
- }
- ifelse
- }
- { pop /_fc _fillColors 0 get dd ilp }
- ifelse
- }
- { sc }
- ifelse
- } bd
- /SCN {
- dup type /dicttype eq
- { dup /_sp xdd
- dup /PatternType get 1 eq
- { /PaintType get 1 eq
- { /_sc _strokeColors 0 get dd ilp }
- { /_sc _strokeColors _scs 1 get GetComps get dd
- SC
- }
- ifelse
- }
- { pop /_sc _strokeColors 0 get dd ilp }
- ifelse
- }
- { SC }
- ifelse
- } bd
- /gs {
- begin
- /SA here { setstrokeadjust } if
- /BG here { setblackgeneration } if
- /UCR here { setundercolorremoval } if
- /SM here { setsmoothness } if
- /FL here { i } if
- /RI here { ri } if
- /TR here
- {
- dup xcheck
- { settransfer }
- { aload pop setcolortransfer }
- ifelse
- } if
- /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
- /HT here { sethalftone } if
- currentdict gsDI
- end
- } bd
- /sfc {
- _op? setoverprint
- _lp /fill ne {
- _sfcs
- _sfc
- /_lp /fill dd
- } if
- } dd
- /ssc {
- _OP? setoverprint
- _lp /stroke ne {
- _sscs
- _ssc
- /_lp /stroke dd
- } if
- } dd
- /f {
- { { sfc fill }
- {clipsave sfc fill cliprestore clip newpath icl ilp}
- {clipsave sfc fill cliprestore eoclip newpath icl ilp}
- } _doClip get exec
- } bd
- /f* {
- { { sfc eofill }
- {clipsave sfc eofill cliprestore clip newpath icl ilp}
- {clipsave sfc eofill cliprestore eoclip newpath icl ilp}
- } _doClip get exec
- } bd
- /S {
- { { ssc stroke }
- {clipsave ssc stroke cliprestore clip newpath icl ilp}
- {clipsave ssc stroke cliprestore eoclip newpath icl ilp}
- } _doClip get exec
- } bd
- /rf {
- { { sfc rectfill }
- {clipsave sfc rectfill cliprestore clip newpath icl ilp}
- {clipsave sfc rectfill cliprestore eoclip newpath icl ilp}
- } _doClip get exec
- } bd
- /every? {
- true
- 3 2 roll
- { 2 index exec not {pop false exit} if } forall
- exch pop
- } bd
- /knownColorants? {
- 3 dict begin
- /colorants exch def
- {
- /DeviceN /ColorSpaceFamily findresource pop
- /cpd currentpagedevice def
- /dc 10 dict def
- cpd /SeparationColorNames getifknown
- { { dc exch 0 put } forall } if
- _processColors { dc exch 0 put } forall
- colorants {dc exch known} every?
- } stopped
- { false }
- if
- end
- } [/colorants /dc /cpd] bld
- /makePat {
- gsave
- dup /Matrix get concat
- matrix makepattern
- grestore
- /MadePattern defineRes pop
- } bd
- %%EndResource
-