home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 August
/
PCWorld_1999-08_cd.bin
/
Novinky
/
adobe
/
Instal
/
archive.z
/
AIRes.dll
/
TEXT
/
1023
< prev
next >
Wrap
Text File
|
1998-10-05
|
41KB
|
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