Haiku Gallery
\ clock1 \ angle range changed from [0,2pi] to [0,1] : 2pi 2 pi * ; : cos 2pi * cos ; : sin 2pi * sin ; : atan2 atan2 2pi / 1 mod ; \ the distance from X,Y to any point x,y : r' ( X Y -- radius ) x rot - 2 ** y rot - 2 ** + .5 ** ; : r .5 .5 r' ; \ the angle from X,Y to any point x,y : a' ( X Y -- angle ) y swap - x rot - atan2 ; : a .5 .5 a' ; \ the angle for n seconds : s ( #seconds -- angle ) t floor swap / ; \ the angle for n minutes : m ( #minutes -- angle ) 60 s swap / ; \ the angle for n hours : h ( #hours -- angle ) 60 m swap / ; \ the virtual needle for given angle : v_needle ( angle -- needle ) a + .25 - 1 mod 1 swap - ; \ the real needle for given angle : r_needle ( angle -- needle ) a + dup 1 mod 0 ! dup cos r * abs 1 swap - 150 ** swap sin r * -.08 > * ; \ the needle for given angle and radius : within ( n a b -- a<n<b ) push over pop < push > pop * ; : n ( angle radius -- needle ) dup 1 ! r .008 rot within swap r_needle * r 0 @ .25 - cos * 1 @ .05 - - 2 ** r 0 @ .25 - sin * 2 ** + sqrt .025 - abs 1 swap - 499 ** + ; \ the n ticks to form a whole ring : t ( #ticks/circle -- ticks ) 2 / a * cos 199 ** r .41 .48 within * ; \ the red needle for the hours and seconds and 4 ticks 12 h .23 n 60 s .37 n + 4 t + \ the green needle for the hours and minutes and 12 ticks and 60 ticks 12 h .23 n 60 m .30 n + 12 t + 60 t + \ the blue 60 ticks and background 60 t r 8 * floor 4 / + \ cut out the clock r .5 <
clock1
陳爽
'17 Jan 17
: 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
'14 Jan 21
: b y .6 > y .4 < or ; : r y .8 < y .2 > and ; : g r b and ; r g b
Signal Flags - Charlie
Daniel Kalny
'15 Mar 03
x x 23 * sin 2 / y max / sin y x 23 * sin 2 / y max / sin over over / sin
4spire
BradN
'11 Apr 23
: web push push x 0.5 + y 0.9 + * 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 7 7 web * y +
streak Redux
Anonymous
'12 Jan 01
26.1 sin 33 sin 39.2 sin
C Major
C. H. Ting
'12 Jan 26
: d dup ; : ' .5 - ; : 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 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 /
Golden bump Redux
Anonymous
'14 Jan 20
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - r t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
continuous plasmoid
fnord
'15 Sep 17
\ Original 256 bytes DOS intro by unlord / xylem \ Released on Function 2017 demo : a x .5 - 2 ** y .5 - 2 ** + sqrt .3 - ; : b y .5 - x .5 - atan2 ; : s' t + b + b sin t sin * 2 * + cos .1 * ; : $ 1.6 + 6.4 mod s' ; : h 1.6 * >r r@ s' r@ $ - 40 * a r@ s' - r> $ a - min 256 * 0 max 1 min * + ; : g 1.6 * dup dup s' .1 - r@ * a rot s' - rot $ a - min - ; 0 0 h 1 h 2 h 3 h >r 0 g 3 g * 1 g 3 g * 2 g 3 g * r> drop
Twist Ring
Ivanq
'17 Oct 04
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 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 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux
Anonymous
'14 Jan 21
: x x .1 - ; : y y .4 - ; : pc x 32 * floor dup 1 + 9 / floor - ; : pr y 32 * floor ; : printrow 2 pc pow / floor 2 mod ; : data 0 swap dup 0 = 31599 * 0 z+ dup 1 = 18724 * 0 z+ dup 2 = 31183 * 0 z+ dup 3 = 31207 * 0 z+ dup 4 = 23524 * 0 z+ dup 6 = 29679 * 0 z+ dup 7 = 31012 * 0 z+ dup 8 = 31727 * 0 z+ dup 9 = 31719 * 0 z+ 5 = 29671 * + 8 rot pow / floor 8 mod ; pr t 10 mod floor data 16 * pr t 10 / 6 mod floor data + 16 * pr t 60 / 10 mod floor data + 16 * pr t 600 / 6 mod floor data + 16 * pr t 3600 / 10 mod floor data + 16 * pr t 36000 / 10 mod floor data + printrow
Clock
snail
'15 Apr 13
: sq t * sin 0 > ; 16 3 / sq .2 * 16 5 / sq .1 * + 16 4 / sq .2 * + 16 6 / sq .2 * + .1 + x .5 < * 32 sq x .5 > * +
Audio 5
Anonymous
'14 Nov 11
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
plasmoid
fnord
'15 Sep 17
: sq t * sin 0 > ; 8 sq .2 * 4 sq .1 * + 2 sq .2 * + 1 sq .2 * + .1 + x .5 < * 32 sq x .5 > * +
Audio 6
Anonymous
'14 Nov 11
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t + 100 * sin ; x y spiral x y spiral x y spiral
Hypnotism 1
Stainless
'11 Jun 26
26.1 x * sin 33 x * sin 39.2 x * sin
C Major Redux
C. H. Ting
'12 Jan 26
26.1 x * sin 33 x * sin 39.2 x * sin
C Major
C. H. Ting
'12 Jan 26
: x x 0.5 + 1.7 / ; : y y 0.4 + 1.7 / ; : ox x 0.5 - ; : oy y 0.6 - ; : x x 0.3 - 11 * y * sin ; : y y 1.1 - 7 * x * cos ; x 21 * sin y 23 * cos x y * 11 * cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * *
gforth icon
BradN
'12 Nov 07
: sm x pi * sin * 1 min .6 * ; : bb x y / * ; : x x 0.5 + 1.7 / ; : y y 0.4 + 1.7 / ; : ox x 0.5 - ; : oy y 0.6 - ; : x x 0.3 - 11 * y * sin ; : y y 1.1 - 7 * x * cos ; x 21 * sin y 23 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth1
Anonymous
'12 Nov 10
x 256 * 128 - dup * y 256 * 128 - dup * + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
Moire
Manwe + DiLemming
'14 Jan 11
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
robu
'14 Jan 13
: x0 x 1.6 * .8 - ; : 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 x0 d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t sin + r> / l l l l l l l l l l l l l l l l l l drop drop drop 5 / d d
Ray Tracing 2
Manwe
'14 Jan 16
x y sin 2 / 0.5 + t
Minimal animation Redux
Anonymous
'14 Jan 20
: d dup ; : 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
PONG game Redux
Anonymous
'14 Sep 13
: 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
'14 Sep 28
: 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
'14 Jan 21
: b y .75 < y .25 > and ; : -b b not ; -b -b b
Signal Flags - Dog
Daniel Kalny
'15 Mar 03
: 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 ; вечерним вьюнком я в плен захвачен… недвижно стою в забытьи.
Untitled
Anonymous
'14 Jan 21
: xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 swap / ; : c2 xc yc len r1 - dup .008 / swap .012 swap / min ; : lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ; : wb xc yt len r2 swap / ; : bb xc yb len r2 / ; : ws xc yb len r3 swap / ; : bs xc yt len r3 / ; c1 lr min bb min wb max bs min ws max c2 max 0.1 - dup dup x 0.6 + *
Continuity
Anonymous
'11 Jun 16
x y t x*y^2*.5 /
Untitled
Anonymous
'14 Jan 21
x y t sin 1 + 2 /
Untitled
Anonymous
'14 Jan 21
: q dup * ; : dst q swap q + sqrt ; : acos dup q 1 - negate sqrt swap 1 + atan2 2 * ; : r 0.5 ; : ' 0.5 - ; : l x ' y ' dst ; : in? l r < ; : z r q l q - sqrt ; : th y ' acos 2 * pi / ; : ph z x ' atan2 pi / t 10 / + ; : txtr 25 25 z* cos >r cos r> < 0.3 max ; ph th txtr z * in? * dup dup
Rotating sphere Redux v2
Postrediori
'14 Apr 02
: r x 0.5 - 1.7 ** y 0.5 - 1.5 ** + sqrt ; : a x 0.5 - y 0.5 - atan2 ; : sine push t sin a 0.5 ** r 0.5 ** / 8 * + sin r r@ / sin 200 * r sqrt * sin * pop * + sin r 0.5 - 2 * - 0.5 ** 1 swap - ; 1.71 t * 8.11 sine 1.83 t * 2.34 sine 1.91 t * 1.17 sine
arachne
fnord
'15 Sep 19
: px x 5 * ; : py y 5 * t - ; : fract dup floor - ; : mix dup push * swap 1 pop - * + ; : f fract dup dup 2 * 3 swap - * * ; : r -3 exp * sin 5 exp * fract ; : v px floor py floor 3 exp * + ; : c y * y pop mix ; v r v 1 + r px f mix v 3 exp + dup push r pop 1 + r px f mix py f mix y 0.7 * 0.1 + > dup dup push push push 1.2 c 0.5 c 0.2 c
LavaLamp
Manwe (remix by Trisomie21's shader)
'13 Dec 28
: sq dup * ; : xs 10 mod .1 * ; : xpos xs x - abs ; : ypos xs y - abs ; : rad sq swap sq + sqrt ; : circle rot xpos rot ypos rad swap .01 * > ; : n negate ; : bl t t ; : tl bl n ; : br tl swap ; : tr br n ; : pulsar t xs * tan circle ; : s dup x swap > swap y < = ; : m 600 pulsar = ; : l 800 pulsar = ; .4 .4 br m bl m br m tl m tr m 1 bl l br l tl l tr l .00 s .04 s .06 s .08 s .92 s .94 s .96 s 1 s = = = = = = =
blue sky phosphenes
E.A.
'14 Sep 23
: 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
'14 Sep 28
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + 2 * ; center t 15 * * sin dup 1 swap - 1
Mandala
Gabi
'14 Sep 13
x t + y mod dup
6 words
Anonymous
'14 Mar 29
: sq t * sin 0 > ; 16 3 * sq .2 * 16 5 * sq .1 * + 16 4 * sq .2 * + 16 6 * sq .2 * + .1 + x .5 < * 16 sq x .5 > * +
Audio 4
Anonymous
'14 Nov 11
: 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
Next