postscript_math-polar-archimedean-spiral
Example : Polar Plotting - Archimedean Spiral
%!
newpath
300 700 translate
0 0 moveto
/span 1 def
/t -360 def
/r { t 1 mul} def
/x { t cos r mul 0.8 mul} def
/y { t sin r mul 0.8 mul} def
x y moveto
720 {/t t span add def
x y lineto } repeat
stroke
showpage
