Haiku Gallery
: line y - abs 0.012 < ; : z 0.75 line 0.25 line + ; x 0.5 * 2 * pi * sin 4 / 0.25 + y < z + floor x 2 + pi - cos 4 / 0.75 + y < z - z t + y mod 1
hacked Sinus Cosinus 47 woords
Anonymous
'25 Jul 09
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.997 - d 0 > 2 * 0.2 - * 0.01 + ; : e 2.9 r 0.94 * 0.07 + ; : f 3.7 r ; random : 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
hacked PONG gamee
aaaj min mageeeq
'25 Jul 09
x 5 y 2 / mod
albin
albin
'25 Jul 09
: d dup ; spiral : 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
hacked PONG game Redux Redux
Anonymous
'25 Jul 09
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.997 - d 0 > 2 * 0.2 - * 0.01 + ; : e 2.9 r 0.94 * 0.07 + ; : 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
hacked PONG game Redux
simon
'25 Jul 09
: d dup ; : ' .5 - ; : r y ' 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 999 * 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 /
m0ns13r
nameless
'25 Jul 09
x 2 t sin + * 1.0 mod 0.8 - dup * t 1 mod + y 2 t sin + * 1.0 mod 0.3 - dup * spiral + sqrt 50 * t 4 * - sin dup y t + * dup y * floor
hacked zuumeer
aaaj min mageeeq
'25 Jul 09
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 1.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral y x y 0.03 - spiral x * random + * y x x *
hacked Hypnotism 2 Reduux Redux
Anonymous
'25 Jul 09
: d dup ; spiral : 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
hacked PONG game Redux
Anonymous
'25 Jul 09
: 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 0 > * ; t cos 1 + 2 / t sin 1 + 2 / mant t sin 1 + 2 / t cos 1 + 3 / mant t cos 1 + 2 / t cos 1 + 2 / mant
glitchy mandelbrot
nameless
'25 Jul 09
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 1.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral y x y 0.03 - spiral x * random + * y x spiral x *
hacked Hypnotism 2 Reduux
aaaj min mageeeq
'25 Jul 09
( inspired by "Web Wars" game on Vectrex console ) ( let's discuss Forth Haiku on demoscene.ru forum ) : t t 21 + ; : d dup ; : fract d floor - ; : n 6 ; : xx x .5 - ; : yy y .5 - ; : xw x .5 - 10 * ; : xw y .37 - t 2.5 * 1.1 - sin 3.0 / - 14 * ; : dy t n / floor sin 2 * ; : dy t n / floor cos 2 * ; : zoom 1 1 t n / fract - 50 * 1 + / ; : phase t fract pi * 3 * ; : wings random 1 xw cos t 2.5 * sin * xx abs .5 + * yw - abs - 1 xx 2.3 * abs - sqrt * 0 max 8 ** d >r 20 * 4 ** 1 min max r> 9 * 4 ** 1 min - ; 5 xx d * yy d * + sqrt d -rot / phase + sin abs over 9 * 4 ** ** swap .15 max .15 - * 4 * 1 zoom dx over * xx - d * over dy * yy - d * + sqrt swap 2dup >r >r 2 / - - abs 200 ** 1 min max 1 r> r> 2.2 / - - abs 200 ** - 0 max 1 min wings d d
hacked Vectrex fiix
Anonymous
'25 Jul 09
1 y 1.5 * - x y 2 * 8 ** t 9 / sin * + .5 - abs 2dup > .5 y - * +rot 1.5 * > 3 1 y 1.8 * - / t 1 mod 6 * + floor 0 mod 1 y 1.8 * - * 4 / * - dup 1 = .5 y - * .75 ** y .5 < * over - over 1 x t 9 / cos + 12 * sin 30 / y .6 - < * + 1.5 y 1.3 * - y .5 > * -
??????????GLITCH????????
nameless
'25 Jul 09
: square random * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral x y 0.03 - spiral x * y x spiral y *
hacked Hypnotism 2 Redux Reduaax
Anonymous
'25 Jul 09
: s t floor 10 mod ; : u t 60 / floor 60 mod ; : h t 7890 / floor 60 mod ; : ts s 8 <= 280 s + * 8 s <= m 22 <= * 271 17 s 8 - * - * + 23 s <= s 37 <= * 38 s - * + 38 s <= s 52 <= * s 37 - 17 * * + 53 s <= 220 s + * + ; : tm m 7 <= 280 m + * 8 m <= m 22 <= * 271 17 m 8 - * - * + 23 m <= m 37 <= * 38 m - * + 38 m <= m 52 <= * m 37 - 17 * * + 53 m <= random 220 m + * + ; : th h 7 <= 280 h + * 8 h <= h 22 <= * 271 17 h 8 - * - * + 23 h <= h 37 <= * 38 h - * + 38 h <= h 52 <= * h 37 - 17 * * + 53 h <= 220 h + * + ; : ix x 17 * floor ; : iy y 17 * floor ; : i ix iy 17 * + ; : f i 17 mod 16 = i 17 mod 0 = or i 16 < or i 272 > or ix 3 <> * ix 8 <> * ix 13 <> * iy 3 <> * iy 8 <> * iy 13 <> * ix 0 = iy 0 = * not * ix 0 = iy 16 = * not * ix 16 = iy 0 = * not * ix 16 = iy 16 = * not * 0.15 * ; : marker i 275 = i 280 = + i 285 = + i 237 = + i 152 = + i 67 = + i 13 = + i 8 = + i 3 = + i 51 = + i 136 = + i 221 = + 0.25 * ; ts i = marker + f + tm i = marker + f + th i = marker + f +
hacked Matrix Clock 384 woords
Anonymous
'25 Jul 09
: random' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup
hacked xor tunnel dark Reduux
Anonymous
'25 Jul 09
: << 1 < swap 1 t 1 mod + < * ; : >> 0 > swap 0 > * ; : z 2dup << -rot >> * * ; : x0 x 5 * 7.89 - ; : y0 y 5 * 0.5 - ; : z0 x0 y0 z ; : x1 x 5 * 2 - ; : y1 y 5 * 1.5 - ; : z1 x1 y1 z ; : x2 x 5 * 2 - ; : y2 y 5 * 2.5 - ; : z2 x2 y2 z ; : x3 x 5 * 2 - ; : y3 y 5 * 3.5 - ; : z3 x3 y3 z ; : x4 x 5 * 1 - ; : y4 y 5 * 2.5 - ; : z4 x4 y4 z ; : x5 x 5 * 3 - ; : y5 y 5 * 2.5 - ; : z5 x5 y5 z ; : ' 1 swap - ; x0 z0 x1 z1 + x2 z2 + x3 z3 + 0 z4 + 1 z5 + y0 z0 1 z1 + y2 ' z2 + 0 z3 + y4 ' z9 + y5 ' z5 + 0 z0 y1 z1 + 1 z2 + y3 ' z3 + x4 z4 + x5 ' z5 +
hacked Color Cube Cross 221 woords
Anonymous
'25 Jul 09
: c t 0.01398413 + sin t -0.9132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 2 pi * * 0.5 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j j j j j j j j j j j j j j j j j j j j drop drop ; julia 16 / dup dup and and
SAAAAAAAAAAAAAAAAK
anonymouesSSSSSSS
'25 Jul 09
t : 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 < * ; 0 0 mant 0.1 0.1 mant 0.2 0.2 mant
hacked inkblot mandelbrot Reduuux
Anonymous
'25 Jul 09
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 3 mod ; : b / floor 3 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup t' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 127 w + + + + + + + 256 / dist * dup mod
hacked xor tunnel daark
Anonymous
'25 Jul 09
: c push negate swap negate y x z+ dup * swap dup * + pop dup + < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * - pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.2 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.7 0.7 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.3 -1.57 a - 0.1 l + 0.5 0.3 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 17,6 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 5 / m + + y 0.2 > * +
hacked Man running with landscapee
Anonymous
'25 Jul 09
x 9.4 * sin y 9.4 * sin t 4 * sin * * random t 2 * sin * dup t 3 * sin *
hacked Disco flooooor
Anonymous
'25 Jul 09
( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ru ) : zoom t 5 / sin 10 / ; : xx x .5 - .8 zoom - * t cos 5 / negate + ; : yy y .3 - .8 zoom - * zoom + ; : a random sin 3 / + ; : line 2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ; : wings .025 .12 line .025 -.12 line * -.025 .12 line - -.025 -.12 line - ; : flaps 0.045 .8 line 0.006 .4 line - 0.045 -.8 line 0.006 -.4 line - + + 0 max ; : tail -0.057 0 line xx .065 - yy atan2 a 0 > - xx .065 + yy atan2 a 0 < - 0 max + xx .0065 + yy atan2 a 55 * 1 min 0 max xx .0065 - yy atan2 a 55 * 1 min 0 max - + ; : cut 1 -0.064 0 line - * 0.019 0 line * ; : circle dup 0 a cos * xx - 2 ** swap 0 a sin * yy - 2 ** + - 3999 * 0 max 1 min ; : engine 0.0008 .05 circle + 0.0008 -.05 circle + ; : fire 0.0002 random 8000 / + dup >r .05 circle r> -.05 circle + 5 * ; : run 4 1 y 1.3 * - / t dup floor - 6 * + floor 2 mod dup y 1.6 * + 1 min .6 * swap 0 = y 1.6 * + 1 min .5 * ; : sun 1 x .5 - 2 ** y .94 - 2 ** + .2 ** - ; run sun + wings flaps tail cut engine dup -rot - -rot - dup 0 > fire dup dup >r >r + rot r> + rot r> .65 * + 0 max .27 ** dup .05 < .36 * +
hacked Planet of Zoom
Anonymous
'25 Jul 09
: 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 0.9 + min + r> r> r> ; 0 y 1.7 * .85 - d u * y0 d * + 4 + sqrt d d >r >r random + / 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 1 + 3.7 / d d * over sqrt -rot
hacked Coffee (finaal)
Anonymous
'25 Jul 09
random ( Arecibo Answer, 23*73 = 1679 bits) ( NVidia GeForce GTX 460, 8600 GT ) : w 64 * floor ; : h 80 * floor ; : d ( v n - d ) >r 2 r> ** / floor 2.5 mod ; : , ( v y - f ) y h = >r x w d r> * ; : # ( c y v - c' y' ) , + ; 0 0 4272001 0 # 529544 1 # 393264 2 # 2506290 3 # 1655116 4 # 1671372 5 # 2574706 6 # 21760 7 # 2574706 8 # 1671372 9 # 1655116 10 # 2506290 11 # random 12 # 589896 13 # 0 14 # 335958 15 # 5592326 16 # 8192 17 # t 18 # 398338 19 # 8259586 20 # 7219712 21 # 7740444 22 # 8259584 23 # 7150594 24 # 10754 25 # 114306 26 # 409186 27 # 1580048 28 # 2097160 29 # 1574916 30 # 397316 31 # 104456 32 # 399376 33 # 1579104 34 # 2103680 35 # 1576960 36 # 399744 37 # 102496 38 # 399376 39 # 1579016 40 # 4096 41 # t 42 # 8132639 43 # 4200464 44 # 6144 45 # 2103304 46 # 0 47 # 8255455 48 # 2941707 49 # 262401 50 # 815299 51 # 0 52 # 8126495 53 # 4194320 54 # 0 55 # 2097160 56 # 0 57 # 8255455 58 # 2896267 59 # 311297 t 1.5 mod + 60 # 799171 61 # 0 62 # 32256 63 # 1894 64 # random 65 # 27648 66 # 28672 67 # 0 68 # 1201493 69 # 2527505 70 # 1053716 71 # 5440 72 # t pi * 3 / sin 1 + 2 / * ( : full-line 8388607 73 # ; ) 1
hacked Arecibo Answeer
Anonymous
'25 Jul 09
: s - abs ; : d y s swap x s + ; : h 139 * cos 1 mod ; : r r> t + dup >r h ; : i r r d min ; : 8i i i i i i i i i ; 1 0 >r 8i 8i 8i r> drop random * dup dup
hacked flaash
Anonymous
'25 Jul 09
: 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 3.7 / d d * over sqrt -rot
Untitled
Anonymous
'25 Jul 09
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.9 * sin 2 / random + ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * floor .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 /
hacked goldbuump
Anonymous
'25 Jul 09
: d dup ; : m 1 min ; : f d floor - ; : c cos abs 2 + ; : j t 4 + 2 * x 16 * floor 7 / + 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.2 max random + a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 > * + d 0.2 atan2
hacked pacmaan
Anonymous
'25 Jul 09
x 9.4 * sin 0 y 9.4 * 1 + - t 4 * sin * * dup t 2 * sin * 1 + dup t 3 * sin * random -
Disco Redux
Anonymous
'25 Jul 09
.24 .7 t y 365 * floor mod dup 2 mod rot mod floor drop 0 swap
Useless days Haiku
Benevolent1
'25 Jul 09
t y * : buy floor dup 2 mod swap 60 / ; buy buy buy drop
Useless blinking Haiku
Benevolent1
'25 Jul 09
: s - abs ; : d y s swap x s + ; : h 139 * cos 1 mod ; : r r> 1 + dup >r h ; : i r r d min ; : 8i i i i i i i i i ; 1 0 >r 8i 8i 8i r> drop 3 * dup dup
Flash
Vort
'25 Jul 09
: yl y - abs 0.002 < ; : xl x - abs 0.002 < ; : z 0.75 yl 0.5 yl + 0.25 yl + 0.75 xl 0.5 xl + 0.25 xl + + ; x 2 * pi * sin 4 / 0.25 + y < z + x 2 * pi * cos 4 / 0.75 + y < z + z
Sinus Cosinus 65 words
Christer Nilsson
'25 Jul 09
( Arecibo Answer, 23*73 = 1679 bits) ( NVidia GeForce GTX 460, 8600 GT ) : w 64 * floor ; : h 80 * floor ; : d ( v n - d ) >r 2 r> ** / floor 2 mod ; : , ( v y - f ) y h = >r x w d r> * ; : # ( c y v - c' y' ) , + ; 0 0 4272001 0 # 529544 1 # 393264 2 # 2506290 3 # 1655116 4 # 1671372 5 # 2574706 6 # 21760 7 # 2574706 8 # 1671372 9 # 1655116 10 # 2506290 11 # 393264 12 # 589896 13 # 0 14 # 335958 15 # 5592326 16 # 8192 17 # 2 18 # 398338 19 # 8259586 20 # 7219712 21 # 7740445 22 # 8259584 23 # 7150594 24 # 10754 25 # 114306 26 # 409186 27 # 1580048 28 # 2097160 29 # 1574916 30 # 397316 31 # 104456 32 # 399376 33 # 1579104 34 # 2103680 35 # 1576960 36 # 399744 37 # 102496 38 # 399376 39 # 1579016 40 # 4096 41 # 6144 42 # 8132639 43 # 4200464 44 # 6144 45 # 2103304 46 # 0 47 # 8255455 48 # 2941707 49 # 262401 50 # 815299 51 # 0 52 # 8126495 53 # 4194320 54 # 0 55 # 2097160 56 # 0 57 # 8255455 58 # 2896267 59 # 311297 60 # 799171 61 # 0 62 # 32256 63 # 18944 64 # 27648 65 # 27648 66 # 28672 67 # 0 68 # 1201493 69 # 2527505 70 # 1053716 71 # 5440 72 # t pi * 3 / sin 1 + 2 / * ( : full-line 8388607 73 # ; ) 1
Arecibo Answer
DarkstarAG
'25 Jul 09
: yl y - abs 0.002 < ; : xl x - abs 0.002 < ; : z 0.75 yl 0.5 yl + 0.25 yl + 0.75 xl 0.5 xl + 0.25 xl + + ; x 0.5 + 2 * pi * sin 4 / 0.25 + y < z + x 2 * pi * cos 4 / 0.75 + y < z + z
Sinus Cosinus 67 words
Christer Nilsson
'25 Jul 09
: line y - abs 0.002 < ; : z 0.75 line 0.25 line + ; x 0.5 + 2 * pi * sin 4 / 0.25 + y < z + x 2 * pi * cos 4 / 0.75 + y < z + z
Sinus Cosinus 47 words
Christer Nilsson
'25 Jul 09
: line y - abs 0.002 < ; x 0.5 + 2 * pi * sin 4 / 0.25 + y < 0.75 line 0.25 line + + x 2 * pi * cos 4 / 0.75 + y < 0.75 line 0.25 line + + 0.75 line 0.25 line +
Sinus Cosinus
Christer Nilsson
'25 Jul 09
: z t 2 pi * mod sin 2 / 0.5 + ; z z z 1
Sleep (haiku)
Christer Nilsson
'25 Jul 09
: z t 2 pi * mod sin 2 / 0.5 + ; z z z 1
Breathing (haiku)
Christer Nilsson
'25 Jul 09
Next