📄 example2.eps
字号:
{
/AA r2 r1 sub c2y div def
AA -1 eq
{ /theta 89.99 def}
{ /theta AA 1 AA dup mul sub sqrt div 1 atan def}
ifelse
/SS1 90 theta add dup sin exch cos div def
/p1x r1 SS1 SS1 mul SS1 SS1 mul 1 add div sqrt mul neg def
/p1y p1x SS1 div neg def
/SS2 90 theta sub dup sin exch cos div def
/p2x r1 SS2 SS2 mul SS2 SS2 mul 1 add div sqrt mul def
/p2y p2x SS2 div neg def
r1 r2 gt
{
/L1maxX p1x yMin p1y sub SS1 div add def
/L2maxX p2x yMin p2y sub SS2 div add def
}
{
/L1maxX 0 def
/L2maxX 0 def
} ifelse
p1x p1y moveto p2x p2y lineto L2maxX L2maxX p2x sub SS2 mul p2y add lineto
L1maxX L1maxX p1x sub SS1 mul p1y add lineto
fill
} ifelse
} ifelse
} ifelse
} if
c1x c2x sub dup mul
c1y c2y sub dup mul
add 0.5 exp
0 dtransform
dup mul exch dup mul add 0.5 exp 72 div
0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
1 index 1 index lt { exch } if pop
/hires xdf
hires mul
/numpix xdf
/numsteps NumSamples def
/rampIndxInc 1 def
/subsampling false def
numpix 0 ne
{
NumSamples numpix div 0.5 gt
{
/numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
/rampIndxInc NumSamples 1 sub numsteps div def
/subsampling true def
} if
} if
/xInc c2x c1x sub numsteps div def
/yInc c2y c1y sub numsteps div def
/rInc r2 r1 sub numsteps div def
/cx c1x def
/cy c1y def
/radius r1 def
newpath
xInc 0 eq yInc 0 eq rInc 0 eq and and
{
0 getrampcolor
cx cy radius 0 360 arc
stroke
NumSamples 1 sub getrampcolor
cx cy radius 72 hires div add 0 360 arc
0 setlinewidth
stroke
}
{
0
numsteps
{
dup
subsampling { round cvi } if
getrampcolor
cx cy radius 0 360 arc
/cx cx xInc add def
/cy cy yInc add def
/radius radius rInc add def
cx cy radius 360 0 arcn
eofill
rampIndxInc add
} repeat
pop
} ifelse
ext1
{
c2y r2 add r1 lt
{
c2x c2y r2 0 360 arc
fill
}
{
c2y r1 add r2 sub 0.0001 le
{
c2x c2y r2 360 0 arcn
pathbbox
/aymax exch def
/axmax exch def
/aymin exch def
/axmin exch def
/bxMin xMin axmin min def
/byMin yMin aymin min def
/bxMax xMax axmax max def
/byMax yMax aymax max def
bxMin byMin moveto
bxMax byMin lineto
bxMax byMax lineto
bxMin byMax lineto
bxMin byMin lineto
eofill
}
{
c2x c2y r2 0 360 arc fill
r1 r2 eq
{
/p1x r2 neg def
/p1y c2y def
/p2x r2 def
/p2y c2y def
p1x p1y moveto p2x p2y lineto p2x yMax lineto p1x yMax lineto
fill
}
{
/AA r2 r1 sub c2y div def
AA -1 eq
{ /theta 89.99 def}
{ /theta AA 1 AA dup mul sub sqrt div 1 atan def}
ifelse
/SS1 90 theta add dup sin exch cos div def
/p1x r2 SS1 SS1 mul SS1 SS1 mul 1 add div sqrt mul neg def
/p1y c2y p1x SS1 div sub def
/SS2 90 theta sub dup sin exch cos div def
/p2x r2 SS2 SS2 mul SS2 SS2 mul 1 add div sqrt mul def
/p2y c2y p2x SS2 div sub def
r1 r2 lt
{
/L1maxX p1x yMax p1y sub SS1 div add def
/L2maxX p2x yMax p2y sub SS2 div add def
}
{
/L1maxX 0 def
/L2maxX 0 def
}ifelse
p1x p1y moveto p2x p2y lineto L2maxX L2maxX p2x sub SS2 mul p2y add lineto
L1maxX L1maxX p1x sub SS1 mul p1y add lineto
fill
} ifelse
} ifelse
} ifelse
} if
grestore
grestore
end
end
end
} ifelse
} bdf
/GenStrips
{
40 dict begin
/ColorSpaceFamily xdf
/background xdf
/ext1 xdf
/ext0 xdf
/BBox xdf
/y2 xdf
/x2 xdf
/y1 xdf
/x1 xdf
/rampdict xdf
/setinkoverprint where {pop /setinkoverprint{pop}def}if
gsave
BBox length 0 gt
{
newpath
BBox 0 get BBox 1 get moveto
BBox 2 get BBox 0 get sub 0 rlineto
0 BBox 3 get BBox 1 get sub rlineto
BBox 2 get BBox 0 get sub neg 0 rlineto
closepath
clip
newpath
} if
x1 x2 eq
{
y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
}
{
/slope y2 y1 sub x2 x1 sub div def
/theta slope 1 atan def
x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
x2 x1 lt y2 y1 lt and { /theta theta 180 add def} if
}
ifelse
gsave
clippath
x1 y1 translate
theta rotate
{ pathbbox } stopped
{ 0 0 0 0 } if
/yMax exch def
/xMax exch def
/yMin exch def
/xMin exch def
grestore
xMax xMin eq yMax yMin eq or
{
grestore
end
}
{
rampdict begin
20 dict begin
background length 0 gt { background sssetbackground gsave clippath fill grestore } if
gsave
x1 y1 translate
theta rotate
/xStart 0 def
/xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
/ySpan yMax yMin sub def
/numsteps NumSamples def
/rampIndxInc 1 def
/subsampling false def
xStart 0 transform
xEnd 0 transform
3 -1 roll
sub dup mul
3 1 roll
sub dup mul
add 0.5 exp 72 div
0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
1 index 1 index lt { exch } if pop
mul
/numpix xdf
numpix 0 ne
{
NumSamples numpix div 0.5 gt
{
/numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
/rampIndxInc NumSamples 1 sub numsteps div def
/subsampling true def
} if
} if
ext0
{
0 getrampcolor
xMin xStart lt
{
xMin yMin xMin neg ySpan rectfill
} if
} if
/xInc xEnd xStart sub numsteps div def
/x xStart def
0
numsteps
{
dup
subsampling { round cvi } if
getrampcolor
x yMin xInc ySpan rectfill
/x x xInc add def
rampIndxInc add
} repeat
pop
ext1 {
xMax xEnd gt
{
xEnd yMin xMax xEnd sub ySpan rectfill
} if
} if
grestore
grestore
end
end
end
} ifelse
} bdf
}def
/page_trailer
{
end
}def
/doc_trailer{
}def
/capture_currentpagedevice {
//Adobe_AGM_Core/AGMCORE_currentpagedevice currentpagedevice ddf
} def
systemdict /findcolorrendering known{
/findcolorrendering systemdict /findcolorrendering get def
}if
systemdict /setcolorrendering known{
/setcolorrendering systemdict /setcolorrendering get def
}if
/test_cmyk_color_plate
{
gsave
setcmykcolor currentgray 1 ne
grestore
}def
/inRip_spot_has_ink
{
dup //Adobe_AGM_Core/AGMCORE_name xddf
convert_spot_to_process not
}def
/map255_to_range
{
1 index sub
3 -1 roll 255 div mul add
}def
/set_csa_crd
{
/sep_colorspace_dict null AGMCORE_gput
begin
CSA get_csa_by_name setcolorspace_opt
set_crd
end
}
def
/map_csa
{
currentdict/MappedCSA known{MappedCSA null ne}{false}ifelse
{pop}{get_csa_by_name /MappedCSA xdf}ifelse
} def
/setsepcolor
{
/sep_colorspace_dict AGMCORE_gget begin
dup /sep_tint exch AGMCORE_gput
TintProc
end
} def
/setdevicencolor
{
/devicen_colorspace_dict AGMCORE_gget begin
Names length copy
Names length 1 sub -1 0
{
/devicen_tints AGMCORE_gget 3 1 roll xpt
} for
TintProc
end
} def
/sep_colorspace_proc
{
/AGMCORE_tmp exch store
/sep_colorspace_dict AGMCORE_gget begin
currentdict/Components known{
Components aload pop
TintMethod/Lab eq{
2 {AGMCORE_tmp mul NComponents 1 roll} repeat
LMax sub AGMCORE_tmp mul LMax add NComponents 1 roll
}{
TintMethod/Subtractive eq{
NComponents{
AGMCORE_tmp mul NComponents 1 roll
}repeat
}{
NComponents{
1 sub AGMCORE_tmp mul 1 add NComponents 1 roll
} repeat
}ifelse
}ifelse
}{
ColorLookup AGMCORE_tmp ColorLookup length 1 sub mul round cvi get
aload pop
}ifelse
end
} def
/sep_colorspace_gray_proc
{
/AGMCORE_tmp exch store
/sep_colorspace_dict AGMCORE_gget begin
GrayLookup AGMCORE_tmp GrayLookup length 1 sub mul round cvi get
end
} def
/sep_proc_name
{
dup 0 get
dup /DeviceRGB eq exch /DeviceCMYK eq or level2 not and has_color not and{
pop [/DeviceGray]
/sep_colorspace_gray_proc
}{
/sep_colorspace_proc
}ifelse
} def
/setsepcolorspace
{
current_spot_alias{
dup begin
Name map_alias{
exch pop
}if
end
}if
dup /sep_colorspace_dict exch AGMCORE_gput
begin
CSA map_csa
/AGMCORE_sep_special Name dup () eq exch (All) eq or store
AGMCORE_avoid_L2_sep_space{
[/Indexed MappedCSA sep_proc_name 255 exch
{ 255 div } /exec cvx 3 -1 roll [ 4 1 roll load /exec cvx ] cvx
] setcolorspace_opt
/TintProc {
255 mul round cvi setcolor
}bdf
}{
MappedCSA 0 get /DeviceCMYK eq
currentdict/Components known and
AGMCORE_sep_special not and{
/TintProc [
Components aload pop Name findcmykcustomcolor
/exch cvx /setcustomcolor cvx
] cvx bdf
}{
AGMCORE_host_sep Name (All) eq and{
/TintProc {
1 exch sub setseparationgray
}bdf
}{
AGMCORE_in_rip_sep MappedCSA 0 get /DeviceCMYK eq and
AGMCORE_host_sep or
Name () eq and{
/TintProc [
MappedCSA sep_proc_name exch 0 get /DeviceCMYK eq{
cvx /setcmykcolor cvx
}{
cvx /setgray cvx
}ifelse
] cvx bdf
}{
AGMCORE_producing_seps MappedCSA 0 get dup /DeviceCMYK eq exch /DeviceGray eq or and AGMCORE_sep_special not and{
/TintProc [
/dup cvx
MappedCSA sep_proc_name cvx exch
0 get /DeviceGray eq{
1 /exch cvx /sub cvx 0 0 0 4 -1 /roll cvx
}if
/Name cvx /findcmykcustomcolor cvx /exch cvx
AGMCORE_host_sep{
AGMCORE_is_cmyk_sep
/Name cvx
/AGMCORE_IsSeparationAProcessColor load /exec cvx
/not cvx /and cvx
}{
Name inRip_spot_has_ink not
}ifelse
[
/pop cvx 1
] cvx /if cvx
/setcustomcolor cvx
] cvx bdf
}{
/TintProc {setcolor} bdf
[/Separation Name MappedCSA sep_proc_name load ] setcolorspace_opt
}ifelse
}ifelse
}ifelse
}ifelse
}ifelse
set_crd
setsepcolor
end
} def
/additive_blend
{
3 dict begin
/numarrays xdf
/numcolors xdf
0 1 numcolors 1 sub
{
/c1 xdf
1
0 1 numarrays 1 sub
{
1 exch add /index cvx
c1 /get cvx /mul cvx
}for
numarrays 1 add 1 /roll cvx
}for
numarrays [/pop cvx] cvx /repeat cvx
end
}def
/subtractive_blend
{
3 dict begin
/numarrays xdf
/numcolors xdf
0 1 numcolors 1 sub
{
/c1 xdf
1 1
0 1 numarrays 1 sub
{
1 3 3 -1 roll add /index cvx
c1 /get cvx /sub cvx /mul cvx
}for
/sub cvx
numarrays 1 add 1 /roll cvx
}for
numarrays [/pop cvx] cvx /repeat cvx
end
}def
/exec_tint_transform
{
/TintProc [
/TintTransform cvx /setcolor cvx
] cvx bdf
MappedCSA setcolorspace_opt
} bdf
/devn_makecustomcolor
{
2 dict begin
/names_index xdf
/Names xdf
1 1 1 1 Names names_index get findcmykcustomcolor
/devicen_tints AGMCORE_gget names_index get setcustomcolor
Names length {pop} repeat
end
} bdf
/setdevicencolorspace
{
dup /AliasedColorants known {false}{true}ifelse
current_spot_alias and {
7 dict begin
/names_index 0 def
dup /names_len exch /Names get length def
/new_names names_len array def
/new_LookupTables names_len array def
/alias_cnt 0 def
dup /Names get
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -