*

: x' x .45 - ; : y' y .5 - ;
: 2pi 2 pi * ; : atan2 atan2 2pi / 1 mod ;
: sin 2pi * sin ; : cos 2pi * cos ;
: a' y' x' atan2 ; : r' x' 2 ** y' 2 ** + .5 ** ;
: contour ( f y -- contour ) - abs 1 swap - 99 ** ;
a' .4 * r' contour
x' cos 3 / y' contour
0 y' contour y' abs +

comments powered by Disqus