Haiku Gallery
x y t 3 2 1 + /
Untitled
Anonymous
'25 Jul 05
: sq dup * ; : norm * sin 1 + 2 / ; : на x 0.5 - sq ; : мёртвой y 0.5 - sq ; : ветке + ; : чернеет sqrt t sin * ; : ворон. dup 40 norm ; : осенний over 60 norm ; : вечер. rot 80 norm ;
Candy 69 bytes Redux
Anonymous
'25 Jul 05
: 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 * + 36 * 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
Untitled
Anonymous
'25 Jul 05
x 9.4 * sin y 9.4 * sin t 3 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 05
: x x .5 - t 1 * cos 3 / + ; : y y .5 - t 0.6 * sin 3 / + ; : x1 x t cos * y t sin * - ; : y1 x t sin * y t cos * + ; : r x x * y y * + sqrt ; : x x1 ; : y y1 ; : u r 20 * t 10 * - sin ; x1 100 * sin u * y1 100 * sin u * u
Wave
Valentin
'25 Jul 05
x cos 8 * 5
Untitled Redux
Anonymous
'25 Jul 05
x cos 8 * 5
Untitled Redux
Anonymous
'25 Jul 05
x y t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Jul 05
x y t sin 1 + 2 /
Disco Redux
Anonymous
'25 Jul 05
x y t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Jul 05
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.05 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > * + + d d
Untitled
Anonymous
'25 Jul 05
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.05 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > * + + d d
Untitled
Anonymous
'25 Jul 05
3 pi 2 * dup t swap / dup floor - * * x 7 * + sin 2 / 0.5 + y - abs 0.007 <= dup dup
Sinus
Anonymous
'25 Jul 05
: iii x y z* Sin ; x 6 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 05
: tm t dup 60 / floor - ; : w 1 ; w tm * x + sin y - abs 0.01 <= dup dup
Untitled
Anonymous
'25 Jul 05
: sq dup * ; : c 0.5 -; x c sq y c sq + <= 0.25
Untitled
Anonymous
'25 Jul 05
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 05
t dup floor - dup x * sin swap dup y * sin swap * z sin
Untitled
Anonymous
'25 Jul 05
: ' .5 - 5 * ; : sq dup * ; : ^ ' t pi * .7 * sin sq -.5 * exp * ; : quad dup sq * ; : heart x ^ sq y ^ 3 * 2.5 1 - + 3 / x ^ abs sqrt - sq + 1 - ; : ish heart 0.0000001 < ; : noh heart 0.0000001 >= ; : dh heart abs ; noh -3 dh * exp * ish +
heart
rafuck
'25 Jul 05
x y / t + sin
Untitled
Anonymous
'25 Jul 05
x y z sin 10+8/
Untitled
Anonymous
'25 Jul 05
x y z sin 5+3/
Untitled
Anonymous
'25 Jul 05
1
Untitled
Anonymous
'25 Jul 05
: y0 y 1.6 * .60 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 4 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
Coffee (final) Redux
Anonymous
'25 Jul 05
: px x 5 * ; : py y 5 * t - ; : fract dup floor - ; : mix dup push * swap 1 pop - * + ; : f fract dup dup 2 * 3 swap - * * ; : r -3 exp * sin 5 exp * fract ; : v px floor py floor 3 exp * + ; : c y * y pop mix ; v r v 1 + r px f mix v 3 exp + dup push r pop 1 + r px f mix py f mix y 0.7 * 0.1 + > dup dup push push push 1.2 c 0.5 c 0.6 c
LavaLamp Redux
Anonymous
'25 Jul 05
x y t sin
Minimal animation Redux
Anonymous
'25 Jul 05
: 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 * + 36 * 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
Anonymous
'25 Jul 05
: s t 2 * sin 1 + 2 / ; x s < y s <
пробуем
noob
'25 Jul 05
x 16 * floor 2 mod y 10 * floor 2 mod - abs ( 2D grid ) 1 + 2 / ( shadow ) y 10 * 0.5 - floor 2 mod 2 / dup y 5 * + dup floor - 0.5 - 3.2 * abs x 8 * rot + dup floor - 0.5 - abs + 0.5 > * ( color correction ) 1.5 / dup 0 = + dup dup sqrt 2 / * dup dup *
Qbert
Manwe
'25 Jul 05
: f x x * - 3 pow swap y y * - 2 pow + sqrt + 30 * t 30 * 10 / + tan exp ; 10 1.1 1.4 f dup exp 20 1.4 1.1 f + 3 / dup 30 1.3 1.7 f mod 2 /
Так в разы круче
user51
'25 Jul 05
: f x x * - 3 pow swap y y * - 2 pow + sqrt + 30 * t 30 * 10 / + tan exp ; 10 1.1 1.4 f dup exp 20 1.4 1.1 f + 3 / dup 30 1.3 1.7 f mod 2 /
Так в разы круче
user
'25 Jul 05
: f x x * - 3 pow swap y y * - 2 pow + sqrt + 30 * t 30 * 10 / + tan exp ; 10 1.1 1.4 f dup exp 20 1.4 1.1 f + 3 / dup 30 1.3 1.7 f mod 2 /
Untitled
user
'25 Jul 05
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 05
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 05
: sq dup * ; : norm * sin 1 + 2 / ; : tt t 10 mod ; : xc tt 10 / ; : в 0 drop ; : вечерним x xc 0.25 + 0.75 > 1 * xc - abs 0.25 + ; : вьюнком - sq ; : я y 0.5 - sq ; : плен + ; : захвачен… sqrt t 60 mod sin * ; : недвижно dup tt 10 * norm ; : стою over 70 t 50 mod + norm ; : забытьи. rot 80 norm ;
123
Anonymous
'25 Jul 05
: sq dup * ; : c x 0.5 - sq y 0.5 - sq + 100 * ; c t 10 * + sin c pi 0.66 * + t 10 * + sin c pi 1.20 * + t 10 * + sin
Untitled
Anonymous
'25 Jul 05
Untitled
Anonymous
'25 Jul 05
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Golden bump Redux
Anonymous
'25 Jul 05
: ^ .5 - ; : ' ^ 3 * ; : sq dup * x ' sq y ' sq + 1 - 3 * y ' sq y ' * x ' sq * - abs
Untitled
Anonymous
'25 Jul 05
: tres y t 1.5 / + pi * 2 * sin 1 + 2 / ; : tres2 y t 1.3 / + pi * 3 * sin 1 + 2 / ; 0 x tres2 > 1 x - tres2 + * x tres > 1 x - tres + *
sines scrolls down
maksl
'25 Jul 05
Next