Moiré pattern generator #1 Redux

Anonymous

: sq dup * ;
: d sq swap sq + sqrt^3 ;
: s push - swap pop - 2dup d
push atan2 0.01 * pop +
200 * sin ;
.5 .5 x y s
t sin abs t cos abs x y s + dup dup