home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-05 | 40.5 KB | 2,270 lines |
- %%BeginResource: procset AGM_Gradient_Sep 1.0 0
- %%Title: (AGM Gradient Procset)
- %%Version: 1.0 0
- %%CreationDate: (4/26/96) ()
- %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
- userdict /defaultpacking currentpacking put true setpacking
- userdict /AGM_Gradient_Sep 5 dict dup begin put
- /AGM_Gradient_Sep_private 100 dict def
- /initialize{
- AGM_Gradient_Sep begin
- AGM_Gradient_Sep_private begin
- _compositeJob{
- initializeSinglePassSeps
- }{
- initializeMultiPassSeps
- }ifelse
- initializeSeps
- AGM_Gradient_private begin
- /_fillSD newSpotDict def
- /_rampSD newSpotDict def
- /_nCustomColorSD nd
- end
- AGM_Gradient_Sep_private
- {
- dup xcheck 1 index type /arraytype eq and
- {
- bind
- }if
- pop pop
- }forall
- AGM_Gradient_Sep
- {
- dup xcheck 1 index type /arraytype eq and
- {
- bind
- }if
- pop pop
- }forall
- end
-
- currentdict readonly pop
- end
- }def
- /terminate{
- currentdict AGM_Gradient_Sep eq{
- end
- }if
- }def
- AGM_Gradient_Sep_private begin
- /initializeSeps{
- /currentoverprint { _of } def
- _noImage not _level2PS not and{
- /linealFill{
- currentoverprint{
- 0 0 1 1 rectfill
- }{
- mySave
- 8 setImageParms
- _color{
- _nCustomColorSD begin
- cyan magenta yellow black
-
- _spotColor{
- spot1/tintImage spot1/tintValue get 1 exch sub makeByte8 put
- spot2/tintImage spot2/tintValue get 1 exch sub makeByte8 put
- }if
- end
-
- 4{
- makeByte8 4 1 roll
- }repeat
- true 4 _nCustomColorSD ncolorimage
- }{
- _nCustomColorSD/black get 1 exch sub makeByte8
- _nCustomColorSD bwImage
- }ifelse
- myRestore
- }ifelse
- }def
- }if
- /_whiteBytes 1 makeByte8 pt
- /knockOut{
- _noImage _level2PS or currentoverprint or{
- gsave
- false setoverprint
- 1 setgray
- 0 0 1 1 rectfill
- grestore
- }{
- 8 setImageParms _whiteBytes /_image load 5 execImage
- }ifelse
- }def
- /newSpotDict{
- 11 dict dup begin
- /nSpots 2 def
- /spot1 7 dict def
- /spot2 7 dict def
- end
- }def
- /initSpotData
- {
- begin
- /name nd
- /tintImage nd
- /tintValue nd
- /spot_C nd
- /spot_M nd
- /spot_Y nd
- /spot_K nd
- end
- }def
- /initSpotDict{
- begin
- /cyanInk nd
- /magentaInk nd
- /yellowInk nd
- /blackInk nd
- /cyan nd
- /magenta nd
- /yellow nd
- /black nd
- spot1 initSpotData
- spot2 initSpotData
- end
- }def
- /copySpotDict{
- /_dst xp
- begin
- cyanInk magentaInk yellowInk blackInk
- cyan magenta yellow black
- spot1 spot2
- end
- _dst begin
- /spot1 spot1 maxlength dict def
- /spot2 spot2 maxlength dict def
- spot2 copy pop
- spot1 copy pop
- /black xd
- /yellow xd
- /magenta xd
- /cyan xd
- /blackInk xd
- /yellowInk xd
- /magentaInk xd
- /cyanInk xd
- end
- }def
- /setCustomColor
- {
- 1 index /Black eq{
- 6 1 roll 5 npop
- 1 exch sub
- setgray
- }{
- 6 1 roll _ccAry1 astore exch
- dup null eq{
- pop 0
- }if
- setcustomcolor
- }ifelse
- }def
- /setCStop{
- /_colorStyle exch pt
-
- _colorStyle 0 eq{
- 0 0 0
- 4 -1 roll
- 1 exch sub
- _spotColor{
- /_colorStyle 3 pt
- /Black
- 1 index
- 1 exch sub
- }if
- }if
- _colorStyle 2 eq{
- 3 npop
- }if
- _rampSD _fillSD copySpotDict
-
- _colorStyle 4 eq{
- pop
- 9 2 roll 3 npop 6 -2 roll
- } if
-
- _colorStyle 3 eq _colorStyle 4 eq or{
-
- _fillSD begin
- /_spot1 spot1 pt
- /_spot2 spot2 pt
- end
-
- exch dup _spot1/name get eq{
- _spot1 _spot2
- }{
- _spot2 _spot1
- }ifelse
- begin
- begin
- /name xd
- 1 exch sub /tintValue xd
- 4{
- tintValue mul 4 1 roll
- }repeat
- _spotColor not{
- /tintValue null def
- }if
- end
- /tintValue 0 def
- end
- }if
- _fillSD nsetcustomcolor
- }def
- /renderCMYK{
- spot1/name get null eq
- spot2/name get null eq and
- dup not{
- pop
- spot1 spotConverted
- }if
- dup not{
- pop
- spot2 spotConverted
- }if
- }def
- /currentInk{
- true
- _inRipSep{
- currentcolorspace 0 get
- dup /DeviceGray eq
- 1 index /DeviceCMYK eq or{
- pop
- currentcmykcolor add add add 0 eq{
- pop false
- }if
- }{
- /Separation eq{
- currentcolor 0 eq{
- pop false
- }if
- }if
- }ifelse
- }{
- currentgray 1 eq{
- pop false
- }if
- }ifelse
- }def
- /currentInkN{
-
- _nCustomColorSD begin
- /_spot1 spot1 pt
- /_spot2 spot2 pt
- renderCMYK
- end
- {
- currentInk
- }{
- gsave
- _spot1 begin
- name null ne{
- spot_C spot_M spot_Y spot_K name tintValue setCustomColor
- currentInk
- }{
- false
- }ifelse
- end
- _spot2 begin
- name null ne{
- spot_C spot_M spot_Y spot_K name tintValue setCustomColor
- currentInk
- }{
- false
- }ifelse
- end
- grestore
-
- or
- } ifelse
- }def
- /fill_ /fill load def
- /fillOvp{
- currentoverprint{
- _inRipSep{
- currentcolorspace 0 get
- dup /DeviceGray eq
- 1 index /DeviceCMYK eq or{
- pop
- currentcmykcolor add add add 0 eq{
- newpath
- }if
- }{
- /Separation eq{
- currentcolor 0 eq{
- newpath
- }if
- }if
- }ifelse
- }{
- currentgray 1 eq{
- newpath
- }if
- }ifelse
- }if
- fill_
- }def
- /fill{
- _nCustomColorSD begin
- /_spot1 spot1 pt
- /_spot2 spot2 pt
- renderCMYK
- end
-
- {
- fillOvp
- }{
- _spot1 begin
- gsave
- name null ne{
- spot_C spot_M spot_Y spot_K name tintValue setCustomColor
- }{
- 1 setgray
- }ifelse
- fillOvp
- grestore
- end
- _spot2 begin
- name null ne{
- gsave
- true setoverprint
- spot_C spot_M spot_Y spot_K name tintValue setCustomColor
- fillOvp
- grestore
- }if
- end
- newpath
- }ifelse
- }def
- /expandSpot{
- _spotColor{
- /_len xp
- _rampSD begin
- spot1 begin
- tintImage null ne{
- tintImage _len expandOne /tintImage xd
- }if
- end
- spot2 begin
- tintImage null ne{
- tintImage _len expandOne /tintImage xd
- }if
- end
- end
- }{
- pop
- }ifelse
- }def
- /rampImage{
- currentoverprint{
- rectImage
- }{
- _enabledSmoothShade{
- fillRamp
- }{
- _color{
- _rampSD begin
- /cyanInk _cyanData 0 ne def
- /magentaInk _magentaData 0 ne def
- /yellowInk _yellowData 0 ne def
- /blackInk _blackData 0 ne def
- end
-
- _nSamples setImageParms
- _nSamples expandSpot
- _cyanData _magentaData _yellowData _blackData _nSamples 4 expandColor
- true 4 _rampSD ncolorimage
- }{
- _rampSD begin
- /cyanInk false def
- /magentaInk false def
- /yellowInk false def
- /blackInk true def
- end
- _nSamples setImageParms
- _blackData _rampSD bwImage
- }ifelse
- }ifelse
- }ifelse
- }def
- /nsetcustomcolor where{
- pop
- }{
- /nsetcustomcolor
- {
- /_nCustomColorSD xp
- _nCustomColorSD begin
- 4 copy
- /black xd
- /yellow xd
- /magenta xd
- /cyan xd
- 4 copy
- 0 ne /blackInk xd
- 0 ne /yellowInk xd
- 0 ne /magentaInk xd
- 0 ne /cyanInk xd
- end
- setcmykcolor
- }def
- }ifelse
- /nsetcustomcolorend where{
- pop
- }{
- /nsetcustomcolorend
- {
- /_nCustomColorSD null pt
- }def
- }ifelse
- }def
- /initializeSinglePassSeps{
- /_decodeNorm [0 1] pt
- /_decodeInvert [1 0] pt
- /spotConverted
- {
- begin
- name null eq{
- false
- }{
- tintValue null eq tintImage null eq and{
- true
- }{
- false
- currentpagedevice/SeparationColorNames get{name eq or}forall
- not
- }ifelse
- }ifelse
- end
- }def
- /dictImage
- {
- 20 dict dup begin
- /Dict xd
- /Decode xd
- /DataSource xd
- /ImageMatrix xd
- /BitsPerComponent xd
- /Height xd
- /Width xd
- /ImageType 1 def
- Dict
- end
- /_image load 1 execImage
- }def
- /bwImage{
- begin
- gsave
- currentoverprint{
- blackInk{
- [/Separation /Black /DeviceGray{}] setcolorspace
- _decodeInvert dictImage
- }{
- 5 npop
- }ifelse
- }{
- /DeviceGray setcolorspace
- _decodeNorm dictImage
- }ifelse
- grestore
- end
- }def
- /ncolorimage where{
- pop
- }{
- /ncolorimage{
- begin
- renderCMYK{
- cyanInk
- magentaInk and
- yellowInk and
- blackInk and
- not
- currentoverprint
- and{
- pop pop
- gsave
- cyanInk{
- 8 copy
- [/Separation /Cyan /DeviceGray{}] setcolorspace
- 3 npop
- _decodeNorm dictImage
- }if
- magentaInk{
- 8 copy
- [/Separation /Magenta /DeviceGray{}] setcolorspace
- 4 -1 roll
- 3 npop
- _decodeNorm dictImage
- }if
- yellowInk{
- 8 copy
- [/Separation /Yellow /DeviceGray{}] setcolorspace
- 4 -2 roll
- 3 npop
- _decodeNorm dictImage
- }if
- blackInk{
- 4 -3 roll
- [/Separation /Black /DeviceGray{}] setcolorspace
- 3 npop
- _decodeNorm dictImage
- }{
- 8 npop
- }ifelse
- grestore
- }{
- /_colorimage load 10 execImage
- }ifelse
- }{
- 6 npop
- gsave
- spot1 begin
- name null ne tintImage null ne and{
- [/Separation name /DeviceGray{}] setcolorspace
- 4 copy
- tintImage
- name /Black eq{
- _decodeNorm
- }{
- _decodeInvert
- }ifelse
- dictImage
- }{
- 1 setgray fill
- }ifelse
- end
- spot2 begin
- true setoverprint
- name null ne tintImage null ne and{
- [/Separation name /DeviceGray{}] setcolorspace
- tintImage
- name /Black eq{
- _decodeNorm
- }{
- _decodeInvert
- }ifelse
- dictImage
- }{
- 4 npop
- 1 setgray fill
- }ifelse
- end
- grestore
- }ifelse
- end
- }def
- }ifelse
- /getRampColorSpace{
-
- /_renderCMYK _rampSD begin renderCMYK end pt
-
- _renderCMYK not{
- _rampSD begin
- [/DeviceN
- [
- spot1 begin
- name null ne tintImage null ne and{
- name
- }if
- end
- spot2 begin
- name null ne tintImage null ne and{
- name
- }if
- end
- ] /DeviceCMYK {}
- ] setcolorspace
- end
- /_nColorSpace currentcolorspace pt
- }if
-
- _nSamples 1 gt{
- /_ndx 0 pt
- [blendColor] cvx exec
- }if
- _renderCMYK{
- /_C0 [currentcolor] pt
- /_C0_Space currentcolorspace pt
- }{
- /_C0 [
- _nCustomColorSD begin
- spot1 begin
- name null ne{
- tintValue
- }if
- end
- spot2 begin
- name null ne{
- tintValue
- }if
- end
- end
- ] pt
- /_C0_Space _nColorSpace pt
- }ifelse
-
- _nSamples 1 gt{
- /_ndx _nSamples 1 sub pt
- [blendColor] cvx exec
- }if
- _renderCMYK{
- /_C1 [currentcolor] pt
- /_C1_Space currentcolorspace pt
- }{
- /_C1 [
- _nCustomColorSD begin
- spot1 begin
- name null ne{
- tintValue
- }if
- end
- spot2 begin
- name null ne{
- tintValue
- }if
- end
- end
- ] pt
- /_C1_Space _nColorSpace pt
- }ifelse
-
- /_rampColorSpace _C0_Space pt
- _spotColor{
- nsetcustomcolorend
- }if
- }def
- }def
- /initializeMultiPassSeps{
- /invertXfer{
- [
- {
- 1 exch sub
- }/exec load systemdict /currenttransfer get exec /exec load
- ] cvx systemdict /settransfer get exec
- }def
- /ccThrough{
- gsave
- 1 setCustomColor
- currentcmykcolor
- grestore
- add add add 0 ne
- }def
- /spotConverted
- {
- begin
- _isCMYKSep not{
- false
- }{
- name null eq{
- false
- }{
- tintValue null eq tintImage null eq and{
- true
- }{
- spot_C spot_M spot_Y spot_K name ccThrough
- }ifelse
- }ifelse
- }ifelse
- end
- }def
- /spotChannel
- {
- _isCMYKSep{
- pop false
- }{
- /_spotDict xp
- _spotDict/name get null eq{
- false
- }{
- _spotDict/spot_C get
- _spotDict/spot_M get
- _spotDict/spot_Y get
- _spotDict/spot_K get
- _spotDict/name get
- ccThrough
- }ifelse
- }ifelse
- }def
- /getChannelData
- {
- _isCMYKSep dup{
- pop renderCMYK
- }if
- {
- _blackPlate{
- 4 1 roll 3 npop blackInk
- }{
- _yellowPlate{
- 4 2 roll 3 npop yellowInk
- }{
- _magentaPlate{
- 4 3 roll 3 npop magentaInk
- }{
- 3 npop cyanInk
- }ifelse
- }ifelse
- }ifelse
- {
- true /nonZeroData
- }{
- true /zeroData
- }ifelse
- }{
- 4 npop
- spot1/name get null ne
- spot1 spotChannel and{
- spot1/tintImage get dup null ne{
- false /nonZeroData
- }{
- pop false /noData
- }ifelse
- }{
- spot2/name get null ne
- spot2 spotChannel and{
- spot2/tintImage get dup null ne{
- false /nonZeroData
- }{
- pop false /noData
- }ifelse
- }{
- false /noData
- }ifelse
- }ifelse
- }ifelse
- }def
- /renderChannelData
- {
- /_tmp xp
- _tmp /nonZeroData ne currentoverprint and{
- pop
- _tmp /zeroData eq{pop}if
- 4 npop
- }{
- _tmp /nonZeroData eq{
- {
- invertXfer
- }if
- systemdict/image
- get 5 execImage
- }{
- pop
- _tmp /zeroData eq{pop}if
- 4 npop
- knockOut
- }ifelse
- }ifelse
- }def
- /bwImage{
- begin
- gsave
- dup dup dup
- getChannelData
- exch pop false exch
- renderChannelData
- grestore
- end
- }def
- /ncolorimage{
- begin
- pop pop
- gsave
- spot2/name get null ne spot2 spotChannel and{
- true setoverprint
- }if
- getChannelData
- renderChannelData
- grestore
- end
- }def
- /getRampColorSpace{
-
- /_renderCMYK _rampSD begin renderCMYK end pt
-
- _nSamples 1 gt{
- /_ndx 0 pt
- [blendColor] cvx exec
- }if
-
- _renderCMYK{
- /_C0 [currentcolor] pt
- /_C0_Space currentcolorspace pt
- }{
- /_C0 [
- _nCustomColorSD begin
- 0
- spot1 begin
- name null ne
- tintValue null ne and
- spot1 spotChannel and{
- pop tintValue
- }if
- end
- spot2 begin
- name null ne
- tintValue null ne and
- spot2 spotChannel and{
- pop tintValue
- }if
- end
- 1 exch sub
- end
- ] pt
- /_C0_Space /DeviceGray pt
- }ifelse
-
- _nSamples 1 gt{
- /_ndx _nSamples 1 sub pt
- [blendColor] cvx exec
- }if
-
- _renderCMYK{
- /_C1 [currentcolor] pt
- /_C1_Space currentcolorspace pt
- }{
- /_C1 [
- _nCustomColorSD begin
- 0
- spot1 begin
- name null ne
- tintValue null ne and
- spot1 spotChannel and{
- pop tintValue
- }if
- end
- spot2 begin
- name null ne
- tintValue null ne and
- spot2 spotChannel and{
- pop tintValue
- }if
- end
- 1 exch sub
- end
- ] pt
- /_C1_Space /DeviceGray pt
- }ifelse
-
- /_rampColorSpace _C0_Space pt
- _spotColor{
- nsetcustomcolorend
- }if
- }def
- }def
- end
- end
- defaultpacking setpacking
- %%EndResource
- %%BeginResource: procset AGM_Gradient 1.0 0
- %%Title: (AGM Gradient Procset)
- %%Version: 1.0 0
- %%CreationDate: (4/26/96) ()
- %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
- userdict /defaultpacking currentpacking put true setpacking
- userdict /AGM_Gradient 20 dict dup begin put
- /AGM_Gradient_private 200 dict def
- /initialize
- {
- AGM_Gradient begin
- AGM_Gradient_private begin
- initializeVars
-
- /bd systemdict/mark get def
- /ed
- _level2PS
- {
- (>>)
- }{
- (counttomark 2 idiv dup dict begin {def} repeat pop currentdict end)
- } ifelse
- cvx def
-
- _level2PS{
- initializeLev2
- }{
- initializeLev1
- }ifelse
-
- queryDevice
-
- initializeRectFill
- initializeShading
- initializeOps
- _producingSeps{
- AGM_Gradient_Sep/initialize get exec
- }{
- initializeComposite
- }ifelse
- _illustrator{
- /f{}def
- /F{}def
- /s{}def
- /S{}def
- /b{}def
- /B{}def
- }if
- /image where{
- /image get /_image xd
- }if
- /colorimage where{
- /colorimage get /_colorimage xd
- }if
- AGM_Gradient_private
- {
- dup xcheck 1 index type /arraytype eq and
- {
- bind
- }if
- pop pop
- }forall
- AGM_Gradient
- {
- dup xcheck 1 index type /arraytype eq and
- {
- bind
- }if
- pop pop
- }forall
- end
-
- currentdict readonly pop
- end
- }def
- /initializeAI
- {
- pop pop
- AGM_Gradient/AGM_Gradient_private get /_illustrator true put
- AGM_Gradient/initialize get exec
- AGM_Gradient begin
- }def
- /unload{
- systemdict/languagelevel known{
- systemdict/languagelevel get 2 ge{
- userdict/AGM_Gradient_Sep 2 copy known{
- undef
- }{
- pop pop
- }ifelse
- userdict/AGM_Gradient 2 copy known{
- undef
- }{
- pop pop
- }ifelse
- }if
- }if
- }def
- /terminate{
- currentdict AGM_Gradient eq{
- end
- }if
- }def
-
- AGM_Gradient_private begin
- /initializeVars{
- /_d255 256 array def
- 0 1 255{
- _d255 exch dup 255 div put
- }bind for
- /_d255- 256 array def
- 0 1 255{
- _d255- exch 1 _d255 2 index get sub put
- }bind for
- /_sSave nd
- /_dUserSpace matrix defaultmatrix def
- /_bUMatrix matrix def
- /_imageMatrix matrix def
- /_saveMatrix matrix def
- /_xm matrix def
- /_ccAry1 5 array def
- /_bbox 4 array pt
- /_level2PS
- systemdict/languagelevel known dup{
- pop systemdict/languagelevel get 2 ge
- }if
- def
- /_level3PS
- _level2PS systemdict/shfill known and
- def
- currentdict /_illustrator known not{
- /_illustrator false def
- }if
-
- }def
- /initializeOps
- {
- AGM_Gradient begin
- currentdict/Bc known not{
- /Bc{
-
- _renderFlag 2 eq _enabledSmoothShade or{
- 6 npop
- }{
- pushBSpace
- _rampIndex 0 eq{
- pop pop
- setCStop
- }if
- linealFill
- popBSpace
- }ifelse
-
- }def
- }if
-
- currentdict/Bg known not{
- /Bg{
- 10 npop
- /_gradName xp
- /_renderFlag xp
- /_enabledSmoothShade false pt
-
- _renderFlag 2 ne{
-
- _illustrator{
- _of setoverprint
- }if
-
- /_enabledSmoothShade
- _level3PS{
- _usingSmoothShade
- _producingSeps not
- currentoverprint not or and
- _noImage not and
- }{
- false
- }ifelse
- pt
-
- _illustrator _eo and _renderFlag 3 eq or{
- eoclip
- }{
- clip
- }ifelse
-
- _gradNames _gradName 2 copy known{
- get
- mark exch aload pop
- /_gradType xp
- 1 sub dup /_rampIndex xp
- /_maxRampIndex xp
- mark exch aload pop
- 0 0
- }if
- pop pop
- getRampData
- }{
- mark mark
- }ifelse
- }def
- }if
-
- currentdict/Bm known not{
- /Bm{
- _renderFlag 2 ne{
- _gradType 0 eq{
- linealRamp
- }{
- radialGrad
- }ifelse
- }{
- 6 npop
- }ifelse
- }def
- }if
-
- currentdict/Bh known not{
- /Bh{
- 2 npop
- /_yHi xp
- /_xHi xp
- /_radHilite _xHi 0 ne _yHi 0 ne or pt
- }def
- }if
-
- currentdict/Bn known not{
- /Bn{
- AGM_Gradient_private begin
- dict /_gradNames xp
- end
- }def
- }if
-
- currentdict/Bd known not{
- /Bd{
- AGM_Gradient begin
- AGM_Gradient_private begin
- /_nColorsBd xp
- /_gradType xp
- /_gradName xp
- }def
- }if
-
- currentdict/BD known not{
- /BD{
- currentdict/_gradNames known not{
- /_gradNames 20 dict def
- }if
- ] _nColorsBd _gradType
- ] _gradName exch /_gradNames xput
- end
- end
- }def
- }if
-
- currentdict/Bb known not{
- /Bb{
-
- AGM_Gradient/AGM_Gradient_private get /_illustrator get not{
- AGM_Gradient begin
- }if
- AGM_Gradient_private begin
- _producingSeps{
- AGM_Gradient_Sep/AGM_Gradient_Sep_private get begin
- }if
- mySave
- }def
- }if
-
- currentdict/BB known not{
- /BB{
-
- /_tmp xp
- cleartomark cleartomark
-
- _tmp dup
- _renderFlag
-
- myRestore
-
- _producingSeps{
- end
- }if
-
- _illustrator dup
- end
- not {
- end
- }if
-
- {
- 2 ne exch 0 gt and{
- 2 eq{
- s
- }{
- S
- }ifelse
- }{
- pop newpath
- }ifelse
- }{
- pop newpath
- }ifelse
-
-
- }def
- }if
-
- currentdict/Xm known not{
- /Xm{
- _xm astore pop
- }def
- }if
-
- end
- }def
- /queryDevice{
- /_inRipSep
- _level2PS{
- currentpagedevice/Separations 2 copy known{
- get
- }{
- pop pop false
- }ifelse
- }{
- false
- }ifelse
- def
- /_noImage /lv1Fix where{
- pop lv1Fix
- }{
- false
- }ifelse
- def
- /_useShells where{
- /_useShells get /_usingShells xp
- }{
- /_usingShells false def
- }ifelse
-
- /_useSmoothShade where{
- pop
- }{
- /_useSmoothShade false def
- }ifelse
- /_forceToCMYK where{
- pop
- }{
- /_forceToCMYK false def
- }ifelse
- /_cyanPlate 1 0 0 0 testCMYKColorThrough def
- /_magentaPlate 0 1 0 0 testCMYKColorThrough def
- /_yellowPlate 0 0 1 0 testCMYKColorThrough def
- /_blackPlate 0 0 0 1 testCMYKColorThrough def
- /_compositeJob
- _cyanPlate _magentaPlate and _yellowPlate and _blackPlate and
- def
- /_isCMYKSep
- _cyanPlate _magentaPlate or _yellowPlate or _blackPlate or
- def
- /_compositeSpotDevice where{
- pop
- }{
- /_compositeSpotDevice _compositeJob not _inRipSep or{
- 1
- }{
- 0
- }ifelse
- def
- }ifelse
- /_producingSeps _compositeSpotDevice 0 ne def
- /_deviceDPI 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def
- /_dpiThreshold where{
- pop
- }{
- /_dpiThreshold 600 def
- }ifelse
- /_screenFreqThreshold where{
- pop
- }{
- /_screenFreqThreshold 150 def
- }ifelse
- /_contoneDevice where{
- pop
- }{
- /_contoneDevice false def
- }ifelse
- /_subSampleOK
- _deviceDPI _dpiThreshold le
- currentScreenFreq _screenFreqThreshold le and
- _contoneDevice not and
- def
- }def
- /initializeRectFill{
- /rectfill where dup{
- exch pop not _producingSeps or
- }{
- not
- }ifelse
- {
- /rectfill{
- gsave
- newpath
- 4 2 roll moveto
- 1 index 0 rlineto
- 0 1 index rlineto
- 1 index neg 0 rlineto
- pop pop
- closepath
- fill
- grestore
- }def
- }if
- }def
- /initializeLev1{
- /currentScreenFreq{
- currentscreen pop pop
- }def
- /_byte 1 string def
- /colorimage where{
- pop
- }{
- /colorimage{
- pop pop
- /_blackTmp xp
- /_yellowTmp xp
- /_magentaTmp xp
- /_cyanTmp xp
- /_cnt 0 pt
- [
- _byte dup 0
- _cyanTmp
- /_cnt cvx /get cvx _d255 /exch cvx /get cvx .3 /mul cvx
- _magentaTmp
- /_cnt cvx /get cvx _d255 /exch cvx /get cvx .59 /mul cvx
- _yellowTmp
- /_cnt cvx /get cvx _d255 /exch cvx /get cvx .11 /mul cvx
- _blackTmp
- /_cnt cvx /get cvx _d255 /exch cvx /get cvx
- /add cvx /add cvx /add cvx 1 /exch cvx /sub cvx
- /dup cvx 0 /lt cvx{
- pop 0
- }/if cvx
- /dup cvx 1 /gt cvx{
- pop 1
- }/if cvx
- 255 /mul cvx /cvi cvx
- 256 /mod cvx
- /dup cvx 0 /lt cvx{
- pop 0
- }/if cvx
- /put cvx
- /_cnt dup cvx 1 /add cvx /pt cvx
- ] cvx
- bind
- /_image load 5 execImage
- }def
- }ifelse
- }def
- /initializeLev2{
- /level2ScreenFreq{
- begin
- 60
- HalftoneType 1 eq{
- pop Frequency
- }if
- HalftoneType 2 eq{
- pop GrayFrequency
- }if
- HalftoneType 5 eq{
- pop Default level2ScreenFreq
- }if
- end
- }def
- /currentScreenFreq{
- currenthalftone level2ScreenFreq
- }def
- }def
- /initializeShading{
- _useSmoothShade _level3PS and{
- /_usingSmoothShade true pt
- initializeLev3_Ops
- }{
- /_usingSmoothShade false pt
- }ifelse
- }def
- /initializeLev3_Ops
- {
- /initShFill{
- /_index _gradType 0 eq {0}{_maxRampIndex 1 sub} ifelse pt
- /_rampFuncsArray _maxRampIndex array pt
- /_boundsArray _maxRampIndex 1 sub array pt
- /_encodeArray _maxRampIndex 2 mul array pt
- /_beginCoord _rampPoint pt
- /_colorSpace null pt
- /_firstFill _rampIndex _maxRampIndex eq pt
- /_lastFill false pt
- }def
- /linealShFill{
- popBSpace
- _xm aload pop pushBSpace
-
- /_size _index 1 add pt
- _size _maxRampIndex lt {
- /_rampFuncsArray _rampFuncsArray 0 _size getinterval pt
- /_boundsArray _boundsArray 0 _size 1 sub getinterval pt
- /_encodeArray _encodeArray 0 _size 2 mul getinterval pt
- }if
-
- bd
- /ShadingType 2
- /ColorSpace _colorSpace
- _rgbInCMYK{
- /Function [
- _cData sampFunc
- _mData sampFunc
- _yData sampFunc
- _kData sampFunc
- ]
- }{
- /Function
- bd
- /FunctionType 3
- /Domain [0 1]
- /Functions _rampFuncsArray
- /Bounds _boundsArray
- /Encode _encodeArray
- ed
- }ifelse
- /Extend [_firstFill _lastFill]
- /Domain [0 1]
- /Coords [_beginCoord 0 _endCoord 0]
- ed
- shfill
- }def
-
- /radialShFill{
- /_size _maxRampIndex _index sub pt
- _size _maxRampIndex lt {
- /_rampFuncsArray _rampFuncsArray _index _size getinterval pt
- /_boundsArray _boundsArray _index _size 1 sub getinterval pt
- /_encodeArray _encodeArray _index 2 mul _size 2 mul getinterval pt
- }if
-
- /_rampLen _beginCoord _endCoord sub pt
- bd
- /ShadingType 3
- /ColorSpace _colorSpace
- _rgbInCMYK{
- /Function [
- _cData sampFunc
- _mData sampFunc
- _yData sampFunc
- _kData sampFunc
- ]
- }{
- /Function
- bd
- /FunctionType 3
- /Domain [0 1]
- /Functions _rampFuncsArray
- /Bounds _boundsArray
- /Encode _encodeArray
- ed
- }ifelse
- /Extend [_lastFill _firstFill]
- /Domain [0 1]
- /Coords [_xHi _rampLen mul _yHi _rampLen mul _endCoord 0 0 _beginCoord]
- ed
- shfill
-
- _radHilite{
- _xHi _rampLen mul _yHi _rampLen mul translate
- }if
- }def
-
- %
- /sampFunc{
- /_tmp exch pt
- bd
- _tmp length 1 eq {
- _tmp 0 get
- /_tmp 2 string pt
- dup _tmp 0 3 -1 roll put
- _tmp 1 3 -1 roll put
- }if
- /FunctionType 0
- /Order 1
- /Size [_tmp length]
- /Domain [0 1]
- /BitsPerSample 8
- /DataSource _tmp
- /Range [0 1]
- ed
- }def
-
- /fillRamp{
-
-
- /_invert _midPoint 0.5 lt pt
- _rampIndex _maxRampIndex eq {
- initShFill
- }if
-
- getRampColorSpace
-
- _colorSpace null eq{
- /_colorSpace _rampColorSpace pt
- }{
- _colorSpace _rampColorSpace ne _rgbInCMYK or{
- /_index _index 1
- _gradType 0 eq{
- sub pt
- linealShFill
- }{
- add pt
- radialShFill
- }ifelse
- initShFill
- /_colorSpace _rampColorSpace pt
- } if
- }ifelse
- /_endCoord _endPoint pt
- /_rgbInCMYK false pt
- _producingSeps _forceToCMYK or _rgbRamp and {
- _spotColor{
- _renderCMYK
- }{
- _isCMYKSep
- }ifelse
- }{
- false
- }ifelse
- {
- _compositeJob{
- /_rgbInCMYK true pt
- _cyanData _magentaData _yellowData _blackData _nSamples 4 expandColor
- dup length string copy /_kData exch pt
- dup length string copy /_yData exch pt
- dup length string copy /_mData exch pt
- dup length string copy /_cData exch pt
- }{
- _rampFuncsArray _index
- _cyanPlate{_cyanData}if
- _magentaPlate{_magentaData}if
- _yellowPlate{_yellowData}if
- _blackPlate{_blackData}if
- _nSamples expandOne
- sampFunc
- dup begin /Decode [1 0] def end
- put
- /_invert false pt
- }ifelse
- }{
- _rampFuncsArray _index
- bd
- /FunctionType 2
- /Domain [0 1]
- /N 0.5 log _invert{1 _midPoint sub}{_midPoint}ifelse log div
- _gradType 0 eq{
- _invert{/C1}{/C0}ifelse _C0
- _invert{/C0}{/C1}ifelse _C1
- }{
- _invert{/C0}{/C1}ifelse _C1
- _invert{/C1}{/C0}ifelse _C0
- }ifelse
- ed
- put
- }ifelse
-
- _rampIndex 1 ne{
- _boundsArray _index _gradType 1 eq{1 sub}if _endCoord put
- } if
-
- 0 1 _invert {exch}if
- _encodeArray _index 2 mul 1 add 3 -1 roll put
- _encodeArray _index 2 mul 3 -1 roll put
- _rampIndex 1 eq {
- /_lastFill true pt
- _gradType 0 eq{
- linealShFill
- }{
- radialShFill
- }ifelse
- }if
- /_index _index 1
- _gradType 0 eq{
- add pt
- }{
- sub pt
- }ifelse
- }def
- }def
- /initializeComposite{
- /bwImage{
- pop /_image load 5 execImage
- }def
- /rampImage{
- _enabledSmoothShade{
- fillRamp
- }{
- _color{
- _nSamples setImageParms
-
-
- _rgbRamp _forceToCMYK not and{
- _redData _greenData _blueData _nSamples 3 expandColor
- true 3 null ncolorimage
- }{
- _cyanData _magentaData _yellowData _blackData _nSamples 4 expandColor
- true 4 null ncolorimage
- }ifelse
- }{
- _nSamples setImageParms _blackData null bwImage
- }ifelse
- }ifelse
- }def
- /setCStop{
- /_colorStyle exch pt
- _colorStyle 0 eq{
- 1 exch sub
- 0 0 0
- 4 -1 roll
- }if
-
- _colorStyle 2 eq{
- _forceToCMYK{
- 3 npop setcmykcolor
- }{
- setrgbcolor 4 npop
- }ifelse
- }if
-
- _colorStyle 3 eq{
- 1 exch sub /_tmp xp
- pop
- 4{
- _tmp mul 4 1 roll
- }repeat
- }if
-
- _colorStyle 4 eq{
- _forceToCMYK{
- 6 npop setcmykcolor
- }{
- 3 -1 roll pop pop
- 1 exch sub /_tmp xp
- 3{
- 1 exch sub _tmp mul 1 exch sub 3 1 roll
- }repeat
- setrgbcolor
- 4 npop
- }ifelse
- }if
- _colorStyle 2 ne _colorStyle 4 ne and{
- null nsetcustomcolor
- }if
- }def
- /nsetcustomcolor
- {
- pop setcmykcolor
- }def
- /nsetcustomcolorend
- {
- }def
- /ncolorimage{
- pop
- /_colorimage load 10 execImage
- }def
- _noImage not _level2PS not and{
- /linealFill{
- 8 setImageParms
- _color{
- currentcmykcolor
- 4{
- makeByte8 4 1 roll
- }repeat
- true 4 null ncolorimage
- }{
- currentgray makeByte8 null bwImage
- }ifelse
- }def
- }if
- /getRampColorSpace{
- _nSamples 1 gt{
- /_ndx 0 pt
- [blendColor] cvx exec
- }if
- /_C0 [currentcolor] pt
- /_C0_Space currentcolorspace pt
-
- _nSamples 1 gt{
- /_ndx _nSamples 1 sub pt
- [blendColor] cvx exec
- }if
- /_C1 [currentcolor] pt
- /_C1_Space currentcolorspace pt
-
- /_rampColorSpace _C0_Space pt
-
- _spotColor{
- nsetcustomcolorend
- }if
- }def
- }def
- /npop{
- {pop}repeat
- }def
- /xd{
- exch def
- }def
- /nd{
- null def
- }def
- /pt{
- AGM_Gradient_private 3 1 roll put
- }def
- /xp{
- exch pt
- }def
- /xput{
- dup load dup length exch maxlength eq{
- dup dup load dup
- length 2 mul dict copy def
- }if
- load begin
- def
- end
- }def
- /mySave{
- save /_sSave xp
- }def
- /myRestore{
- _sSave type /savetype eq{
- _sSave restore
- }if
- }def
- /gMark{
- counttomark 2 add -1 roll
- }def
- /execImage{
- /_tmp xp
- {
- exec
- }stopped{
- $error /errorname get /undefinedresult ne{
- stop
- }{
- _tmp npop
- }ifelse
- }if
- }def
- /pushBSpace{
- newpath gsave
- _bUMatrix astore concat
- }def
- /popBSpace{
- grestore
- }def
- /makeByte8{
- /_tmp 0 pt
- 255 mul cvi
- 8 string 8{
- dup _tmp 3 index put
- /_tmp _tmp 1 add pt
- }repeat
- exch pop
- }def
- /setImageParms{
- 1 8 2 index 0 0 1 0 0 _imageMatrix astore
- }def
- /linealFill{
- 0 0 1 1 rectfill
- }def
- /testCMYKColorThrough{
- gsave
- setcmykcolor currentcmykcolor
- grestore
- add add add 0 ne
- }def
- /expandOne {
- /_tmp xp
- dup type /stringtype ne{
- _tmp string
- exch
- dup 0 ne{
- 255 mul cvi
- 0 1 _tmp 1 sub{
- 3 copy
- exch put pop
- }for
- }if
- pop
- }if
- }def
- /expandColor{
- /_channels xp
- /_len xp
- _channels{
- _len expandOne _channels 1 roll
- }repeat
- }def
- /blendColor{
-
- _color{
- _rgbRamp _producingSeps not and _forceToCMYK not and{
- _redData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
- _greenData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
- _blueData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
- /setrgbcolor cvx
- }{
- _cyanData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
- _magentaData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
- _yellowData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
- _blackData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
-
- _spotColor{
- _rampSD begin
- /_rampSD cvx /begin cvx
-
- spot1 begin
- tintImage dup type /stringtype eq{
- /_ndx cvx /get cvx _d255- /exch cvx /get cvx
- }{
- dup null ne{
- name type /nametype ne{
- 1 exch sub
- }if
- }if
- }ifelse
- end
- /spot1 cvx /tintValue 3 -1 /roll cvx /put cvx
-
- spot2 begin
- tintImage dup type /stringtype eq{
- /_ndx cvx /get cvx _d255- /exch cvx /get cvx
- }{
- dup null ne{
- name type /nametype ne{
- 1 exch sub
- }if
- }if
- }ifelse
- end
- /spot2 cvx /tintValue 3 -1 /roll cvx /put cvx
- /end cvx
- end
- /_rampSD cvx
- /nsetcustomcolor cvx
- }{
- /setcmykcolor cvx
- }ifelse
- }ifelse
- }{
- _blackData dup type /stringtype eq{
- /_ndx cvx /get cvx _d255 /exch cvx /get cvx
- }if
-
- _enabledSmoothShade{
- 1 /exch cvx /sub cvx 0 0 0 4 -1 /roll cvx /setcmykcolor cvx
- }{
- /setgray cvx
- }ifelse
- }ifelse
- }def
- /useRectImage{
- _subSampleOK _enabledSmoothShade not and{
- {
- mark
- 0 1 dtransform atan cvi 90 mod 0 eq
- 1 0 dtransform atan cvi 90 mod 0 eq
- } stopped
- {
- cleartomark
- false
- }
- {
- and exch pop
- } ifelse
- }{
- false
- }ifelse
- }def
- /linealImage{
- _noImage{
- rectImage
- }{
- _producingSeps{
- AGM_Gradient_Sep/AGM_Gradient_Sep_private get
- /rampImage get exec
- }{
- useRectImage{
- rectImage
- }{
- rampImage
- }ifelse
- }ifelse
- }ifelse
- }def
- /linealRamp{
- pushBSpace
- _ramp{
- linealImage
- }{
- linealFill
- }ifelse
- popBSpace
- /_rampIndex _rampIndex 1 sub pt
- _rampIndex 0 gt{
- getRampData
- }if
- }def
- /radialGrad{
- /_usingShells currentoverprint _producingSeps and _usingShells or pt
- /_firstShell true pt
- _enabledSmoothShade not{
- currentoverprint _producingSeps and{
-
- newpath
- clippath pathbbox
- 1 add 4 1 roll
- 1 add 4 1 roll
- 1 sub 4 1 roll
- 1 sub 4 1 roll
- _bbox astore pop
-
- newpath
- _bbox 0 get _bbox 1 get moveto
- _bbox 2 get _bbox 1 get lineto
- _bbox 2 get _bbox 3 get lineto
- _bbox 0 get _bbox 3 get lineto
- closepath
- 6 copy
- gsave _bUMatrix astore concat
- 1 0 moveto 0 0 1 0 360 arc closepath
- eoclip fill
- popBSpace
- }{
- fill
- }ifelse
- }if
- pushBSpace
-
- _radHilite{
- _xHi _yHi _bUMatrix idtransform /_yHi xp /_xHi xp
- _rampPoint 1 lt{
- 1 _rampPoint sub dup _xHi mul exch _yHi mul translate
- }if
- }if
- _rampIndex{
- radialRamp
- /_rampIndex _rampIndex 1 sub pt
- _rampIndex 0 gt{
- getRampData
- }if
- }repeat
-
- popBSpace
-
- }def
- /getNSamples{
- 0 exch
- {
- dup type /stringtype eq{
- length exch pop exit
- }if
- pop
- }forall
- dup 0 eq{
- pop 1
- }if
- }def
- /getRampData{
- /_rampType gMark pt
- /_color _rampType 0 gt pt
- /_ccRGB _rampType 5 eq _rampType 6 eq or pt
- /_rgbRamp _rampType 4 eq _ccRGB or pt
- /_ccProcess _rampType 2 eq _rampType 3 eq or pt
- _producingSeps{
- _rampSD initSpotDict
- /_spotColor _ccProcess _ccRGB or pt
- }{
- /_spotColor false pt
- }ifelse
- /_ramp true pt
- 100 div /_rampPoint xp
- 100 div /_midPoint xp
-
- dup /_colorStyle xp
- _colorStyle 0 eq{
- 2
- }{
- _colorStyle 1 eq{
- 5
- }{
- _colorStyle 2 eq{
- 8
- }{
- _colorStyle 3 eq{
- _producingSeps{
- _rampSD /spot1 get begin
- /name 3 index def
- /spot_K 4 index def
- /spot_Y 5 index def
- /spot_M 6 index def
- /spot_C 7 index def
- end
- }if
- 7
- }{
- _producingSeps{
- _rampSD/spot1 get begin
- /name 4 index def
- /spot_K 8 index def
- /spot_Y 9 index def
- /spot_M 10 index def
- /spot_C 11 index def
- end
- }if
- 11
- } ifelse
- }ifelse
- }ifelse
- }ifelse
- /_tmp xp
- _tmp index 100 div /_endPoint xp
-
- _gradType 1 eq{
- _tmp 1 add index 100 div /_midPoint xp
- }if
-
- _producingSeps{
- _tmp 2 add index /_nextColorStyle xp
- _nextColorStyle 3 eq{
- /_tmp _tmp 4 add pt
- _tmp index dup
- _rampSD/spot1 get /name get ne{
- _rampSD /spot2 get begin
- /name xd
- /spot_K _tmp 2 add index def
- /spot_Y _tmp 3 add index def
- /spot_M _tmp 4 add index def
- /spot_C _tmp 5 add index def
- end
- }{
- pop
- }ifelse
- }if
- _nextColorStyle 4 eq{
- /_tmp _tmp 5 add pt
- _tmp index dup
- _rampSD/spot1 get /name get ne{
- _rampSD /spot2 get begin
- /name xd
- /spot_K _tmp 5 add index def
- /spot_Y _tmp 6 add index def
- /spot_M _tmp 7 add index def
- /spot_C _tmp 8 add index def
- end
- }{
- pop
- }ifelse
- }if
- }if
- _rampType 3 eq _rampType 6 eq or{
- /_tint2Data gMark pt
- }if
- _ccProcess _ccRGB or{
- /_tint1Data gMark pt
- }if
- _rgbRamp{
- /_blueData gMark pt
- /_greenData gMark pt
- /_redData gMark pt
- }if
-
- _producingSeps{
- _ccProcess _ccRGB or{
- _rampType 3 eq _rampType 6 eq or{
- _rampSD /spot2 get begin
- /tintImage _gradType 0 eq{
- _tint2Data
- }{
- _tint1Data
- }ifelse
- def
- name null eq{
- /name /Black def
- }if
- end
- }if
- _rampSD /spot1 get begin
- /tintImage _gradType 0 eq _rampType 2 eq or _rampType 5 eq or{
- _tint1Data
- }{
- _tint2Data
- }ifelse
- def
- _rampType 2 eq _rampType 5 eq or{
- name null eq{
- /name _rampSD/spot2 get /name get def
- /spot_C _rampSD/spot2 get /spot_C get def
- /spot_M _rampSD/spot2 get /spot_M get def
- /spot_Y _rampSD/spot2 get /spot_Y get def
- /spot_K _rampSD/spot2 get /spot_K get def
- _rampSD/spot2 get /name null put
- }if
- }{
- name null eq{
- /name /Black def
- }if
- }ifelse
- end
- }if
- }if
- /_blackData gMark pt
- _rampType 0 gt{
- counttomark 4 add -3 roll
- /_yellowData xp
- /_magentaData xp
- /_cyanData xp
- }if
- _ramp{
- /_nSamples
- [
- _rampType 0 eq {_blackData}if
- _rampType 1 eq {_cyanData _magentaData _yellowData _blackData}if
- _rampType 2 eq {_cyanData _magentaData _yellowData _blackData _tint1Data}if
- _rampType 3 eq {_cyanData _magentaData _yellowData _blackData _tint1Data _tint2Data}if
- _rampType 4 eq {_cyanData _magentaData _yellowData _blackData _redData _greenData _blueData}if
- _rampType 5 eq {_cyanData _magentaData _yellowData _blackData _redData _greenData _blueData _tint1Data}if
- _rampType 6 eq {_cyanData _magentaData _yellowData _blackData _redData _greenData _blueData _tint1Data _tint2Data}if
- ] getNSamples pt
- _enabledSmoothShade not {/_ramp _nSamples 1 gt pt} if
- } if
-
- setCStop
- }def
- /rectImage{
- gsave
- /_sInc 1 pt
- /_bInc 1 _nSamples div pt
- /_nSubSamples _nSamples pt
- /_optimize false pt
-
- _subSampleOK{
- /_uRampLen 1 0 dtransform _dUserSpace idtransform dup mul exch dup mul add sqrt pt
- /_pChange _uRampLen 0 eq{0}{_nSamples _uRampLen div}ifelse pt
-
- _pChange .5 gt dup /_optimize xp{
- /_nSubSamples _uRampLen 2 div round cvi dup 1 le{pop 2}if pt
- /_bInc 1 _nSubSamples div pt
- /_sInc _nSamples 1 sub _nSubSamples 1 sub div pt
- }if
- }if
- 0
- _nSubSamples
- [
- /dup cvx
- _optimize {
- /round cvx /cvi cvx
- } if
- /_ndx /exch cvx /pt cvx
- blendColor
- 0 0 _bInc 1 /rectfill cvx
- _bInc 0 /translate cvx
- _sInc /add cvx
- ] cvx
- bind
- repeat
- pop
- _spotColor{
- nsetcustomcolorend
- }if
- grestore
- }def
- /radialInit{
- /_nRadSamples _nSamples dup 0 eq{pop 1}if pt
- /_sInc -1 pt
- /_rampLen _rampPoint _endPoint sub pt
- /_bInc _rampLen _nSamples div neg pt
- /_optimize false pt
- _subSampleOK{
- /_uRampLen
- _rampLen 0 dtransform _dUserSpace idtransform dup mul exch dup mul add sqrt
- 0 _rampLen dtransform _dUserSpace idtransform dup mul exch dup mul add sqrt
- 2 copy lt{
- exch
- }if pop
- pt
- /_pChange
- _uRampLen 0 eq{
- 0
- }{
- _nSamples _uRampLen div
- }ifelse
- pt
- _pChange .5 gt dup /_optimize xp{
- /_nRadSamples _uRampLen 2 div round cvi dup 1 le{pop 2}if pt
- /_bInc _rampLen _nRadSamples div neg pt
- /_sInc _nSamples 1 sub _nRadSamples 1 sub div neg pt
- }if
- }if
- _radHilite{
- /_xBCInc _xHi _rampLen mul _nRadSamples div pt
- /_yBCInc _yHi _rampLen mul _nRadSamples div pt
- }if
- }def
- /radialRamp{
- _enabledSmoothShade{
- fillRamp
- }{
- /_saveMatrix _saveMatrix currentmatrix def
-
- radialInit
-
- %
- %
- true
- _producingSeps _rgbRamp not and{
- _nSamples 1 gt{
- pop
- /_ndx 0 pt
- [blendColor] cvx exec
- currentInkN
- /_ndx _nSamples 1 sub pt
- [blendColor] cvx exec
- currentInkN
- or
- }if
- }if
- {
- _rampPoint
-
- _nSamples 1 sub
-
- _nRadSamples
- [
- /dup cvx
-
- _optimize{
- /round cvx /cvi cvx
- }if
-
- /_ndx /exch cvx /pt cvx
-
- _usingShells{
- /_firstShell cvx{
- /_firstShell false pt
- }{
- 0 0 3 index 360 0 arcn fill
- }/ifelse cvx
- }if
-
- blendColor
-
- _usingShells{
- 0 0 3 /index cvx 0 360 /arc cvx
- }{
- 0 0 3 /index cvx 0 360 /arc cvx /fill cvx
- }ifelse
-
- /exch cvx _bInc /add cvx /exch cvx
-
- _sInc /add cvx
-
- _radHilite{
- _xBCInc _yBCInc /translate cvx
- }if
- ] cvx bind
- repeat
-
- pop pop
- }{
- _usingShells{
- 0 0 _rampPoint 360 0 arcn fill
- }if
- }ifelse
-
- _saveMatrix setmatrix
-
- _radHilite{
- _xHi _rampLen mul _yHi _rampLen mul translate
- }if
-
- _usingShells _rampIndex 1 eq and{
- fill
- }if
-
- _spotColor{
- nsetcustomcolorend
- }if
- }ifelse
- }def
- end
- end
- defaultpacking setpacking
- %%EndResource
-