Haiku Gallery
: time t 10 mod .1 * pi * mod ; y x dup dup * swap dup dup * swap z* time pi + x negate time sqrt mod 3.4 * t 1 mod negate time sqrt mod 1.5 * 0 over .025 > and
hacked Leaves (was: opaal )
aaaj min mageeq
'25 Sep 16
y 9.5 * sin x 9.3 + sin t 4 * sin + / dup t 58 * sin * dup t 3 + sin *
drajk
vim, alim, jami
'25 Sep 16
: d dup ; : ' .x - ; : r x ' 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 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx 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 /
Golden bump Redux
vim
'25 Sep 16
t : 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 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 mod
xor tunnel dark Redux
Anonymous
'25 Sep 16
: t t 10 mod .03 * pi * sin ; y t - x y mod mod pi * .3 + dup + x t - y x mod mod pi * .03 + dup
Prismatic Horizon #2
adg
'25 Sep 16
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; t sin 23 web t sin 17 web * x + t sin 31 web t cos 19 web * y x * + t tan 31 web 7 t sin web * y +
Streaked Aurora
adg
'25 Sep 16
( Welcome to www.thesands.ru/forth-demotool/ ) : f 2dup * 2 * .17 + -rot .4 ** sin swap .7 ** - .13 + ; y x .5 - f f .15 rot / .11 rot / log y * + abs dup 7 / over log rot
Ice 124 bytes
Manwe
'25 Sep 16
: time t 10 mod .1 * pi * sin mod ; y x dup dup * swap dup dup * swap z* time pi * y negate time sqrt mod 2.4 * x negate time sqrt mod 2.4 * 0 over .035 >
Leaves (was: opal )
adg
'25 Sep 16
: time t 10 mod .1 * pi * sin mod ; y x * time 2 * y time mod 2 * x time mod 2 * 0 over .035 >
opal
E.A.
'25 Sep 16
: . ( px py - k ) x -256 * y -256 * z+ over over negate z* + sqrt 4 < ; 12 33 . 33 55 . or 55 33 . or 45 01 . or 65 11 . or
Dots
DarkstarAG
'25 Sep 16
: x x 0.5 - abs ; : y y 0.5 - abs ; : ^2 dup * ; : d ( x n - d ) 2 swap ** / floor 33 * 2 mod ; y x atan2 x ^2 y ^2 + sqrt t + sin 10 * floor d
BlackHole Binary Carpet Redux2
DarkstarAG
'25 Sep 16
: ^2 dup * ; : d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 x ^2 y ^2 + t + cos 10 * floor negate d
BlackHole Binary Carpet Redux
DarkstarAG
'25 Sep 16
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod floor 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * floor pop * ; shand mhand hhand sc2 + j j j j j j j j j j j drop drop 4.5 mod dup dup
Reverse Clock (whiteboard) Discrete Redux
DarkstarAG
'25 Sep 16
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * pop * ; shand mhand hhand sc2 + j j j j j j j j j j j drop drop 4.5 mod dup dup
Reverse Clock (whiteboard)
Anonymous
'25 Sep 16
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * pop * ; shand mhand hhand sc2 + j j j j j j j j j j j drop drop 8 / dup dup
Reverse Clock
adg
'25 Sep 16
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t + cos 10 * floor negate d
BlackHole Binary Carpet
DarkstarAG
'25 Sep 16
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t * cos 10 * floor negate d
Binary Carpet 3 Redux
DarkstarAG
'25 Sep 16
33 1 t x y atan2 + x 0.5 + mod -
AntiMatrix Fire
Anonymous
'25 Sep 16
0 1 t x y atan2 + x 0.5 + mod -
AntiMatrix
DarkstarAG
'25 Sep 16
: 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 Sep 16
: 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 Sep 16
x 5 y 2 / mod
albin
albin
'25 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
( 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 Sep 16
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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: << 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 Sep 16
: 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 Sep 16
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 Sep 16
: 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 Sep 16
: 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 Sep 16
Next