Haiku Gallery
Cool
Anonymous
'25 Sep 21
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 4 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 21
: sq dup * ; x 0.5 - sq y 0.5 - sq + sqrt t sin * : norm * sin 1 + 2 / ; dup 40 norm over 60 norm rot 80 norm
xor tunnel shorter Redux
Anonymous
'25 Sep 21
x t sin 1 + 2 / > 1 0
some one
noob
'25 Sep 21
: 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 ;
PONG game Redux
Anonymous
'25 Sep 21
x 100 * sin dup t 5 * sin * y 0.1 * cos t 16 * cos / / dup t 5 * sin * dup t 3 * cos *
Disco Redux
Anonymous
'25 Sep 21
x ' r / z * lx m y ' r / z * ly m
Untitled
Anonymous
'25 Sep 21
y x t sin 2 / 0.05 +
Minimal animation Redux
Anonymous
'25 Sep 21
234rtyuiuytre 6etyuyedr
Untitled
Anonymous
'25 Sep 21
: 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 ;
PONG game Redux
Anonymous
'25 Sep 21
: d dup ; : f floor ; : i t 9 / d f - 0.5 - d 0 > 2 * 1 - * 2 / x + ; : m 256 * f 16 mod ; : l 2 i d >r m ** / f 2 mod swap y m = * + r> d 1 < swap 0.25 > * * y 0.5 > * y 0.85 < * ; : v f sin 2.2 / 0.5 + ; : a t 7 * sin 0 ; 0 8 544 l 7 2032 l 6 3544 l 4 6132 l 3 5140 l 2 864 l a > * 0 8 4644 l 7 6132 l 6 7644 l 4 4088 l 3 1040 l 2 2056 l a <= * + 9 1040 l 5 8188 l 1 y - * d 2 * t v d >r t 1 + v over - t d f - d >r * + x - abs 0.04 < y 0.025 < * 2 / r> y 0.01 - - abs 0.007 < r> x - abs 0.002 < * + + d 2 *
SPACE INVADERS Redux
Anonymous
'25 Sep 21
:ти x ; :лалка y ; :знают t sin; :все * x ; ти лалка знают все
Untitled
Anonymous
'25 Sep 21
: 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 Redux
Anonymous
'25 Sep 21
x y t sin 4 / 0.5 +
Minimal animation Redux
Anonymous
'25 Sep 21
x y t cos 2 / 0.5 +
Untitled
Anonymous
'25 Sep 21
x y t sin 2 / 0.5 +
Untitled
Anonymous
'25 Sep 21
: t t sin ; : x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : tsin t sin ; : tcos t cos ; : x1 x tcos * y tsin * - ; : y1 x tsin * y tcos * + ; x1 100 * sin y1 100 * sin t r + 2 / 50 * sin
Waves
Valentin
'25 Sep 21
t x y / sin
рассвет
shadow
'25 Sep 21
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Sep 21
t x y / sin
рассвет
shadow
'25 Sep 21
t x y / sin
рассвет
shadow
'25 Sep 21
x y / 2.5 t sin 2 / 0.2 +
Minimal animation Redux
Anonymous
'25 Sep 21
апеасв
аааа
ООО
'25 Sep 21
x 3.1415 t * * sin y t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Sep 21
ваоп - гггва 6654па4 ва4вап 44ав4 4 8585 акев крнва
Untitled
Anonymous
'25 Sep 21
: y0 y 1.6 * .45 - ; : 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 23 4444 l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
Coffee (final) Redux
Anonymous
'25 Sep 21
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Sep 21
: 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 ; вечерним вьюнком я в плен захвачен… недвижно стою в забытьи.
Untitled
Anonymous
'25 Sep 21
: d dup ; : f floor ; : i t 9 / d f - 0.5 - d 0 > 2 * 1 - * 2 / x + ; : m 256 * f 16 mod ; : l 2 i d >r m ** / f 2 mod swap y m = * + r> d 1 < swap 0.25 > * * y 0.5 > * y 0.85 < * ; : v f cos 2.2 / 0.5 + ; : a t 7 * sin 0 ; 0 8 544 l 7 2032 l 6 3544 l 4 6132 l 3 5140 l 2 864 l a > * 0 8 4644 l 7 6132 l 6 7644 l 4 4088 l 3 1040 l 2 2056 l a <= * + 9 1040 l 5 8188 l 1 y - * d 2 * t v d >r t 1 + v over - t d f - d >r * + x - abs 0.04 < y 0.025 < * 2 / r> y 0.03 - - abs 0.007 < r> x - abs 0.002 < * + + d 2 *
SPACE INVADERS Redux
Anonymous
'25 Sep 21
Untitled
Anonymous
'25 Sep 21
t x + y / sin
Untitled
Anonymous
'25 Sep 21
t sin t cos x y + 512 / sin
Untitled
Anonymous
'25 Sep 21
x 8 * sin y 8 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 21
#include <stdio.h> main() { printf("hello, world\n"); }
Untitled
Anonymous
'25 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
: sinc dup sin swap / ; x 0.5 - 51 * t sin * t + sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 35 * t sin * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 20 * t sin * sinc 0.7 + 2 / y - abs 0.03 <
Untitled
Anonymous
'25 Sep 21
: 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 ;
Untitled
Anonymous
'25 Sep 21
: r dup x 4 * * t + sin swap x / cos + 2 mod ; 6 r 9 r dup 12 r /
Barcode
Anton K. Gel
'25 Sep 21
: 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 Redux
Anonymous
'25 Sep 21
: 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 ;
Untitled
Anonymous
'25 Sep 21
Next