*

: square dup * ;
: dist square swap square + sqrt ;
: ang atan2 t + ;

: shape
x .5 - y .5 - dist .4
x .3 - y .7 - ang 9 * sin .07 * +
swap - 30 * ;

x .3 - y .5 - dist sin 23 * sin
x .7 - y .5 - dist sin 23 * sin *
1 swap -
shape 0.9 - 10 * 0 max 1 min *

x .3 - y .5 - dist sin 23 * sin
x .7 - y .5 - dist sin 22 * sin *
1 swap -
shape 0.9 - 10 * 0 max 1 min *

x .3 - y .5 - dist sin 22 * sin
x .7 - y .5 - dist sin 23 * sin *
1 swap -
shape 0.9 - 10 * 0 max 1 min *

shape

Based on: voiceforth1 - BradN


comments powered by Disqus