Haiku Gallery
: ' 20 * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : x x 2 * ; : y t 4 / ( floor ) 1 mod y - 2 * ; : _ 20 * floor 5 + ; x _ y _ ( t 8 * floor - ) 7 + cos x _ sin / * 1 mod 0.5 >= dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + dup dup 0.22 * 0.2 + swap 0.22 * 0.15 + rot 0.24 * 0.47 +
10 PRINT... rolling up
DarkstarAG
'25 Jul 05
: strange pi -rot pow * t * sin ; x y log strange y x log 60 * strange
Drum Sand
BB
'25 Jul 05
: rand random 0.5 - t sin * ; : x0 x 0.5 - 4 * rand + ; : y0 y 0.5 - 4 * rand + ; : r t 15 mod 1 + 3 / ; : dist x0 r ** y0 r ** + 1 r / ** ; dist 1 < random * dup random * dup random * 3 *
Shape Shifter
BB
'25 Jul 05
: rand random 0.5 - t sin * ; : x0 x 0.5 - 4 * rand + ; : y0 y 0.5 - 4 * rand + ; : r 4.5 ; : dist x0 r ** y0 r ** + 1 r / ** ; dist 1 < dup dup
Untitled
Anonymous
'25 Jul 05
: time t 3 / sin 1.5 * abs negate 0.1 + ; : c 0.3 time + 0 ; : i 2dup z* c z+ ; : n 3.1 * 1.55 - ; : i4 i i i i ; : m2 dup * swap dup * + ; : len m2 sqrt ; : j n swap n swap i4 i i m2 0.75 pow ; x 0.01 - y j x y j x 0.01 + y j
j Redux Redux
Anonymous
'25 Jul 05
: time t 3 / sin abs negate ; : c 0.3 time + 0 ; : i 2dup z* c z+ ; : n 3.1 * 1.55 - ; : i4 i i i i ; : m2 dup * swap dup * + ; : len m2 sqrt ; : j n swap n swap i4 i i m2 0.75 pow ; x 0.01 - y j x y j x 0.01 + y j
j Redux
icedp
'25 Jul 05
: square dup * ; : len square swap square + sqrt ; : dist swap -rot - -rot - len ; : pos 1.0 + 2.0 / ; : ball t * cos pos swap t * sin pos x y dist 2 sqrt / ; 2 3 ball 3 2 ball 7 5 ball
Colorama
kaoD
'25 Jul 05
: c -1 t sin 0.3 * ; : i 2dup z* c z+ ; : n 3.6 * 1.8 - ; : i4 i i i i ; : clamp min max ; x n y n i4 i4 i4 i4 0.25 pow
j
icedp
'25 Jul 05
random sin : the random sin ; : behold the random sin ; behold
random sin
strangeloop
'25 Jul 05
: fan 10 / x + y mod ; : sq .5 - dup * ; -5 fan 0 fan -10 fan x sq y sq + sqrt .2 <
pie not pi
E.A.
'25 Jul 05
: a .5 - ; : xy x y * ; : mirror x a y a 10 * * ; xy dup t t 20000 + max * tan swap dup mirror
Parallel Worlds (midnight singularity fix)
E.A.
'25 Jul 05
: sq dup * ; : xs 10 mod 10 / ; : q rot - sq ; : ab xs swap xs x q y q + sqrt ; : n negate ; : bl t dup ; : br bl n ; : tl br swap ; : tr tl n ; 5 5 ab .2 random xs - < 5 5 ab .3 < 5 4 ab .4 < dup
crescent
E.A.
'25 Jul 05
: sq dup * ; : xs 10 mod 10 / ; : q rot - sq ; : ab xs swap xs x q y q + sqrt ; : n negate ; : bl t dup ; : br bl n ; : tl br swap ; : tr tl n ; bl ab .2 < br ab .2 < tl ab .2 < -5 -5 ab .5 <
magic doughnut
E.A.
'25 Jul 05
: sq dup * ; : xs 10 mod 10 / ; : ab xs swap xs x rot - sq y rot - sq + sqrt ; : n negate ; : bl t dup ; : br bl n ; : tl br swap ; : tr tl n ; tr ab 5 * br ab 9 * tl ab 3 * bl ab 5 *
Converging Bubbles
E.A.
'25 Jul 05
: sq dup * ; : xs 10 mod 10 / ; : q rot - sq ; : ab xs swap xs x q y q + sqrt ; : n negate ; : bl t dup ; : br bl n ; : tl br swap ; : tr tl n ; .6 tr ab 5 * bl ab random 5 * * br ab
Protists
E.A.
'25 Jul 05
: a .5 - ; : xy x y * ; : mirror x a y a 10 * * ; xy dup t * tan swap dup mirror
Parallel Worlds
E. A.
'25 Jul 05
: ripple push dup * swap dup * + log t pop / - 32 * sin ; x y 8 ripple 1 x - y 8 ripple x 1 y - 8 ripple
wifi Redux
BB
'25 Jul 05
: ripple push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 8 ripple 1 x - y 8 ripple x 1 y - 8 ripple
wifi
BB
'25 Jul 05
x 2 pow y 2 pow + sqrt log t -6 / + 13 * sin dup
Bumble
nic
'25 Jul 05
0 0 x y + sqrt t 8 / + 32 * sin
test
test
'25 Jul 05
: xt dup 0.9 < swap 0.1 > * ; : yt dup 0.6 < swap 0.4 > * ; : r yt swap xt * ; : y' y t 2 * 1 x - log + cos .1 * + 0.1 + t 2 * cos .1 * negate + ; : x' x y cos .1 * + 0.07 - ; x' y' 0.2 - r x' y' 0.2 - r x' y' r
ua 2d
Anonymous
'25 Jul 05
: xt dup 0.9 < swap 0.1 > * ; : yt dup 0.6 < swap 0.4 > * ; : r yt swap xt * ; : y' y t 2 * 1 x - log + cos .1 * + 0.1 + t 2 * cos .1 * negate + ; x y' 0.2 - r x y' 0.2 - r x y' r
ua 2d
Anonymous
'25 Jul 05
1 1.1 1.3 : shake rot t 7 y mod * + cos ; shake shake shake
Ambient Beats
Benevolent 1
'25 Jul 05
2 3 5 : shake rot t 7 y mod - * cos ; shake shake shake
Beats
Benevolent 1
'25 Jul 05
x y : strange pi -rot pow * t * sin ; x strange swap y strange
Strange grating
Benevolent 1
'25 Jul 05
: s t 10 mod 10 / ; : k s .8 * ; s k y
Morning (uses audio)
E. A.
'25 Jul 05
( "></textarea><marquee> ) 0 0.3 dup
"></textarea>ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ
ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ
'25 Jul 05
( "></textarea><marquee> ) 0 0.3 dup
"></textarea>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<marquee>
"></textarea>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<marquee>
'25 Jul 05
( "></textarea><marquee> ) 0 0.3 dup
"></textarea> <marquee>
"></textarea> <marquee>
'25 Jul 05
: w 128 ; : px w * floor ; : point ( x y - ) y px = >r x px = r> * ; : hline ( y:0..W-1 - ) y px = ; : vline ( x:0..W-1 - ) x px = ; : tsin t 2 / sin 1 + 2 / px ; : tcos t 2 / cos 1 + 2 / px ; tsin hline tcos vline tsin tcos point
Discrete Plot
DarkstarAG
'25 Jul 05
: k 42 ; : s t 2 * sin 2 / -0.15 + ; : f sin x k * sin x k 13 / * tan * * s + 100 pow ; t 3 * y k * + f x 7 * 2.9 + cos 1 + sqrt 3 pow
Yellow Way
DarkstarAG
'25 Jul 05
: t0 t 7 mod ; : ~= - abs 0.05 < ; 0 y x 0.5 - dup * t0 * ~= y x 0.5 - dup * t0 negate * 1 + ~= or x y 0.5 - dup * t0 * ~= x y 0.5 - dup * t0 negate * 1 + ~= or
The Kiss
BB
'25 Jul 05
x y =
Trivial
Jeffy
'25 Jul 05
1 y negate t 2 * + x 0.5 + mod - 0.8 y t 0.1 * + x 0.5 + mod - 0.5 y t + x 0.5 + mod -
color storm
BB & JLB
'25 Jul 05
x 9.4 * sin y 9.4 * sin t 4 * sin * + dup t 2 * sin * dup t 40 * sin *
Disco Redux
BB & JLB
'25 Jul 05
( "></textarea><marquee> ) 1 0 0 1
"></textarea><marquee>
"></textarea><marquee>
'25 Jul 05
: x0 x 0.5 - ; : y0 y 0.5 - ; : r0 x0 dup * y0 dup * + sqrt ; : a0 y0 x0 atan2 ; a0 t + sin abs a0 t - cos abs r0 t + tan abs r0 t - tan abs
Hyperspace
BB
'25 Jul 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.5 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.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.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.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.7 0.05 c + dup 0 swap 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
Man running with landscape
Alok
'25 Jul 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 sin 15 * 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 3.7 / d d * over sqrt -rot
Coffee (final) Redux
Anonymous
'25 Jul 05
: y' y 2 * 1. - ; : wave t + cos y' + 6 * 1 swap / abs ; x wave x pi 2 / + wave x pi 4 / + wave 0.7
rgb blend
icedp
'25 Jul 05
Next