Haiku Gallery
\ бегающий по кардиоиде фрактал Мандельброта : xx x .8 - ; : yy y .5 - ; : tt t .4 * ; : a .25 * ; : mx xx 2 a tt cos * 2 tt * cos a - + ; : my yy 2 a tt sin * 2 tt * sin a - + ; : mm 2dup Z* mx my z+ ; mx my mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm dup * swap dup * + 0 > negate 1 + dup dup
Untitled
Anonymous
'25 Sep 16
: ox x ; : x 1 x - ; : x x 2 pow x .05 * - 2 pow ; y 7 pi * * pi - sin 0 max x pi * 2 * sin 0 max + dup 0.8 * over 0.3 * dup 8 * ox .5 - 3 pow y .5 - 3 pow + .12 / 1 swap - 16 * 0 max 1 min *
EForth Yellower
BradN
'25 Sep 16
: ox x ; : x 1 x - ; : x x 2 pow x .05 * - 2 pow ; y 7 pi * * pi - sin 0 max x pi * 2 * sin 0 max + dup 0.7 * over 0.3 * dup 8 * ox .5 - 3 pow y .5 - 3 pow + .12 / 1 swap - 16 * 0 max 1 min *
EForth
BradN
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
( 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
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
: 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
'25 Sep 16
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
'25 Sep 16
x 1 1
Untitled Redux
Anonymous
'25 Sep 16
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
'25 Sep 16
: julia 2dup z* .194 .6557 z+ ; x y julia julia julia julia julia julia julia
julia-haiku
kliemann
'25 Sep 16
: mandel 2dup z* x y z+ ; 0 0 mandel mandel mandel mandel mandel mandel mandel
mandelbrot haiku
kliemann
'25 Sep 16
: 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 16
: 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 16
: 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 16
: 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 16
: 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 16
3 4 +
Untitled
Anonymous
'25 Sep 16
: 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 16
: 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 16
: 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 16
: 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 16
: 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 16
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 16
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 16
( 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 16
: 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 16
t t t
test
icedp
'25 Sep 16
: 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 16
: 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 16
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 16
: 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 16
: 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 16
: 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 16
Next