Haiku Gallery
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 Jun 05
: 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 Jun 05
: 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 Jun 05
x 9.4 * sin y 9.4 * sin t 4 * sin * * random t 2 * sin * dup t 3 * sin *
hacked Disco flooooor
Anonymous
'25 Jun 05
( 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 Jun 05
: 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 Jun 05
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 Jun 05
: 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 Jun 05
: 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 Jun 05
: 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 Jun 05
: 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 Jun 05
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 Jun 05
.24 .7 t y 365 * floor mod dup 2 mod rot mod floor drop 0 swap
Useless days Haiku
Benevolent1
'25 Jun 05
t y * : buy floor dup 2 mod swap 60 / ; buy buy buy drop
Useless blinking Haiku
Benevolent1
'25 Jun 05
: 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 Jun 05
: 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 Jun 05
( 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 Jun 05
: 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 Jun 05
: 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 Jun 05
: 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 Jun 05
: z t 2 pi * mod sin 2 / 0.5 + ; z z z 1
Sleep (haiku)
Christer Nilsson
'25 Jun 05
: z t 2 pi * mod sin 2 / 0.5 + ; z z z 1
Breathing (haiku)
Christer Nilsson
'25 Jun 05
: << 1 < swap 1 < * ; : >> 0 > swap 0 > * ; : z 2dup << -rot >> * * ; : x0 x 5 * 2 - ; : 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 ' z4 + y5 ' z5 + 0 z0 y1 z1 + 1 z2 + y3 ' z3 + x4 z4 + x5 ' z5 +
Color Cube Cross 221 words
Christer Nilsson
'25 Jun 05
x 0.5 - dup * y 0.5 - t 0.5 * sin 0.2 * + dup * + sqrt dup x 0.5 - y 0.5 - t 0.5 * sin 0.2 * + atan2 pi / t 0.05 * + swap 1 swap / t + 1 * 2 mod floor swap 8 * 2 mod floor and 1 swap - * 0.8 swap -
tunnel
cce
'25 Jun 05
x 2 t sin + * 1.0 mod 0.5 - dup * y 2 t sin + * 1.0 mod 0.5 - dup * + sqrt 50 * t 4 * - sin dup y * dup x *
zuumer
cce
'25 Jun 05
x 2 t sin + * 1.0 mod 0.5 - dup * y 2 t sin + * 1.0 mod 0.5 - dup * + sqrt 50 * t 4 * - sin dup y * dup x *
Untitled
Anonymous
'25 Jun 05
: z .5 - 2.5 pow ; x z y z + 0.15 <
Sergels Torg 14 words
Christer Nilsson
'25 Jun 05
: z .5 - 3 * 2.5 pow ; x z y z + sqrt 1 <
Sergels Torg (haiku)
Christer Nilsson
'25 Jun 05
: s t floor 60 mod ; : m t 60 / floor 60 mod ; : h t 720 / floor 60 mod ; : ts s 7 <= 280 s + * 8 s <= s 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 <= 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 +
Matrix Clock 384 words
Christer Nilsson
'25 Jun 05
: s dup >r mod r> / dup >r swap y 3 * floor = * r> 60 * floor x 60 * floor = * ; 0 t 60 s 1 t 60 / 60 s 2 t 3600 / 24 s
Simple RGB Clock 2
DarkstarAG
'25 Jun 05
: s dup >r mod r> / swap y 3 * floor = * ; 0 t 60 s 1 t 60 / 60 s 2 t 3600 / 24 s
Simple RGB Clock
DarkstarAG
'25 Jun 05
: z mod floor x 8 * floor y 8 * floor 8 * + = ; t floor 60 z t 60 / 60 z t 3600 / 24 z
Minimal Clock 31 words
Christer Nilsson
'25 Jun 05
: z mod floor 0.87 x - 8 * floor 2 swap ** / floor 2 mod 0.92 y - 8 * floor pop = and ; 5 push t floor 60 z 3 push t 60 / 60 z 1 push t 3600 / 24 z
Binary Clock 47 words
Christer Nilsson
'25 Jun 05
: z 0.87 x - 8 * floor 2 swap ** / floor 2 mod 0.92 y - 8 * floor ; t floor 60 mod z 5 = and t 60 / 60 mod floor z 3 = and t 3600 / 24 mod floor z 1 = and
Binary Clock 50 words
Christer Nilsson
'25 Jun 05
: h t 3600 / 24 mod floor ; : m t 60 / 60 mod floor ; : s t floor 60 mod ; : z 0.87 x - 8 * floor 2 swap ** / floor 2 mod 0.92 y - 8 * floor ; s z 5 = and m z 3 = and h z 1 = and
Binary Clock 62 words
Christer Nilsson
'25 Jun 05
: h t 3600 / 24 mod floor ; : m t 60 / 60 mod floor ; : s t floor 60 mod ; : w 8 * floor 6 - negate ; : d 2 swap ** / floor 2 mod ; : z x w d y w ; s z 5 = and m z 3 = and h z 1 = and
Binary Clock 67 words
Christer Nilsson
'25 Jun 05
: h 0.66 t 3600 / floor ; : m 0.50 t 60 / floor 60 mod ; : s 0.34 t floor 60 mod ; : x5 0.10 32 ; : x4 0.26 16 ; : x3 0.42 8 ; : x2 0.58 4 ; : x1 0.74 2 ; : x0 0.90 1 ; : circle y - 2.5 pow swap x - 2.5 pow + sqrt 0.04 < ; : bit ( x0 b y0 n -- bool ) rot / floor 2 mod -rot circle and ; : hb h bit + ; : mb m bit + ; : sb s bit + ; x5 h bit x4 hb x3 hb x2 hb x1 hb x0 hb x5 m bit x4 mb x3 mb x2 mb x1 mb x0 mb x5 s bit x4 sb x3 sb x2 sb x1 sb x0 sb
BitClock Sergel
Christer Nilsson
'25 Jun 05
: z dup push mod 2 * pi * pop / dup sin swap cos ; : circle ( r cx cy -- bool ) 2.5 / 0.5 + y - 2.5 ** swap 2.5 / 0.5 + x - 2.5 ** + sqrt > ; 0.04 t 60 z circle 0.03 t 60 / 60 z circle 0.02 t 3600 / 12 z circle
Sergel Clock 4.0
Christer Nilsson
'25 Jun 05
: z dup push mod pi * pop 2 / / dup sin swap cos ; : circle ( r cx cy -- bool ) 2.5 / 0.5 + y - 2.5 ** swap 2.5 / 0.5 + x - 2.5 ** + sqrt > ; 0.04 t 60 z circle 0.03 t 60 / 60 z circle 0.02 t 3600 / 12 z circle
Sergel Clock 3.0
Christer Nilsson
'25 Jun 05
: z mod pi * 30 / dup sin swap cos ; : circle ( r cx cy -- bool ) 2.5 / 0.5 + y - 2.5 ** swap 2.5 / 0.5 + x - 2.5 ** + sqrt > ; 0.04 t 60 z circle 0.03 t 60 / 60 z circle 0.02 t 3600 / 12 mod pi * 6 / dup sin swap cos circle
Sergel Clock 2.0
Christer Nilsson
'25 Jun 05
Next