*

: square dup * ;
: dist square swap square + sqrt ;
: 2dup over over ;
: spiral 0.5 - swap 0.5 - 2dup dist
push atan2 0.01 * pop +
100 * sin ;
x 0.03 - y spiral
x y 0.03 - spiral x *
y x spiral y *

comments powered by Disqus