*


( f = sin[x/|y| — y/|x|] )
: k 20 ;
: x' x .7 - k / ;
: y' y .7 - k / ;
: part ( x y - f )
abs / 9 pow ;
: f ( k - q ) x' y' part y' x' part - t cos * * tan ;
q 9 dup f
t 8 mod f


comments powered by Disqus