Haiku Gallery
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
3 4 +
Untitled
Anonymous
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
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
陳摩
'25 Sep 19
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
陳摩
'25 Sep 19
( 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
'25 Sep 19
: 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
'25 Sep 19
t t t
test
icedp
'25 Sep 19
: 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
'25 Sep 19
: 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
陳摩
'25 Sep 19
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
'25 Sep 19
: 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
陳爽
'25 Sep 19
: 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
陳爽
'25 Sep 19
: 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
陳爽
'25 Sep 19
: 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
'25 Sep 19
x 4 * floor 3 / y 4 * floor 3 / 2dup min swap
16 of 64 red Redux
Anonymous
'25 Sep 19
x 4 * floor 3 / y 4 * floor 3 / 2dup max swap
16 of 64 yelleo
Anonymous
'25 Sep 19
: 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
'25 Sep 19
x 4 * floor 3 / y 4 * floor 3 / 2dup + 2 / 4 * floor 3 / swap
16 of 64 Redux
Anonymous
'25 Sep 19
x 4 * floor 3 / y 4 * floor 3 / 2dup swap 2 * + 3 / 4 * floor 3 / swap
16 of 64
Anonymous
'25 Sep 19
x y t sin + sample
Untitled
Anonymous
'25 Sep 19
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
'25 Sep 19
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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
: 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
'25 Sep 19
1 0 0
ryb 2 Redux
Anonymous
'25 Sep 19
: 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
'25 Sep 19
1 y - 1 x - 1 y 2 / - * 1 x - 1 mx - *
ryb 2
Anonymous
'25 Sep 19
1 y 2 / - 1 x 2 / - 1 y 4 / - * 1 x 2 / - 1 mx - *
Untitled
Anonymous
'25 Sep 19
x .3 - sqrt y - t .1 / x + sin 2dup z* dup .7 *
Embeaten
Anonymous
'25 Sep 19
x y .1 mod sqrt / t .2 * sin + y 2dup z* dup .5 *
Blinds at Sunrise Redux
Anonymous
'25 Sep 19
Next