*

: ^2 dup * ;
: xy x y -.5 -.5 z+ ;
: r xy ^2 swap ^2 + sqrt ;
: xy' xy r 20 * tan 0 z* ;
: c ( a b - k:=sin[angle*b+a*t] ) xy' atan2 * swap t * + sin ;
12 13 c
5 9 c
3 17 c

comments powered by Disqus