%% DESTROY
%% syntaxe x0 y0 r ang1 ang2 tracearc
/tracearc {
gsave
newpath
5 copy pop dup %% x0, y0, r, ang1, ang2, x0, y0, r, ang1, ang1
cos 5 1 roll %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, r, ang1
sin exch dup %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, sin(ang1),r, r
6 1 roll %% x0, y0, r, ang1, ang2, r, cos(ang1), x0, y0, sin(ang1),r
mul add 4 1 roll %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), r, cos(ang1), x0
3 1 roll mul add %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), x0 + r cos(ang1)
exch
smoveto
sarc
stroke
grestore
} def
|