*

: d push x - dup * pop y - dup *
+ sqrt ;
: r 2dup push push d 200 * x pop - y pop - atan2 20 * sin 3 * + sin ;
: and + abs 2 mod ;
.5 .5 r
t 10 / dup push
sin abs
pop
cos abs
r
xor
dup dup

Based on: Moiré pattern generator #2 - adg


comments powered by Disqus