Haiku Gallery
x 8 * sin y 8 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 17
#include <stdio.h> main() { printf("hello, world\n"); }
Untitled
Anonymous
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
: 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 17
: 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 17
: r dup x 4 * * t + sin swap x / cos + 2 mod ; 6 r 9 r dup 12 r /
Barcode
Anton K. Gel
'25 Sep 17
: 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 17
: 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 17
: 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 17
x 0.5 - abs 2 * y 0.5 - abs 2 * * 0 0
Untitled
Anonymous
'25 Sep 17
x 1 - 2 * y 1 - 2 * 0
Untitled
Anonymous
'25 Sep 17
: 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 17
: 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 17
cvbbbbcbbc cbcb cbc bcb
Untitled
Anonymous
'25 Sep 17
1 1 y x x *
Untitled
Anonymous
'25 Sep 17
1 1 y x x *
Untitled
Anonymous
'25 Sep 17
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Sep 17
: 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
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'25 Sep 17
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 11 r 25 r dup 12 r /
Untitled
Anonymous
'25 Sep 17
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'25 Sep 17
x y t
Untitled
Anonymous
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
t sin 1 + 2 / x sin 1 + 2 / random sin 1 + 2 /
Untitled
Anonymous
'25 Sep 17
: 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
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
: 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
'25 Sep 17
x y t x*y^2*.5 /
Untitled
Anonymous
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
: r dup push swap y 12 pow + * t + sin x pop * cos + dup floor - ; 0.07 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall (anim) Redux
Anonymous
'25 Sep 17
: s sin 1 + 2 /; t s x s
Untitled
Anonymous
'25 Sep 17
: a 0.5 a a 2 * 0
Untitled
Anonymous
'25 Sep 17
: z^2 2dup z* ; : layer push push z^2 pop pop 2dup push push z+ pop pop ; : many layer layer layer layer layer layer layer layer layer layer ; : len dup * swap dup * + ; : mant y 0.7 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; t cos 1 + 2 / t sin 1 + 2 / mant t sin 1 + 2 / t cos 1 + 2 / mant t cos 1 + 2 / t cos 1 + 2 / mant
inkblot mandelbrot Redux
Anonymous
'25 Sep 17
: d dup ; : ' .5 - ; : r x ' d * y ' d * + log ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .15 * .85 + .4 r 40 * ctg 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sin - 0 max * d d * 2 /
Green bump Redux
Lexus
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * sin .3 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .15 * .85 + .4 r 40 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
Golden bump Redux
Anonymous
'25 Sep 17
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
Untitled
Anonymous
'25 Sep 17
Next