Haiku Gallery
x y max 25 * t + sin dup t sin + t sin over x +
Tiger Stripes
DANNAY
'25 Jun 07
: x 2 4 x * - ; : y 2 4 y * - ; : ts t sin ; : tc t cos ; : 2ts t 2 * sin ; : 2tc t 2 * cos ; : ball x + swap y + swap dup * swap dup * + dup 1 swap - dup * swap 1 < min ; 0 2ts ball 2ts tc 2 * ball dup+ 0.4 >
Simple Metaballs
Anonymous
'25 Jun 07
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - t sin * swap 0.5 - t sin * 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral t sin * x y spiral t sin * x y spiral t sin *
Into the Spiral
vcte
'25 Jun 07
x y min x dup swap rot swap rot swap rot drop x and y or y
570nm
Jeffy
'25 Jun 07
Random Random And Random y
Orange Pop in a Purple Glass
Jeffy
'25 Jun 07
Random Random Random y
Storm
Jeffy
'25 Jun 07
x y * 165 * sin dup dup
sin texture Redux
Anonymous
'25 Jun 07
: 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 web * x + 23 31 web 19 19 web * y x * + 31 31 web t 5 mod t 6 mod web * y +
streak Redux
Anonymous
'25 Jun 07
: 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 web * x + 23 31 web 19 19 web * y x * + 31 31 web t t web * y +
streak Redux
Anonymous
'25 Jun 07
t 0.05 * x + 50 * sin t 0.05 * y + 50 * sin * sqrt -t 0.05 * x + 50 * sin t 0.05 * y + 50 * sin * sqrt t 0.05 * x + 50 * sin -t 0.05 * y + 50 * sin * sqrt
RGB
@flohofwoe
'25 Jun 07
t x * x * x * 10 * sin t y * y * y * 10 * cos t x * y * x * y * 10 * sin
threads
@flohofwoe
'25 Jun 07
: 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 Jun 07
x y + 2 / t 2 * sin * 2 *
test
Anonymous
'25 Jun 07
x y * 1650 * sin dup dup
sin texture
Anonymous
'25 Jun 07
.25 x 10 * t + y 10 * - sin .5 * x 5 * t + y 5 * + sin .5 * - .5 * - x 5 * t + y 5 * - sin .5 * x 25 * t + y 25 * + sin .5 * - .75 * .5 x 50 * t + y 50 * - sin .5 * x 50 * t + y 50 * + sin .5 * - .75 * -
Untitled
Anonymous
'25 Jun 07
: x x 2 * 1 - ; : y y 2 * 1 - ; : d dup ; : o over ; : l o -2 * o / 4 t 3 / sin + + >r o x * o / >r o y * o / 1 + d 1 - t sin + ( jump ) d 2 * 20 ** swap 2 ** min r> r> ( rotate ) 2dup t cos * swap t sin * - >r t sin * swap t cos * + d 2 * 20 ** swap 2 ** min + r> .6 ** + sqrt 1 - min rot + swap ; 0 x d * y d * + 4 + sqrt l l l l l l l l l l l drop d 4.5 / 2 ** swap 9 / d 20 / 1 swap - -rot ( colors )
Ray Casting
Manwe
'25 Jun 07
: ' 20 * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : _ 20 * floor 5 + ; x _ y _ t 8 * floor - 7 + cos x _ sin / * 1 mod 0.5 >= dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + dup dup 0.22 * 0.2 + swap 0.22 * 0.15 + rot 0.24 * 0.47 +
10 PRINT... smaller
boomlinde
'25 Jun 07
: s t 8 * floor - ; : ' 20 * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : _ 20 * floor 5 + ; : r x _ y _ s 7 + cos x _ sin / * 1 mod 0.5 >= ; : d r dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + ; 0.2 1 d - * 0.42 d * + 0.15 1 d - * 0.37 d * + 0.47 1 d - * 0.71 d * +
10 PRINT CHR$(205.5+RND(1)); : GOTO 10
boomlinde
'25 Jun 07
: r random 2 * 1 - * + ; : tr t 8 * sin 0.05 * r ; : x' x 0.5 - tr ; : y' y 0.5 - tr ; : d x' dup * y' dup * + 0.1 < ; d d d
destroy
boomlinde
'25 Jun 07
: square dup * ; : dist square swap square + sqrt ; : center 0.5 - swap 0.5 - ; x y center 2dup dist push atan2 pop swap dup 3 * t - sin 1 + 4 / swap 20 * t 2 * + sin 10 / + - abs 1 + 1 swap / square square
Camomile 2
digiMIND
'25 Jun 07
: square dup * ; : dist square swap square + sqrt ; : center 0.5 - swap 0.5 - ; x y center 2dup dist push atan2 pop swap 7 * t + sin 1 + 4 / - abs 1 + 1 swap / square square
Camomile
digiMIND
'25 Jun 07
: f ( -- n ) 0.4 t * ; : x' ( -- x' ) f cos x * f sin y * - ; : y' ( -- y' ) f cos y * f sin x * + ; : p ( f_x f_y -- c ) x' * sin 1 + 2 / swap y' * sin 1 + 2 / * ; : sqr dup * ; x' sqr 100 * y' sqr 100 * p y' 100 * x' p x' y' 100 * p
Disco
lisko
'25 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
x y x y + 2 / t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
: c 0.5 - ; (center) : s dup * ; (square) : *+ dup rot * + ; x c s y c s + t sin 0.1 *+ <
circle pulse
angryduck
'25 Jun 07
: c 0.5 - ; (center) : s dup * ; (square) x c s y c s + 0.2 <
circle
angryduck
'25 Jun 07
: 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 Jun 07
: 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 Jun 07
: 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 Jun 07
Next