*

: s t 8 * floor - ;
: ' 20 * 1 mod 3 * sin x * 1 mod ;
: l dup -0.2 >= swap 0.2 < * ;
: _ 20 * floor 5 + ;
: r x _ y _ s 7 + cos x _
sin / * 1 mod 0.5 >= ;
: d r dup x ' y ' - l * swap
1 swap - 1 x ' - y ' - l * + ;
0.2 1 d - * 0.42 d * +
0.15 1 d - * 0.37 d * +
0.47 1 d - * 0.71 d * +

comments powered by Disqus