postscript_math-parametric-asteroid
Example : Parametric Plotting - Asteroid
%!
newpath
300 600 translate
0 0 moveto
/span 1 def
/t 0 def
/u { t cos 3 exp 180 mul} def
/v { t sin 3 exp 180 mul} def
u v moveto
360 {/t t span add def
u v lineto } repeat
stroke
showpage
