*

: x x 0.5 - 2 * ;
: y y 0.5 - 2 * ;
: d x x * y y * + ;
y x atan2 2 * d 5 * + sin
y x atan2 5 * d 2 * + sin
2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap
-rot 4 * floor 3 /
rot 4 * floor 3 /
swap drop
2dup swap 2 * + 3 / 4 * floor 3 /
swap

Based on: sibyl rand dither - Anonymous


comments powered by Disqus