sibyl rand dither Redux2

陳爽

: n 3 ;
: x x 0.5 - n * ;
: y y 0.5 - n * ;
: r x x * y y * + sqrt ;
y x atan2 2 * r 6 * + sin
y x atan2 6 * r 2 * + sin
2dup - abs -rot * dup pi 2 / * swap rot .5 * swap over .5 * + swap
pi * floor pi /
swap drop
2dup swap 1.5 * + floor 3 /
swap
r n 2 / <