*

: d ( x n - d ) 2 swap ** / floor 2 mod ;
: rotate dup sin swap cos z* ;

x y t 3 / rotate 4 * 1 mod 8 * floor negate d

comments powered by Disqus