*

: no drop drop drop ;
: ns y 0.237 - 1.9 * 13 * ;
: h 0 ns <= ns 13 < and ;
: s h if ns 2 mod 1 < if no .75 .04 .188 else no 1 1 1 then then ;
: u 6 ns <= ns 13 < and x .4 < and if no 0 .157 0.4 then ;
: f 0 .75 1 s u ;
: zz random dup dup ;
t 7 mod 2 < if f else zz then

comments powered by Disqus