Haiku Gallery
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral dup dup
More efficient spiral example
Anonymous
'14 Oct 10
: l t cos x sin y tan .5 ; l dup * z* l z+ mod
Forth Haiku Glossary Haiku #1
adg
'14 Oct 09
: x x 2 * 1 - ; : y y 2 floor * 3 - ; : 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.5 ** 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 )
hacked Ray Castiing Redux
Lolapan
'14 Oct 09
: d ( x n - d ) 2 swap ** / floor 2 mod ; : pi 3.1415926 ; y t 3 / pi mod x atan2 5 * * x t 10 / sin + * x 3 * t 3 / + pi * 2 * sin 10 * floor negate d
Binary Carpet Columns of Signs
DarkstarAg
'14 Oct 08
: x x 2 * 1 - ; : y y 2 floor * 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.5 ** 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 )
hacked Ray Castiing
aaaj min mageeeq
'14 Oct 08
t 1 mod x 23 * sin 2 / y max / sin y x 23 * sin 2 / x max / random + sin over/ floor
hacked 4spiree
Anonymous
'14 Oct 08
: m .5 - -4 * ; : l y m pi + t 65 / + cos x m + t 9 / - cos .09 * + swap x m pi * t 4,01 / + cos y m + t 7 / + cos .09 * + swap ; .3 .52 l l l l l l l l l l l l l l l l l l l l l l l l 2020 - dup negate log dup negate swap 3 ** swap over 2 ** + swap 7,2 / swap
Plasma
vim, alim, jami
'14 Oct 08
: d ( x n - d ) 2 swap -* / floor 5 mod ; y x atan2 y t + cos 10 * sealing negate d atan2
hacked BlackHole Binary Carpeet
Anonymous
'14 Oct 08
: 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 11,69 * sin ; : b a 0,00001.1 + ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.25 l + 0.45 0.4 -1.57 a + 0.15 p +2 b + 0.2 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.51 0.84 -1.57 a + 0.1 l + 0.91 0.52 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.89 -1.57 a - 0.1 l + 0.73 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l / j 0.5 0.7 0.05 c + dup 5 swap 15 1 t 254 / m 20 3 t m + 25 0 t 416442 / m 35 4 t 4 / m + + y 0.3 > * x 0.4 > * +
criper landscape Redux
vim, alim, jami
'14 Oct 08
: 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
'14 Oct 08
y 9.5 * sin x 9.3 + sin t 4 * sin + / dup t 58 * sin * dup t 3 + sin *
drajk
vim, alim, jami
'14 Oct 08
: 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
'14 Oct 08
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
'14 Oct 08
: 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
'14 Oct 08
: 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
'14 Oct 08
( 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
'14 Oct 07
: 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
'14 Oct 05
: 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.
'14 Oct 05
: . ( 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
'14 Oct 05
: 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
'14 Oct 05
: ^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
'14 Oct 05
: 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
'14 Oct 05
: 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
'14 Oct 05
: 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
'14 Oct 05
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t + cos 10 * floor negate d
BlackHole Binary Carpet
DarkstarAG
'14 Oct 04
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t * cos 10 * floor negate d
Binary Carpet 3 Redux
DarkstarAG
'14 Oct 04
33 1 t x y atan2 + x 0.5 + mod -
AntiMatrix Fire
Anonymous
'14 Oct 04
0 1 t x y atan2 + x 0.5 + mod -
AntiMatrix
DarkstarAG
'14 Oct 03
: 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
'14 Oct 01
: 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
'14 Oct 01
x 5 y 2 / mod
albin
albin
'14 Oct 01
: 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
'14 Oct 01
: 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
'14 Oct 01
: 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
'14 Oct 01
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
'14 Oct 01
: 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
'14 Oct 01
: 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
'14 Oct 01
: 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
'14 Oct 01
: 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
'14 Oct 01
( 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
'14 Oct 01
Next