*

: b / floor 2 mod ;
: m 128 * floor ;
: a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ;
: w x m y m rot a ;
0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w
+ + + + + + + 0.5 <

comments powered by Disqus