Haiku Gallery
: s sin 1 + 2 /; t s x s
Untitled
Anonymous
'14 Jan 20
: a 0.5 a a 2 * 0
Untitled
Anonymous
'14 Jan 20
: 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
'14 Jan 20
: 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
'14 Jan 20
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'14 Jan 20
: 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
'14 Jan 20
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
Untitled
Anonymous
'14 Jan 20
x y sin 2 / 0.5 + t
Minimal animation Redux
Anonymous
'14 Jan 20
: 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 Redux
Anonymous
'14 Jan 20
: 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 l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
Coffee (final)
Manwe
'14 Jan 17
: 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 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
Cofe Ray Tracing
Manwe
'14 Jan 16
: x0 x 1.6 * .8 - ; : 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 x0 d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t sin + r> / l l l l l l l l l l l l l l l l l l drop drop drop 5 / d d
Ray Tracing 2
Manwe
'14 Jan 16
: d dup ; : x0 x 2 * 1 - t cos + ; : y0 y 2 * 1 - ; : n x0 d * y0 d * + 4 + sqrt ; : m swap / * d * -rot ; : l 2dup 2dup x0 m 2dup y0 m -2 t .2 + sin .3 * + 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 drop 5 / d .3 * d rot
blue ball
Anonymous
'14 Jan 16
: x x 10 * 5 - ; : y y 10 * 5 - ; : j 2dup z* ; : g 2dup z+ ; : 7 dup * swap dup * ; x y j j j g 7 j j j
James
James
'14 Jan 16
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
'14 Jan 14
: 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
'14 Jan 14
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
robu
'14 Jan 13
: 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
'14 Jan 13
x 2 ** y 1 x 1 y - / 50 * cos + * - y 5 ** - dup dup
Ladder
Ivanq
'14 Jan 13
: 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
'14 Jan 13
: 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
'14 Jan 13
x 1 * sin 2 ** y 1 * sin x y - 50 * cos x 1 y - - 50 * cos + * / dup dup
Chess
Ivanq
'14 Jan 13
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco
Ivanq
'14 Jan 13
( 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
'14 Jan 12
: 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
'14 Jan 12
: 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_
'14 Jan 11
: p .5 - dup * 524288 * + ; t -4 * x p y p dup 2 / dup 2 / sin rot sin rot sin
MR exact opt 78b
frag_
'14 Jan 11
: p .5 - dup * 131072 * + ; 0 t - x p y p dup 2 * dup 2 * sin -rot sin -rot sin
MR exact opt
frag_
'14 Jan 11
: b .5 - 362 * dup * ; x b y b + t - dup 2 * dup 2 * sin -rot sin -rot sin
Moire Redux
Anonymous
'14 Jan 11
: (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
'14 Jan 11
x 256 * 128 - dup * y 256 * 128 - dup * + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
Moire
Manwe + DiLemming
'14 Jan 11
: d x y mod 2; d x y mod 4 *
Untitled Redux
Anonymous
'14 Jan 11
x y mod 10 * x y mod 2 * x y mod 4 *
Untitled
Anonymous
'14 Jan 11
: 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
'14 Jan 11
: 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
'14 Jan 10
: 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
'14 Jan 09
: 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
'14 Jan 09
: 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
'14 Jan 08
: 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
'14 Jan 08
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Candy 69 bytes
Manwe + Digimind
'14 Jan 06
Next