*

: square dup * ;
: wump
2dup atan2 x .5 - square y .5 - square + sqrt + 30 * cos
2dup atan2 x .5 - square y .5 - square + sqrt + 20 * sin
atan2 x x * y y * + sqrt + 10 * sin ;
x .5 - y t .5 - sin + wump
2dup atan2 x .5 - t 5 mod + square y .5 - t 7 mod + square + sqrt + *
x .3 + y t sin + wump
z* z*
x .7 - t 3 / sin + y t .3 - 1 mod + wump
x .3 - y t sin + wump
z* z+
*

comments powered by Disqus