*

: d rot - dup * -rot swap - dup * + sqrt ;
: m 1 + 2 / ;
: v m x y d ;
: o1 t sin m t cos m x y d ;
: o2 t 1.5 * cos m t 0.7 * sin v ;
: o3 t 0.9 * cos m t 2.3 * sin v ;
: o4 t 2.4 * cos m t 3.1 * sin v ;
o1 o2 o4 - -
10 * t sin 1.1 + * sin dup 0.5 * o3 swap

comments powered by Disqus