*

: band x swap - push y swap - pop atan2 ;
.1 t cos + .3 band 31 * sin
.7 .5 t 3 * cos + band 11 * sin
.5 t cos + .1 band 17 * sin + +
.2 t 2.1 * sin + .8 t sin + band sin
.7 .5 t cos + band 11 * sin +
.7 .5 t cos + band 11 * sin
.5 t cos + .1 band 17 * sin
.2 t sin + .8 t sin + band sin * *
x y / z*
2dup
.7 .5 t cos + band 11 * sin
y z* *

comments powered by Disqus