*

: square dup * ;
: dist square swap square + sqrt ;
: ang atan2 ;
: shape
x .5 - y .5 - dist .4
x .3 - y .7 - ang 9 * sin .07 * +
swap - 30 * ;
: layer
push push
x .3 - y .5 - dist sin pop * sin
x .7 - y .5 - dist sin pop * sin *
1 swap -
shape 0.9 - 10 * 0 max 1 min *
;
23 23 layer 23 22 layer 22 23 layer shape

Based on: voiceforth1 - BradN


comments powered by Disqus