Haiku Gallery
: x x 0.5 - 7 * t + cos ; : y y 0.5 - 55 * t .1 * + sin ; y x 31 * sin x y 9 * cos z* - dup 1.9 * dup .18 *
Enmeshed in Light Redux
Anonymous
'24 Apr 26
: d dup ; : m 1 min ; : c c floor -5 ; : c cos abs ; : j t 41 + 21 * x 8 * floor 8 / + 14 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 c x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 18 ** ; : p c tg 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5111 b - v d 0.5 < * 4 * m * 1 p c * y 0.5 - d * + 326 * 130 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 c - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux Redux Redux Redux
Anonymous
'24 Apr 26
: d dup ; : m 1 min ; : c c floor - ; : c cos abs ; : j t 41 + 21 * x 8 * floor 8 / + 14 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 c x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 18 ** ; : p c t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5111 b - v d 0.5 < * 4 * m * 1 p c * y 0.5 - d * + 326 * 130 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 c - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux Redux Redux
Anonymous
'24 Apr 26
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 41 + 21 * x 8 * floor 8 / + 14 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 18 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5111 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 326 * 130 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux Redux
Anonymous
'24 Apr 26
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 326 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux
Anonymous
'24 Apr 26
: sq dup * ; ( translate origin to the center ) : x x 0.5 - 4 * ; : y y 0.4 - 5 * ; ( animate r ) : r 2 t * sin 1.3 + ; ( x^2 + (y-sqrt(|x|)^2 = r heart equation ) x sq y x abs sqrt - sq + r <= 0.3 0.5
Heart
G0_G4
'24 Apr 26
( color scheme: QuickBasic and MSX2 memories ) 0 5 x .5 - 20 ** y .5 - 20 ** + .05 ** dup -rot / t dup floor - pi * 2 * + sin over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .9
Untitled
Anonymous
'24 Apr 26
: 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* x * swap y * x t * sin * t y * cos 2dup z* -rot 2 * -rot 3 * -rot
Star Rose
Anonymous
'24 Apr 26
: x x 0.5 - 7 * t + cos ; : y y 0.5 - 5 * t .1 * + sin ; y x 31 * sin x y 19 * cos z* - dup .9 * dup .8 *
Enmeshed in Light
Anonymous
'24 Apr 26
: y y 5 * ; : x x 1.5 * ; x y - x x * y - y y * x - 2dup 10 * sin max max y * rot x + -rot
Orbitalist
Anonymous
'24 Apr 26
x 11 * sin y 3 * cos + y 13 * sin x 5 * cos + * x 7 * sin y 17 * cos + y 2 * sin x 3 * cos + * x 11 * sin y 11 * cos + y 2 * sin x 7 * cos + * : x x y 7 * sin 0.1 * + ; : y y x 11 * sin 0.15 * + ; : x x 0.5 - 3.1 * ; : y y 0.5 - 3.1 * ; x 2 * x y + y 2 * x x * y y * + 50 pow negate 1 + swap drop swap drop swap drop
Untitled
Anonymous
'24 Apr 26
x 1 1
Untitled Redux
Anonymous
'24 Apr 26
x 0.5 - 1 y - 0.5 - mod dup dup push push x y sin + * pop x t tan - * pop y t tan - *
Alien Shockwave
Anonymous
'24 Apr 26
: julia 2dup z* .194 .6557 z+ ; x y julia julia julia julia julia julia julia
julia-haiku
kliemann
'24 Apr 26
: mandel 2dup z* x y z+ ; 0 0 mandel mandel mandel mandel mandel mandel mandel
mandelbrot haiku
kliemann
'24 Apr 26
: mandel 2dup z* x y z+ ; 0 0 mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel mandel
mandelbrot-set
kliemann
'24 Apr 26
: scale 3 * 1.5 - ; : c -.11 .6557 ; : julia 2dup z* c z+ ; x scale y scale julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia
julia-set Redux
kliemann
'24 Apr 26
: scale 3 * 1.5 - ; : c 0 1 ; : julia 2dup z* c z+ ; x scale y scale julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia julia
julia-set
kliemann
'24 Apr 26
: tr * 2 + floor 3 mod ; : it dup x swap tr swap y swap tr + ; 3 it 9 it * 27 it * 81 it * 243 it *
carpet
kliemann
'24 Apr 26
: sq - dup * ; x .5 sq y .5 sq + 0 .5 sq < x .4 sq 2 * y .7 sq + 0 .1 sq > and x .6 sq 2 * y .7 sq + 0 .1 sq > and y .5 > x .5 sq y .5 sq + 0 .3 sq > or x .5 sq y .5 sq + 0 .25 sq < or and dup
smile
kliemann
'24 Apr 26
3 4 +
Untitled
Anonymous
'24 Apr 26
: x x y 7 * sin 3.1 * + ; : y y x 11 * sin 3.15 * + ; : x x 0.7 - 3.1 * ; : y y 0.5 - 3.1 * ; x 2 * x y + y 2 * x x * y y * + 29 pow negate 1 +
Untitled
Anonymous
'24 Apr 26
: z .7224 * 4 mod 1 - abs 2 - ; : 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 * 2.32740248 * 23 mod swap y * 1.5 * 2342 swap t z 2 * + swap 2 * floor swap 2 * floor + 2 mod 1 swap dup m 0.5 0.1 0.7 n v
Untitled
Anonymous
'24 Apr 26
: x x .9 - ; : y y .203944 - ; : w x 0.3 + y 0.5 + * * sin 1 max swap x 0.5 + y 0.3 + * * sin 0 max + ; 554 23 w 15 17 w * x + 23 31 w 19 19 w * y x * + 10231 54 w 7 7 w * y +
Untitled
Anonymous
'24 Apr 26
: x x .9 - ; : y y .203944 - ; : w x 0.3 + y 0.5 + * * sin 1 max swap x 0.5 + y 0.3 + * * sin 0 max + ; 554 23 w 15 17 w * x + 23 31 w 19 19 w * y x * + 10231 54 w 7 7 w * y +
Untitled
Anonymous
'24 Apr 26
: x x y 7 * sin 0.1 * + ; : y y x 11 * sin 0.15 * + ; : x x 0.5 - 3.1 * ; : y y 0.5 - 3.1 * ; x 2 * x y + y 2 * x x * y y * + 50 pow negate 1 +
stenoforth
BradN
'24 Apr 26
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 26
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 26
( 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 26
: 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 26
t t t
test
icedp
'24 Apr 26
: 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 26
: 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 26
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 26
: 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 26
: 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 26
: 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 26
: 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 26
x 4 * floor 3 / y 4 * floor 3 / 2dup min swap
16 of 64 red Redux
Anonymous
'24 Apr 26
x 4 * floor 3 / y 4 * floor 3 / 2dup max swap
16 of 64 yelleo
Anonymous
'24 Apr 26
Next