plasmoid -
fnord
'24 Mar 29
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
▶
*
:
r
x
0.5
-
2
**
y
0.5
-
2
**
+
;
:
a
push
push
y
t
pop
*
sin
0.5
*
-
y
t
pop
*
cos
0.5
*
-
atan2
;
:
sine r 10
*
-
0.5
**
1
swap
-
;
1 1.1 a sine sine
1.3 1.5 a sine sine
1.7 1.9 a sine sine
Create a derived work
Printer View