*

( color scheme: QuickBasic and MSX2 memories )
0
5
x .5 - 20 ** y .5 - 20 ** + .05 **
dup -rot
/
t dup floor - pi * 2 *
+ sin
over 9 * 4 ** **
swap .1 max .1 - * 5 * 1 min
.9

comments powered by Disqus