Haiku Gallery
ваоп - гггва 6654па4 ва4вап 44ав4 4 8585 акев крнва
Untitled
Anonymous
'14 Jan 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
'14 Jan 21
x y t sin 1 + 2 /
Untitled
Anonymous
'14 Jan 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
'14 Jan 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
'14 Jan 21
Untitled
Anonymous
'14 Jan 21
t x + y / sin
Untitled
Anonymous
'14 Jan 21
t sin t cos x y + 512 / sin
Untitled
Anonymous
'14 Jan 21
x 8 * sin y 8 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'14 Jan 21
#include <stdio.h> main() { printf("hello, world\n"); }
Untitled
Anonymous
'14 Jan 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 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
'14 Jan 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
'14 Jan 21
: r dup x 4 * * t + sin swap x / cos + 2 mod ; 6 r 9 r dup 12 r /
Barcode
Anton K. Gel
'14 Jan 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
'14 Jan 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
'14 Jan 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
'14 Jan 21
x 0.5 - abs 2 * y 0.5 - abs 2 * * 0 0
Untitled
Anonymous
'14 Jan 21
x 1 - 2 * y 1 - 2 * 0
Untitled
Anonymous
'14 Jan 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
'14 Jan 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
'14 Jan 21
cvbbbbcbbc cbcb cbc bcb
Untitled
Anonymous
'14 Jan 21
1 1 y x x *
Untitled
Anonymous
'14 Jan 21
1 1 y x x *
Untitled
Anonymous
'14 Jan 21
x y t sin 1 + 2 /
Untitled
Anonymous
'14 Jan 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 21
x y t sin 1 + 2 /
Untitled
Anonymous
'14 Jan 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
Untitled
Anonymous
'14 Jan 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 21
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'14 Jan 21
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 11 r 25 r dup 12 r /
Untitled
Anonymous
'14 Jan 21
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'14 Jan 21
x y t
Untitled
Anonymous
'14 Jan 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 21
t sin 1 + 2 / x sin 1 + 2 / random sin 1 + 2 /
Untitled
Anonymous
'14 Jan 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
Time test
Balancer
'14 Jan 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 21
: f x x * - 2 pow swap y y * - 2 pow + sqrt + 30 * t 30 * 10 / + sin 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 /
Solar
onni
'14 Jan 21
x y t x*y^2*.5 /
Untitled
Anonymous
'14 Jan 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 21
Next