Haiku Gallery
: p .5 - dup * 131072 * + ; 0 t - x p y p dup 2 * dup 2 * sin -rot sin -rot sin
MR exact opt
frag_
'25 Jul 14
: b .5 - 362 * dup * ; x b y b + t - dup 2 * dup 2 * sin -rot sin -rot sin
Moire Redux
Anonymous
'25 Jul 14
: (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
'25 Jul 14
x 256 * 128 - dup * y 256 * 128 - dup * + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
Moire
Manwe + DiLemming
'25 Jul 14
: d x y mod 2; d x y mod 4 *
Untitled Redux
Anonymous
'25 Jul 14
x y mod 10 * x y mod 2 * x y mod 4 *
Untitled
Anonymous
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Candy 69 bytes
Manwe + Digimind
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: ' 0.6 - ; : r dup * swap dup * + sqrt ; x x ' y ' r / y x ' y ' r / 1.6 x y r -
Base colors
Manwe
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
: 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
'25 Jul 14
x y * 127 2 pow * sin y y * / y t sin 2 + 3 /
Pattern 10x10
Manwe
'25 Jul 14
: 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
Ray Tracing 1 (GLSL)
Manwe
'25 Jul 14
: web push push x 0.1 + y 0.3 + * pop * sin 0 max x 0.1 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'25 Jul 14
: px x 5 * ; : py y 5 * t - ; : fract dup floor - ; : mix dup push * swap 1 pop - * + ; : f fract dup dup 2 * 3 swap - * * ; : r -3 exp * sin 5 exp * fract ; : v px floor py floor 3 exp * + ; : c y * y pop mix ; v r v 1 + r px f mix v 3 exp + dup push r pop 1 + r px f mix py f mix y 0.7 * 0.1 + > dup dup push push push 1.2 c 0.5 c 0.2 c
LavaLamp
Manwe (remix by Trisomie21's shader)
'25 Jul 14
x y t sin 2 / 0.5 +
Minimal animation
Manwe (default ShaderToy shader remix)
'25 Jul 14
x x x * 2 * t + 10 * sin * sin abs y x t cos 1.0 + + * 10 * sin 2 t 3 * sin 1.5 * + pow * 0.5 * dup 1 t x 2 * + sin + * dup 1.7 *
digidisko
cce
'25 Jul 14
: xo x 0.5 - 2 * ; : yo y 0.5 - 2 * ; : x' t 5 / cos xo 0.5 - * t 5 / sin yo 0.5 - * + ; : y' t 5 / cos yo 0.5 - * t 5 / sin xo 0.5 - * - ; : level dup push x' * 0.125 - 4 * t 1.2 * sin 8 * + floor 2 mod 0 = 0.5 * pop dup push y' * 0.125 + 4 * t cos 8 * + floor 2 mod 1 = 0.5 * + floor pop * ; : blit dup push level - 0 max pop dup push level + pop 0.08 - ; 0.3 0 1 blit blit blit blit blit drop 3 pow
plutonium rotator
boomlinde
'25 Jul 14
: xo x 0.5 - 2 * ; : yo y 0.5 - 2 * ; : level dup push xo * 0.125 - 4 * t 1.2 * sin 8 * + floor 2 mod 0 = 0.5 * pop dup push yo * 0.125 + 4 * t cos 8 * + floor 2 mod 1 = 0.5 * + floor pop * ; : blit dup push level - 0 max pop dup push level + pop 0.08 - ; 0 0 1 blit blit blit blit blit blit blit blit blit blit blit blit drop 0.3
plutonium
boomlinde
'25 Jul 14
: z 1 y 2 * 1 - / ; : d x z * z 2 / - ; t cos y z * 0.5 - * t sin d 0.5 - * - t 2 * - 2 * floor t cos d 0.5 - * t sin y z * 0.5 - * + 2 * + 2 mod floor 0 = z abs 0.3 * / y 0.5 < * 0.5
mode 7 rotation (small)
boomlinde
'25 Jul 14
: z 1 y 2 * 1 - / ; : xd x z * z 2 / - ; : yd y z * ; : x' t cos xd 0.5 - * t sin yd 0.5 - * + ; : y' t cos yd 0.5 - * t sin xd 0.5 - * - ; y' t 2 * - 2 * floor x' 2 * + 2 mod floor 0 = z abs 0.3 * / y 0.5 < * 0.5
mode 7 rotation
boomlinde
'25 Jul 14
: po 2 pow x 1.7 / sin 0.5 * 0.5 + * ; t 0.3 * sin x * t 0.2 * cos y * + t + 6 * t + sin 0.3 * t 0.2 * cos x * t 0.5 * sin y * - + 2 * sin t + 0.5 * t sin 0.3 * dup swap + y sin pi * x t + sin + 0.5 * - + dup sin po swap dup 2 / pi 2 * 3 / + dup sin po 2 * sin po
Untitled
Anonymous
'25 Jul 14
: texture t - 2 * floor swap 2 * + 2 mod floor 0 = ; : z 1 y 2 * 1 - / ; x z * z 2 / - y z * texture z abs 0.3 * / y 0.5 < * dup dup
mode 7
boomlinde
'25 Jul 14
: x2 0.5 x - ; : y2 0.5 y - ; x dup * y min y dup * x min 1 x2 - 1 y2 - *
pinch Redux
Stainless
'25 Jul 14
x y t sin 0.5 * 0.5 +
Untitled
Anonymous
'25 Jul 14
Next