*

pi 6 / t + dup sin 0 ! cos 1 !

: y y .5 + ; : x x .5 - ;

: x' x 1 @ * y 0 @ * + ;
: y' y 1 @ * x 0 @ * - ;
: x x' ; : y y' ;

x .15 - y .75 - < x 0 > * y 1 < *

Based on: test - icedp


comments powered by Disqus