%% syntaxe : alpha1 alpha2 A r wedge
/wedge {
4 dict begin
/r exch def
/A defpoint
/alpha2 exch def
/alpha1 exch def
gsave
A stranslate
newpath
0 0 smoveto
alpha1 cos r mul alpha1 sin r mul slineto
alpha1 alpha2 {cos r mul} {sin r mul} Courbeparam_
0 0 slineto
closepath
starfill
currentlinewidth 0 eq {} {stroke} ifelse
grestore
end
} def
%% syntaxe : A r alpha1 alpha2 wedge
/wedge* {
1 dict begin
/startest {true} def
wedge
end
} def
|