Haiku Gallery
: 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
'20 Oct 24
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
'20 Sep 30
x 1 1
Untitled Redux
Anonymous
'20 Sep 06
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
'20 Sep 03
: julia 2dup z* .194 .6557 z+ ; x y julia julia julia julia julia julia julia
julia-haiku
kliemann
'20 Sep 01
: mandel 2dup z* x y z+ ; 0 0 mandel mandel mandel mandel mandel mandel mandel
mandelbrot haiku
kliemann
'20 Sep 01
: 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
'20 Sep 01
: 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
'20 Sep 01
: 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
'20 Sep 01
: 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
'20 Aug 31
: 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
'20 Aug 31
3 4 +
Untitled
Anonymous
'20 Aug 22
: 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
'20 Aug 20
: 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
'20 Aug 20
: 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
'20 Aug 20
: 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
'20 Aug 20
: 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
'20 Jul 01
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
陳摩
'20 May 13
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
陳摩
'20 May 13
( 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
'20 May 12
: 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
'20 May 11
t t t
test
icedp
'20 May 10
: 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
'20 May 06
: 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
陳摩
'20 Apr 15
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
'20 Apr 13
: 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
陳爽
'20 Mar 25
: 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
陳爽
'20 Mar 18
: 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
陳爽
'20 Mar 18
: 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
'20 Mar 09
x 4 * floor 3 / y 4 * floor 3 / 2dup min swap
16 of 64 red Redux
Anonymous
'20 Mar 05
x 4 * floor 3 / y 4 * floor 3 / 2dup max swap
16 of 64 yelleo
Anonymous
'20 Mar 05
: 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
'20 Mar 05
x 4 * floor 3 / y 4 * floor 3 / 2dup + 2 / 4 * floor 3 / swap
16 of 64 Redux
Anonymous
'20 Mar 04
x 4 * floor 3 / y 4 * floor 3 / 2dup swap 2 * + 3 / 4 * floor 3 / swap
16 of 64
Anonymous
'20 Mar 04
x y t sin + sample
Untitled
Anonymous
'20 Mar 04
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
'20 Feb 23
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
'20 Feb 22
: 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
'20 Feb 22
: 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
'20 Feb 22
: 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
'20 Feb 22
Next