Haiku Gallery
x 19.4 * sin x t 2.4 * sin 2.5 * * + y 19.4 * sin y t 2.9 * sin 3 * * + t 1.4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux Wild
anti
'24 Oct 28
: d dup ; : x0 x 2 * 1 - ; : y0 y 2 * 1 - ; : n x0 d * y0 d * + 4 + sqrt ; : m swap / * d * -rot ; : l 2dup 2dup x0 m 2dup y0 m -2 swap / * 3 + d * + + sqrt 1 - y0 1 + min rot + swap ; 0 n l l l l l l l l l l l l l l l l drop 5 / d d
Ray Tracing 1
Manwe
'24 Oct 28
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
robu
'24 Oct 28
: 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 .7 * ; : 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
Manwe
'24 Oct 28
x 2 ** y 1 x 1 y - / 50 * cos + * - y 5 ** - dup dup
Ladder
Ivanq
'24 Oct 28
: 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 .7 * ; : 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
Manwe
'24 Oct 28
: 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 .7 * ; : 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
Manwe
'24 Oct 28
x 1 * sin 2 ** y 1 * sin x y - 50 * cos x 1 y - - 50 * cos + * / dup dup
Chess
Ivanq
'24 Oct 28
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco
Ivanq
'24 Oct 28
( early preview, very raw code ) : ' 0.5 - ; : d dup ; : lx t 1 + 1.9 * sin .6 * ; : ly t 1 + 1.7 * sin .6 * ; : lz 1 ; : r2 d * swap d * + sqrt ; : r3 lx d * ly d * lz d * + + sqrt ; : z x ' 80 * y ' 80 * r2 sin 0.2 * 0.8 + ; x ' x ' y ' r2 / lx r3 / * y ' x ' y ' r2 / ly r3 / * z lz r3 / * + + 1 x ' lx - d * y ' ly - d * + z lz - d * + sqrt - over 1 swap - 2 /
toy pyramid
Manwe
'24 Oct 28
: pt x .5 - y .5 - ; : sq dup * ; pt sq swap sq + sqrt 52 * pt atan2 + pt atan2 9 * t 9 * - sin + sin dup .05 + floor
BACTERIA anim
boomlinde + Manwe
'24 Oct 28
: p .5 - dup * 262144 * + t - ; : q rot sin ; 0 x p y p dup 2 * dup 4 / q q q
MR exact opt 77b
frag_
'24 Oct 28
: p .5 - dup * 524288 * + ; t -4 * x p y p dup 2 / dup 2 / sin rot sin rot sin
MR exact opt 78b
frag_
'24 Oct 28
: p .5 - dup * 131072 * + ; 0 t - x p y p dup 2 * dup 2 * sin -rot sin -rot sin
MR exact opt
frag_
'24 Oct 28
: b .5 - 362 * dup * ; x b y b + t - dup 2 * dup 2 * sin -rot sin -rot sin
Moire Redux
Anonymous
'24 Oct 28
: (n -- n) q 256 * 128 - dup * ; x q y q + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
Moire Redux
Anonymous
'24 Oct 28
x 256 * 128 - dup * y 256 * 128 - dup * + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
Moire
Manwe + DiLemming
'24 Oct 28
: d x y mod 2; d x y mod 4 *
Untitled Redux
Anonymous
'24 Oct 28
x y mod 10 * x y mod 2 * x y mod 4 *
Untitled
Anonymous
'24 Oct 28
: 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.03 - - abs 0.007 < r> x - abs 0.002 < * + + d 2 *
SPACE INVADERS Redux
Anonymous
'24 Oct 28
: 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.03 - - abs 0.007 < r> x - abs 0.002 < * + + d 2 *
SPACE INVADERS
www.manwe.ru
'24 Oct 28
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17.4 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'24 Oct 28
: l 2 x 14 * floor ** / 2 mod swap y 14 * floor = * + ; 0 0 10 520 l 9 272 l 8 1016 l 7 1772 l 6 4094 l 5 3066 l 4 2570 l 3 432 l dup 4 / swap
Sprite
Manwe
'24 Oct 28
: 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
www.manwe.ru
'24 Oct 28
: d dup ; : px x t pi / d floor - 1.4 * 0.2 - ; : r - d * + sqrt 0.018 < ; px - d * y 0.5 - d * + sqrt 0.16 < y 0.5 - px - atan2 abs t 10 * cos abs 0.8 * > * px - d * y 0.58 r - x x 8 * floor 0.5 + 8 / - d * y 0.5 r px > * + d 0
Pacman mini
Manwe
'24 Oct 28
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Candy 69 bytes
Manwe + Digimind
'24 Oct 28
: p pop dup push ; : t' t 1 p / + 2 / sin 4 * ; : a p cos .2 * + ; : b p sin .2 * + ; : x' p cos x a 0.5 - * pop sin y a 0.5 - * + ; : y' p cos y a 0.5 - * pop sin x b 0.5 - * - ; : l t' push x' p * .5 + floor 0 = t' push y' p * .5 + floor 0 = and dup rot and + 2 mod pop .85 * push ; 0 4 t 3 * 1.15 mod - push l l l l l l l l l l l l pop drop dup 1
square hole
boomlinde
'24 Oct 28
: 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 - *
PONG game Redux
Anonymous
'24 Oct 28
: 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 3 r 0.94 * 0.03 + ; : p 5 r 0.9 * 0.05 + d t 3 * ; e x - d * 5 r y - d * + sqrt 0.02 < p sin m e a 0.03 < * p cos m 1 e - a 0.97 > *
PONG 254 bytes
Manwe
'24 Oct 28
: 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
PONG game Redux
Anonymous
'24 Oct 28
: 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
PONG game
www.manwe.ru
'24 Oct 28
: ' 0.6 - ; : r dup * swap dup * + sqrt ; x x ' y ' r / y x ' y ' r / 1.6 x y r -
Base colors
Manwe
'24 Oct 28
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.30 * pop + t * sin ; x y spiral x y spiral x y spiral
Sprial with sprials Redux
Anonymous
'24 Oct 28
: bar * sin + ; : barx x bar ; : bary y bar ; : bart t bar ; : foo 0 11 bart 17 bary 19 barx 0 3 bart 5 barx 7 bary * + 7 * sin ; 0 foo 1 foo 2 foo
oily Redux animated
edwardfanboy
'24 Oct 28
: sinc dup sin swap / ; x 0.5 - 31 t sin 10 * + * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 31 t 1 + sin 10 * + * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 31 t 2 + sin 10 * + * sinc 0.7 + 2 / y - abs 0.03 <
sinc Redux with anim
edwardfanboy
'24 Oct 28
: r dup push swap y 12 pow + * t + sin x pop * cos + dup floor - ; 0.085 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall (anim)
Manwe
'24 Oct 28
: r dup push swap y 12 pow + * sin x pop * cos + dup floor - ; 0.085 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall
Manwe
'24 Oct 28
: h .5 - * ; : z 1 1 y h / -1 * ; : s h t sin ; : d x z * z 2 / - ; t cos y z * s d h - t - 2 * floor t cos d s y z * h + 2 * + 2 mod floor z .2 * /
mode 7 rotation (yet smaller)
boomlinde
'24 Oct 28
: x0 x 2 * 1 - ; : y0 y 2 * 1 - ; : n x0 dup * y0 dup * + 4 - sqrt ; : len3 dup * swap dup * + swap dup * + sqrt ; : world dup dup push push x0 n / * pop y0 n / * pop -2 n / * 3 + len3 1 - y0 1 + min ; : l dup world + ; 0 l l l l l l l l l l l l l 5 / dup dup t drop
Ray Tracing 1 (GLSL) Redux
Anonymous
'24 Oct 28
x y * 127 2 pow * sin y y * / y t sin 2 + 3 /
Pattern 10x10
Manwe
'24 Oct 28
Next