Haiku Gallery
: s t 10 mod 10 / ; : k s .8 * ; s k y
Morning (uses audio)
E. A.
'14 Sep 15
( "></textarea><marquee> ) 0 0.3 dup
"></textarea>ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ
ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ ͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬͬ
'14 Sep 14
( "></textarea><marquee> ) 0 0.3 dup
"></textarea>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<marquee>
"></textarea>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<marquee>
'14 Sep 14
( "></textarea><marquee> ) 0 0.3 dup
"></textarea> <marquee>
"></textarea> <marquee>
'14 Sep 14
: 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
'14 Sep 14
: 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
'14 Sep 14
: 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
'14 Sep 14
x y =
Trivial
Jeffy
'14 Sep 14
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
'14 Sep 14
x 9.4 * sin y 9.4 * sin t 4 * sin * + dup t 2 * sin * dup t 40 * sin *
Disco Redux
BB & JLB
'14 Sep 14
( "></textarea><marquee> ) 1 0 0 1
"></textarea><marquee>
"></textarea><marquee>
'14 Sep 14
: 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
'14 Sep 14
: 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
'14 Sep 14
: 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
'14 Sep 13
: 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
'14 Sep 13
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + 4 * ; center t 10 * * sin dup 1 swap - center t + 4 * tan
Mandala Redux Redux
Anonymous
'14 Sep 13
( fixed animation ) : w t 360 mod 38000 + 9999 / sin 2 / .55 + / x .5 - over * dup * y .5 - rot * dup * + ; 30 w sin 60 w cos over + 1 y x - x y + * .1 mod 53 * sin
Road to Samarkand
adg
'14 Sep 13
"></textarea><marquee>
"></textarea><marquee>
"></textarea><marquee>
'14 Sep 13
: x0 x 0.5 - ; : y0 y 0.5 - ; : z t + 0.0001 ; : c x0 x0 * y0 y0 * + t z * * ; : b cos ; : n sin ; c t t z * * * 0.1 * n dup x0 * y0
Circlefun Redux
Anonymous
'14 Sep 13
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + t 0.002 * * ; center t t 0.1 * * * 1 * sin dup x0 * y0 - center dup t + 22 + sin swap * cos t + 0.5 * sin 2 + cos swap
Circlefun
Anonymous
'14 Sep 13
0 1 y t * x 30 + mod -
Matrix? Redux Redux Redux
Anonymous
'14 Sep 13
0 1 y t * x 10.3 + mod -
Matrix? Redux Redux
Anonymous
'14 Sep 13
0 1 y t + x 0.5 + mod -
Matrix? Redux
Anonymous
'14 Sep 13
0 1 y t * x 1.5 + mod -
Matrix? Redux
Anonymous
'14 Sep 13
: square dup * ; : dist square swap square + sqrt tan tan tan tan tan tan tan cos ; : center 0.5 - swap 0.5 - ; x y center 2dup dist push atan2 pop swap 10 * t + cos 1 + 4 / - abs 1 + 1 swap / square square
Untitled
Anonymous
'14 Sep 13
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + 2 * ; center t 15 * * sin dup 1 swap - center t + 2 * sin
Mandala Redux
Gabi
'14 Sep 13
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + 2 * ; center t 15 * * sin dup 1 swap - t
Mandala Redux
Anonymous
'14 Sep 13
: 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
: s t 8 * floor - ; : ' 20 * 1 mod 3 * sin x * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : _ 20 * floor 5 + ; : r x _ y _ s 7 + cos x _ sin / * 1 mod 0.5 >= ; : d r dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + ; 0.2 1 d - * 0.42 d * + 0.15 1 d - * 0.37 d * + 0.47 1 d - * 0.71 d * +
squares and circles (was: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10 Redux)
adg
'14 Sep 13
0 1 y t + x 0.5 + mod -
Matrix?
Anonymous
'14 Sep 13
: web push push x 0.5 + y 0.3 + * pop * tan x mod random * sin 0 max x 0.3 + y 0.5 + * pop * tan x mod random * sin 0 max + ; 31 23 web 17 17 web * y mod 1553 + 23 31 web 19 19 web * y x * + 31 31 web t 5 mod t 6 mod web * y +
sunrise sunrise
adg
'14 Sep 13
sin(t) cos(t) 1
Untitled
Anonymous
'14 Sep 13
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * tan x mod random * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web t 5 mod t 6 mod web * y +
brushed streak
adg
'14 Sep 13
: cs 0.5 - dup * ; : r t sin abs 50 / 0.14 + ; x r - cs y cs + 0.02 < x r + cs y cs + 0.02 < or not 1 swap 0.9 min dup 0.7 min
Whoop whoop
Not D8I
'14 Sep 13
x y * random mod 1601 * sin dup dup
Destroying Mandala #1
adg
'14 Sep 13
: sin' sin 1 + 2 / ; : t' t sin' ; x t' + y t' t'
what
kevin
'14 Sep 13
: 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
: c 0.5 - ; : s dup * ; : d x c s y c s + ; : cir d > swap d < and ; : draw dup 0.02 + cir ; t 10 mod 50 / draw
Shockwave
Anonymous
'14 Sep 13
.5 x - t * 7 5 .0575 t * sin + * y * / sin 5.75 y * t + cos / y t .0575 * sin y sqrt
575
jered
'14 Sep 13
: i y y ; : eat t + sin over ; i eat pi or t
pie or tea
DANNAY
'14 Sep 13
Next