Haiku Gallery
: tx x 4 * 2 - ; : ty y 4 * 2 - ; : mx tx t sin * ty t cos * + 0.5 - ; : my tx t cos * ty t sin * - ; : sqabs dup * swap dup * + ; : isnan 1 swap dup 0 > swap 0 <= - - ; : mit 2dup z* mx my z+ ; : bx x 0.5 - ; : by y 0.5 - ; : b 1 bx bx * by by * + 4 * - ; 0 0 mit mit mit mit mit mit mit mit mit mit mit mit mit mit mit mit mit sqabs dup 4 > swap isnan or b * dup dup
Rotating mandelbrot ball
Ztane
'25 Jul 10
: tx x 4 * 2 - ; : ty y 4 * 2 - ; : mx tx t sin * ty t cos * + 0.5 - ; : my tx t cos * ty t sin * - ; : sqabs dup * swap dup * + ; : isnan 1 swap dup 0 > swap 0 <= - - ; : mit 2dup z* mx my z+ ; 0 0 mit mit mit mit mit mit mit mit mit mit mit mit mit mit mit mit mit sqabs dup 4 > swap isnan or dup x * over y *
Rotating mandelbrot
Ztane
'25 Jul 10
: tx x 4 * 2 - ; : ty y 4 * 2 - ; : mx tx t sin * ty t cos * + ; : my tx t cos * ty t sin * - ; : sqabs dup * over dup * + ; 0 0 mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ sqabs 4 >
Rotating mandelbrot
Ztane
'25 Jul 10
: mx x 3 * 2 - ; : my y 2 * 1 - ; : sqabs dup * over dup * + ; 0 0 mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ sqabs 4 >
Mandelbrot Foo
Ztane
'25 Jul 10
: mx x 3 * 2 - ; : my y 2 * 1 - ; : sqabs dup * over dup * + ; 0 0 mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ sqabs 4 >
Mandelbrot Redux
Ztane
'25 Jul 10
: mx x 3 * 2 - ; : my y 2 * 1 - ; : sqabs dup * over dup * + ; 0 0 mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ sqabs 4 >
Mandelbrot
Anonymous
'25 Jul 10
x y x y + 2 / t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Jul 10
: iy 8 y 30 t sin 20 * + * floor 9 mod - ; : ix 8 x 30 t sin 20 * + * floor 9 mod - ; : . swap 2 * + ; : line swap 2 ix ** / floor 2 mod swap iy = * swap + 0 ; 0 0 0 . 0 . 0 . 1 . 1 . 0 . 0 . 0 . 0 line 0 . 0 . 1 . 1 . 1 . 1 . 0 . 0 . 1 line 0 . 1 . 1 . 1 . 1 . 1 . 1 . 0 . 2 line 1 . 1 . 0 . 1 . 1 . 0 . 1 . 1 . 3 line 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 4 line 0 . 0 . 1 . 0 . 0 . 1 . 0 . 0 . 5 line 0 . 1 . 0 . 1 . 1 . 0 . 1 . 0 . 6 line 1 . 0 . 1 . 0 . 0 . 1 . 0 . 1 . 7 line drop dup
space invader zoom
boomlinde
'25 Jul 10
: iy 7 y 8 * floor - ; : ix 7 x 8 * floor - ; : . swap 2 * + ; : line swap 2 ix ** / floor 2 mod swap iy = * swap + 0 ; 0 0 0 . 0 . 0 . 1 . 1 . 0 . 0 . 0 . 0 line 0 . 0 . 1 . 1 . 1 . 1 . 0 . 0 . 1 line 0 . 1 . 1 . 1 . 1 . 1 . 1 . 0 . 2 line 1 . 1 . 0 . 1 . 1 . 0 . 1 . 1 . 3 line 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 4 line 0 . 0 . 1 . 0 . 0 . 1 . 0 . 0 . 5 line 0 . 1 . 0 . 1 . 1 . 0 . 1 . 0 . 6 line 1 . 0 . 1 . 0 . 0 . 1 . 0 . 1 . 7 line drop dup
space invader
boomlinde
'25 Jul 10
: p t 2.3 / sin 10 / y + .7 ; : m x t 2.5 / + * sin 1 over dup * - sqrt atan2 pi / 5 / y .2 - > + ; p - abs x .15 - abs + .03 < x .15 > * p < p .03 - > * x .15 > * + p - x .2 - + .1 > - 0 9.7 m 5.3 m 7.7 m .9 min .9 over -
Retro Bomber
thesands.ru/forth
'25 Jul 10
: 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 ; вечерним вьюнком я в плен захвачен… недвижно стою в забытьи.
Pulse 2
Anonymous
'25 Jul 10
: 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 ; на мёртвой ветке чернеет ворон. осенний вечер.
Pulse
Anonymous
'25 Jul 10
: 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 Jul 10
: c 0.5 - ; (center) : s dup * ; (square) : *+ dup rot * + ; x c s y c s + t sin 0.1 *+ <
circle pulse
angryduck
'25 Jul 10
: c 0.5 - ; (center) : s dup * ; (square) x c s y c s + 0.2 <
circle
angryduck
'25 Jul 10
: l 2dup z* .019 t 5 / cos * .6328 z+ ; : f l l l l l l l l l l ; y .5 - .5 x - f f f f f f .45 max -.2 rot - 2dup + abs 2 **
Fractal 125 bytes
Manwe
'25 Jul 10
: l 2dup z* .3 .5 z+ ; : f l l l l l l l ; x .7 - y f f f f f f
Fractal 63 bytes
Manwe
'25 Jul 10
: l 2dup * 2 * .63 + -rot dup * swap dup * - .04 t 5 / cos * + ; : f l l l l l l l l l l ; y .15 - x .6 - f f f f ( colours ) 2dup dup 1 t 9 / sin * - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot 0 max x .5 - dup * y .5 - dup * + sqrt + -rot
Fractal 255 bytes
Manwe
'25 Jul 10
: x x .4 - 2 / ; : y y 0.1 + 2 / ; : l 2dup * 2 * .63 + cos -rot dup * swap dup * - .09 sin + ; : f l l l l l l l l l ; 0 y x f f f f f abs swap 9 ** 3 /
Malachite
Manwe
'25 Jul 10
: x x .6 - 1 / ; : y y 0.15 - 1 / ; : l 2dup * 2 * .635 + -rot dup * swap dup * - .04 t 5 / cos * + ; : f l l l l l l l l l l l ; y x f f f f 2dup dup 1 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot
Fractal 1
Manwe
'25 Jul 10
: k 1 32 / ; : s 1 + swap 1 + ; : f s atan2 596677 * 1 mod ; : c dup k mod - ; : d c k + ; : a k / 1 mod ; : b a negate 1 + ; : sd swap dup ; : q1 c sd b swap c rot f * ; : q2 c sd a swap d rot f * ; : q3 d sd b swap c rot f * ; : q4 d sd a swap d rot f * ; : q12 2dup q1 -rot q2 + ; : q34 2dup q3 -rot q4 + ; : l 2dup dup b -rot q12 * -rot dup a -rot q34 * + ; x y l dup push dup 0.75 t cos * > * pop dup push dup 0.45 t cos * > * pop 0.45 t cos * <
Blurred noise as planet Redux Redux
Stainless
'25 Jul 10
: k 1 16 / ; : s 1 + swap 1 + ; : f s atan2 556677 * 1 mod ; : c dup k mod - ; : d c k + ; : a k / 1 mod ; : b a negate 1 + ; : sd swap dup ; : q1 c sd b swap c rot f * ; : q2 c sd a swap d rot f * ; : q3 d sd b swap c rot f * ; : q4 d sd a swap d rot f * ; : q12 2dup q1 -rot q2 + ; : q34 2dup q3 -rot q4 + ; : l 2dup dup b -rot q12 * -rot dup a -rot q34 * + ; x y l dup push dup 0.75 t cos * > * pop dup push dup 0.45 t cos * > * pop 0.45 t sin * <
Blurred noise as planet Redux
Stainless
'25 Jul 10
: k 1 32 / ; : s 1 + swap 1 + ; : f s atan2 556677 * 1 mod ; : c dup k mod - ; : d c k + ; : a k / 1 mod ; : b a negate 1 + ; : sd swap dup ; : q1 c sd b swap c rot f * ; : q2 c sd a swap d rot f * ; : q3 d sd b swap c rot f * ; : q4 d sd a swap d rot f * ; : q12 2dup q1 -rot q2 + ; : q34 2dup q3 -rot q4 + ; : l 2dup dup b -rot q12 * -rot dup a -rot q34 * + ; x y l dup push dup 0.75 > * pop dup push dup 0.35 > * pop 0.25 <
Blurred noise as planet (BradN contact me please)
Stainless
'25 Jul 10
: m .5 - -4 * ; : l y m pi * t 5 / + cos x m + t 9 / - cos .02 * + swap x m pi * t 3 / + cos y m + t 7 / + cos .02 * + swap ; .3 .6 l l l l l l l l l l l l l l l l l l l l l l l l l l l - dup negate log dup negate swap 3 ** swap over 2 ** + swap 7 / swap
Plasma 256 bytes
www.manwe.ru
'25 Jul 10
: m .5 - 2 * abs ; : c r> pi + t 30 / cos 2 * abs + 1 mod x m over - 2 ** over y m - 2 ** + sqrt r> pi t 300 / sin 7.1 * / log + dup 1 mod >r - abs 1 min sqrt 1 swap - swap >r ; .21 .721 >r >r c c max c - sqrt c + c c min c + c - sqrt c c + r> drop r> drop
Pony's Nightmare 256b
Manwe
'25 Jul 10
: m .5 - 2 * abs ; : c r> pi + 1 mod x m over - 2 ** over y m - 2 ** + sqrt r> pi t 300 / sin 7.1 * / log + dup 1 mod >r - abs 1 min sqrt swap >r ; .21 .721 >r >r c c max c - sqrt c + c c min c + c - sqrt c c + r> drop r> drop
Pony's Nightmare
Manwe
'25 Jul 10
: q .6 - 5 * dup 1 mod * ; x q y q + t 30 / sin - 1 mod dup sqrt
Nenuphar 64b slow
Manwe
'25 Jul 10
: q .6 - 5 * dup 1 mod * ; x q y q + t sin - 1 mod dup .3 ** .5
Nenuphar 63 bytes
Manwe
'25 Jul 10
: z t sin over / y 100 t sin + + sin x 0.5 - atan2 + 15 * cos + sin ; 1 z 0.9 z 1.1 z
Color Lines BaechBall
DarkstarAG
'25 Jul 10
: z t sin over / y x 0.5 - atan2 + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines Pavo 63 b Redux
DarkstarAG
'25 Jul 10
: z t sin over / y x 0.5 - atan2 + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines Pavo 63 b Redux
DarkstarAG
'25 Jul 10
: z t sin over / y + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines 49 b
DarkstarAG
'25 Jul 10
: b t * sin 3 / .6 + y - dup abs .2 < * 16 * sin ; 1 b .9 b 1.1 b
Color Bars 65 byres
Manwe
'25 Jul 10
: b t * sin 2.5 / .6 + y - dup abs .24 < * 13 * sin ; 1 b .9 b 1.1 b
Color Bars 68 byres
Manwe
'25 Jul 10
: b t * cos 2.4 / .5 + y over - 12.6 * cos swap y - abs .12 < * ; 1 b .9 b 1.1 b
Color Bars 80 byres
Manwe
'25 Jul 10
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 15 * x 8 * floor 8 / + 4 * c 2 / t 10 + 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 Jul 10
: x x 2 * 1 - ; : y y 2 * 1 - ; y x atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 - : x x negate ; : y y negate ; y x t sin * atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 + push + pop
blempfler Redux
Stainless
'25 Jul 10
: 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 Jul 10
: x x 2 * 1 - ; : y y 2 * 1 - ; y x atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 - : x x negate ; : y y negate ; y x atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 + push + pop
blempfler
BradN
'25 Jul 10
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * tan * dup t 3 * tan *
Rep Redux Redux
xxxxxxx
'25 Jul 10
Next