Haiku Gallery
pi 6 / t + dup sin 0 ! cos 1 ! : y y .5 + ; : x x .5 - ; : x' x 1 @ * y 0 @ * + ; : y' y 1 @ * x 0 @ * - ; : x x' ; : y y' ; x .15 - y .75 - < x 0 > * y 1 < *
mytest
陳摩
'24 Apr 27
pi 6 / t + dup sin 0 ! cos 1 ! : y y .5 + ; : x x .5 - ; : x' x 1 @ * y 0 @ * + ; : y' y 1 @ * x 0 @ * - ; : x x' ; : y y' ; x .15 - y .75 - < x 0 > * y 1 < *
mytest
陳摩
'24 Apr 27
( hope you're doing well! ) ( classic amiga effect not so faithfully recreated ) : z .71 * 4 mod 2 - abs 1 - ; : x x 4 * 2 - t z + ; : y y 4 * 1 - t 2 * sin abs - ; : r x dup * y dup * + sqrt ; : m r 1 < * ; : n r 1 >= * ; : m m rot m rot m rot ; : n n rot n rot n rot ; : h rot r> + ; : v >r >r >r h h h ; 1 1 r - sqrt - r / dup x * 1.5 * 1 mod swap y * 1.5 * 1 mod swap t z 2 * + swap 2 * floor swap 2 * floor + 2 mod 1 swap dup m 0.1 0.1 0.7 n v
amiga
boomlinde
'24 Apr 27
: x x 0.5 - ; : y y 0.5 - ; x x * y y * + sqrt x y atan2 dup 7 * sin 0.05 * 0.3 + swap 77 * sin 0.01 * + <
Covid19
Anonymous
'24 Apr 27
t t t
test
icedp
'24 Apr 27
: x' x 2 - ; : y' y 0.5 - ; : iterate 2dup z* x' y' z+ ; : fract dup floor - ; 0.0 0.0 iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate iterate 2dup z* dup * swap dup * + 0.1 pow fract dup fract swap dup sqrt fract
Mandelbrot
Janm31415
'24 Apr 27
: x x .5 - ; : y y .5 - ; : w x 0.3 + y 0.5 + * * sin 0 max swap x 0.5 + y 0.3 + * * sin 0 max + ; 33 23 w 15 17 w * x + 23 31 w 19 19 w * y x * + 31 31 w 7 7 w * y +
streak Redux
陳摩
'24 Apr 27
My name is Munif I like playing basketball I like eating gum I like reading books I like to do some gaming I like to drink coke I like to garden I have one really cool, bro His name is Madyan My bro and I fight But he is still the best bro He likes eating egg I like to do chores I help my mom with the dishes I love my parents
The Story Of My Everyday Life
Munif Hasan
'24 Apr 27
: x x .13 - 1.1 * ; : y y .13 - 1.1 * ; : w x .59 + y .31 + * * sin 0 max swap x .31 + y .59 + * * sin 0 max + ; 23 31 w 17 17 w * x + 31 23 w 19 19 w * y x * + 31 31 w 3 3 w * y +
streak Redux
陳爽
'24 Apr 27
: 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 / <
sibyl rand dither Redux2
陳爽
'24 Apr 27
: x x 0.5 - 2 * ; : y y 0.5 - 2 * ; : d x x * y y * + ; y x atan2 2 * d 5 * + sin y x atan2 5 * d 2 * + sin 2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap -rot 4 * floor 3 / rot 4 * floor 3 / swap drop 2dup swap 2 * + 3 / 4 * floor 3 / swap
sibyl rand dither Redux
陳爽
'24 Apr 27
: x x 0.5 - 2 * ; : y y 0.5 - 2 * ; : d x x * y y * + ; y x atan2 2 * d 5 * + sin y x atan2 5 * d 2 * + sin 2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap -rot random .2 * + 4 * floor 3 / rot random .2 * + 4 * floor 3 / swap drop 2dup swap 2 * + 3 / random .2 * + 4 * floor 3 / swap
sibyl rand dither
Anonymous
'24 Apr 27
x 4 * floor 3 / y 4 * floor 3 / 2dup min swap
16 of 64 red Redux
Anonymous
'24 Apr 27
x 4 * floor 3 / y 4 * floor 3 / 2dup max swap
16 of 64 yelleo
Anonymous
'24 Apr 27
: c x 8 * floor y 8 * floor 8 * + ; c 4 mod 3 / c 4 / floor 4 mod 3 / c 16 / floor 4 mod 3 /
EGA
Anonymous
'24 Apr 27
x 4 * floor 3 / y 4 * floor 3 / 2dup + 2 / 4 * floor 3 / swap
16 of 64 Redux
Anonymous
'24 Apr 27
x 4 * floor 3 / y 4 * floor 3 / 2dup swap 2 * + 3 / 4 * floor 3 / swap
16 of 64
Anonymous
'24 Apr 27
x y t sin + sample
Untitled
Anonymous
'24 Apr 27
x y 20 pow - .6 swap - x 1 y - 20 pow - .6 swap - + 1 x - y 20 pow - .6 swap - 1 x - 1 y - 20 pow - .6 swap - + * 1 swap - dup 1 mod dup 2 mod
I Redux
Anonymous
'24 Apr 27
x y 20 pow - .6 < x 1 y - 20 pow - .6 < or 1 x - y 20 pow - .6 < 1 x - 1 y - 20 pow - .6 < or and 1 swap - dup dup
I
BradN
'24 Apr 27
: x x 0.5 - ; : y y 0.5 - ; y x atan2 x x * y y * + sqrt 10 * + t 10 mod - abs 1 - 1 mod y x atan2 2 * x x * y y * + sqrt 7 * + t 10 mod - abs 1 - 1 mod y x atan2 3 * x x * y y * + sqrt 5 * + t 10 mod - abs 1 - 1 mod over z* 2dup + swap
Blades Redux
Anonymous
'24 Apr 27
: x x 0.5 - ; : y y 0.5 - ; y x atan2 x x * y y * + sqrt 10 * + t 10 mod - abs 1 - 1 mod y x atan2 2 * x x * y y * + sqrt 7 * + t 10 mod - abs 1 - 1 mod y x atan2 3 * x x * y y * + sqrt 5 * + t 10 mod - abs 1 - 1 mod
Blades
BradN
'24 Apr 27
: x x 0.5 - ; : y y 0.5 - ; x 5 * 2 pow 1 mod 1 y - 5 * 2 pow 1 mod * x 5.2 * 2 pow 1 mod 1 y - 5.1 * 2 pow 1 mod * 2dup + 2 / swap rot y x .4 * + + -rot
Metropolis
BradN
'24 Apr 27
1 0 0
ryb 2 Redux
Anonymous
'24 Apr 27
: g 4 ; : yellow x g * floor y g * floor g * + g g * 1 - / ; : red x g * 1 mod ; : blue y g * 1 mod ; 1 blue 2 / - 1 red 2 / - 1 blue 4 / - * 1 red 2 / - 1 yellow - *
ryb grid
Anonymous
'24 Apr 27
1 y - 1 x - 1 y 2 / - * 1 x - 1 mx - *
ryb 2
Anonymous
'24 Apr 27
1 y 2 / - 1 x 2 / - 1 y 4 / - * 1 x 2 / - 1 mx - *
Untitled
Anonymous
'24 Apr 27
x .3 - sqrt y - t .1 / x + sin 2dup z* dup .7 *
Embeaten
Anonymous
'24 Apr 27
x y .1 mod sqrt / t .2 * sin + y 2dup z* dup .5 *
Blinds at Sunrise Redux
Anonymous
'24 Apr 27
x y .1 mod .2 pow / 1 swap / y 2dup z* dup .5 * sqrt
Blinds at Sunrise
BradN
'24 Apr 27
: x x .5 - 2 * ; : y y .5 - 2 * ; : ^2 dup * ; : z^2 over over z* ; : a^2+b^2 ( a b -> a^2+b^2 ) ^2 swap ^2 + ; : r a^2+b^2 ; : a/r,b/r ( a b r -> a/r b/r ) dup >r / swap r> / swap ; : a-b,a+b ( a b -> a-b a+b ) over over + >r - r> ; : 1/z ( a b -> [a-b]/r [a+b]/r, r=a^2+b^2 ) over over a^2+b^2 >r a-b,a+b r> a/r,b/r ; : zdup over over ; : z/ 1/z z* ; : riman ( z -> z/[1+z^2] ) over over z^2 1 0 z+ z/ ; x y riman t 3 * sin t 5 * sin z*
Hypno6
DarkstarAG
'24 Apr 27
: x x .5 - 2 * ; : y y .5 - 2 * ; : ^2 dup * ; : z^2 over over z* ; : a^2+b^2 ( a b -> a^2+b^2 ) ^2 swap ^2 + ; : a/r,b/r ( a b r -> a/r b/r ) dup >r / swap r> / swap ; : a-b,a+b ( a b -> a-b a+b ) over over + >r - r> ; : 1/z ( a b -> [a-b]/r [a+b]/r, r=a^2+b^2 ) over over a^2+b^2 >r a-b,a+b r> a/r,b/r ; : zdup over over ; : z/ 1/z z* ; : riman ( z -> 1/[1+z^2] ) z^2 1 0 z+ 1/z ; x y riman t 7 * sin t 3 * sin z*
Hypno5
DarkstarAG
'24 Apr 27
: x x .5 - 2 * ; : y y .5 - 2 * ; : f dup * tan dup * ; : r x x * y y * + sqrt 2 * f x * y * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno4
DarkstarAG
'24 Apr 27
: x x .5 - 2 * ; : y y .5 - 2 * ; : f >r r@ r> dup * 1 + / ; : r x f y f + sqrt 1 swap - 15 * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno3
DarkstarAG
'24 Apr 27
: x x .5 - 2 * ; : y y .5 - 2 * ; : f >r r@ dup * r> dup * 1 + / ; : r x f y f + sqrt 1 swap - 15 * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno2
DarkstarAG
'24 Apr 27
: x x .5 - 2 * ; : y y .5 - 2 * ; : r x x * y y * + sqrt 1 swap - 15 * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno1
DarkstarAG
'24 Apr 27
: x x .5 - ; : y y .4 - ; : r dup * swap dup * + sqrt ; : s x - swap y - 2dup r push atan2 0.2 * pop + 40 * sin ; t sin 6 / t cos 7 / s dup t sin 2 / t cos 3 / s + over t cos 4 / t sin 5 / s +
Moiré pattern generator #1 Redux
陳爽
'24 Apr 27
: x x .1 - ; : y y .1 - ; : r dup * swap dup * + sqrt ; : s x - swap y - 2dup r push atan2 0.2 * pop + 40 * sin ; t sin 1 + 6 / t cos 1 + 7 / s dup t sin 1 + 2 / t cos 1 + 3 / s + over t cos 1 + 4 / t sin 1 + 5 / s +
Moiré pattern generator #1 Redux
陳爽
'24 Apr 27
: x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : ring r < swap r > * ; .2 .1 ring .4 .3 ring
Two Rings
Vera
'24 Apr 27
: 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 72267043
Moiré pattern generator #1 Redux
Anonymous
'24 Apr 27
Next