| %!PS-Adobe-3.0
% PostScript実習マニュアル
% P.67 3.10 クリッピング % clip
% eoclip
% initclip /star {
2 dict begin
/y exch def
/x exch def
newpath
x y moveto
300 0 rlineto
-250 -200 rlineto
100 300 rlineto
100 -300 rlineto
end
} def /polkadot {
4 dict begin
/y exch def
/x exch def
/dy y def
14 {
/dy dy 25 add def
/dx x def
14 {
/dx dx 25 add def
newpath
dx dy 8 0 360 arc
stroke
} repeat
} repeat
end
} def /polkadotstar {
150 650 star
clip
100 400 polkadot
} def /polkadotstarbyeo {
150 300 star
eoclip
100 50 polkadot
} def 1 0 0.4 setrgbcolor
6 setlinewidth
polkadotstar
initclip
polkadotstarbyeo
showpage | 
0 件のコメント:
コメントを投稿