Moiré pattern generator #1 -
adg
'24 Mar 29
: sq dup * ; : d sq swap sq + sqrt ; : 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
▶
*
:
sq
dup
*
;
:
d sq
swap
sq
+
sqrt
;
:
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
Possibly based on:
1
-
2
Create a derived work
Printer View