*

\ base data & tranforms
: xm 5 ;
: xo t 1.3 * sin ;
: ym 5 ;
: yo t 0.6 * cos ;
: x0 x xo + xm * ;
: y0 y yo + ym * ;

\ code
\ \ RED
x0 pi * sin
y0 pi * sin
* dup *
t sin 1 + 2 / *

x0 1.1 * pi * cos
y0 1.2 * pi * cos
* dup *
t sin 1 + 2 / *
+

dup dup *

dup sin

comments powered by Disqus