*

: z t 1 + cos 4 + 3 / * ;
: a 1.1 x .5 - y .5 - atan2 t ;
: b * dup sin swap 2 / t 5 * + cos
t 3 / sin 2 / 1 + *
- 30 /
x .5 - z 2 ** y .5 - z 2 ** +
+ - 4 ** ;

a 1.7 / + 10 b
t cos 1 + 5 / +

a 1.9 / - 8 b

a 2.1 / - 6 b
t 2.7 * cos 1 + 5 / +

comments powered by Disqus