*

: a t 2 * y t + 3 * sin + ;
: x x 4 * 2 - t 4 *
y 3 * + sin 2 / + ;
: y y 4 * 2 - ;

: x1 a sin ;
: x2 a pi 2 / + sin ;
: x3 a pi 2 / 2 * + sin ;
: x4 a pi 2 / 3 * + sin ;

: c1 dup 0.1 * swap 0.2 * ;

x x4 >= x x1 < * x1 x4 - * 2 /
x x1 >= x x2 < * x2 x1 - * 2 / +
x x2 >= x x3 < * x3 x2 - * 2 / +
x x3 >= x x4 < * x4 x3 - * 2 / +
0.2 0.1

Based on: twister - boomlinde


comments powered by Disqus