*

: r x 0.5 - 2 ** y 0.5 - 2 ** + ;
: a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ;
: sine r 10 * - 0.5 ** 1 swap - ;
1 1.1 a sine sine
1.3 1.5 a sine sine
1.7 1.9 a sine sine