*

: square dup * ;
: pt y - square push x - square pop + 1 swap t sin 2 + pow / swap over * z+ ;
0 0
.2 .3 .2 pt
1 .2 t sin + .5 pt
.8 .1 .7 pt
0 .7 .2 pt
.5 .3 .5 t sin * pt
0 .7 .7 pt
.3 .32 t cos * .4 pt
swap /

0 0
.2 .1 .2 pt
1 .2 .4 pt
.8 .1 .7 pt
0 .7 t sin - .2 pt
.2 .4 .5 pt
0 .9 .7 t cos * pt
.3 t cos * .32 .4 pt
swap /

0 0
.2 .15 .1 pt
.3 .3 t sin + .3 pt
.2 .1 .6 pt
0 .7 t cos + .2 pt
.2 .4 .5 pt
1 .9 .8 t sin * pt
.3 .42 .5 pt
swap /

Based on: Voronous - BradN


comments powered by Disqus