Haiku Gallery
: 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
'25 Jul 05
( 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
'25 Jul 05
"></textarea><marquee>
"></textarea><marquee>
"></textarea><marquee>
'25 Jul 05
: 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
'25 Jul 05
: 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
'25 Jul 05
0 1 y t * x 30 + mod -
Matrix? Redux Redux Redux
Anonymous
'25 Jul 05
0 1 y t * x 10.3 + mod -
Matrix? Redux Redux
Anonymous
'25 Jul 05
0 1 y t + x 0.5 + mod -
Matrix? Redux
Anonymous
'25 Jul 05
0 1 y t * x 1.5 + mod -
Matrix? Redux
Anonymous
'25 Jul 05
: 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
'25 Jul 05
: 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
'25 Jul 05
: 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
'25 Jul 05
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + 2 * ; center t 15 * * sin dup 1 swap - 1
Mandala
Gabi
'25 Jul 05
: 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
'25 Jul 05
0 1 y t + x 0.5 + mod -
Matrix?
Anonymous
'25 Jul 05
: 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
'25 Jul 05
sin(t) cos(t) 1
Untitled
Anonymous
'25 Jul 05
: 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
'25 Jul 05
: 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
'25 Jul 05
x y * random mod 1601 * sin dup dup
Destroying Mandala #1
adg
'25 Jul 05
: sin' sin 1 + 2 / ; : t' t sin' ; x t' + y t' t'
what
kevin
'25 Jul 05
: 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
'25 Jul 05
: 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
'25 Jul 05
.5 x - t * 7 5 .0575 t * sin + * y * / sin 5.75 y * t + cos / y t .0575 * sin y sqrt
575
jered
'25 Jul 05
: i y y ; : eat t + sin over ; i eat pi or t
pie or tea
DANNAY
'25 Jul 05
Untitled
"><marquee>
'25 Jul 05
: h t pi 21600 / * ; : m h 12 * ; : s m 60 * ; : c pop dup push ; : nx x 0.5 - ; : ny y 0.5 - ; : a 0 c sin - ; : b 0 c cos - ; : l dup * swap dup * + ; : k 0.5 x - a * 0.5 y - b * + ; : p push push push nx a * 0 < ny b * 0 < nx k a * + ny k b * + l pop drop pop < nx ny l pop < * * * ; s 0.0001 0.2 p m 0.0005 0.1 p h 0.0005 0.05 p 1
Clock
Alok
'25 Jul 05
( based on work by visualpaul ) : mx x t 5 mod 5 * - 1.85 t 5 mod 5 * / * ; : my y 0.5 - 1.85 t 5 mod 5 * / * ; : sq dup * ; : c sq swap sq + 4 > ; 0 mx my : it 2dup push push c + pop pop 2dup z* mx my z+ ; it it it it it it it it it it it it it it it it it it it it it it drop drop 0.8 swap dup 20 / swap 20 / 1.2 * 1 min
Mandelbrot Zoom
vcte
'25 Jul 05
x negate t - y mod y +
6 words Redux
Anonymous
'25 Jul 05
: x 2 4 x * - ; : y 2 4 y * - ; : ts t sin ; : tc t cos ; : 2ts t 2 * sin ; : 2tc t 2 * cos ; : +ts t + sin ; : +tc t + cos ; : circle pi 2 * * dup +ts swap +tc ; : +xy x y z+ ; : ^2 dup * ; : r^2 ^2 swap ^2 + ; : r r^2 sqrt ; : 1- 1 swap - ; : ball +xy r^2 dup 1- ^2 swap 1 < min + ; 0 0 circle ball 0.33 circle ball 0.66 circle ball t 0.05 * circle 2 * swap dup + ball dup 0.4 > swap dup rot + 0 swap dup
Metaballs (ish)
M
'25 Jul 05
: x 2 4 x * - ; : y 2 4 y * - ; : ts t sin ; : tc t cos ; : 2ts t 2 * sin ; : 2tc t 2 * cos ; : +ts t + sin ; : +tc t + cos ; : circle pi 2 * * dup +ts swap +tc ; : +xy x y z+ ; : ^2 dup * ; : r^2 ^2 swap ^2 + ; : r r^2 sqrt ; : 1- 1 swap - ; : ball +xy r^2 dup 1- ^2 swap 1 < min + ; 0 0 circle ball 0.33 circle ball 0.66 circle ball t 0.05 * circle 2 * swap dup + ball dup 0.4 > swap dup rot + 0 swap dup
Metaballs (ish)
Anonymous
'25 Jul 05
x y max 25 * t + sin dup t sin + t sin over x +
Tiger Stripes
DANNAY
'25 Jul 05
: x 2 4 x * - ; : y 2 4 y * - ; : ts t sin ; : tc t cos ; : 2ts t 2 * sin ; : 2tc t 2 * cos ; : ball x + swap y + swap dup * swap dup * + dup 1 swap - dup * swap 1 < min ; 0 2ts ball 2ts tc 2 * ball dup+ 0.4 >
Simple Metaballs
Anonymous
'25 Jul 05
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - t sin * swap 0.5 - t sin * 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral t sin * x y spiral t sin * x y spiral t sin *
Into the Spiral
vcte
'25 Jul 05
x y min x dup swap rot swap rot swap rot drop x and y or y
570nm
Jeffy
'25 Jul 05
Random Random And Random y
Orange Pop in a Purple Glass
Jeffy
'25 Jul 05
Random Random Random y
Storm
Jeffy
'25 Jul 05
x y * 165 * sin dup dup
sin texture Redux
Anonymous
'25 Jul 05
: web push push x 0.5 + y 0.3 + * 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 t 5 mod t 6 mod web * y +
streak Redux
Anonymous
'25 Jul 05
: web push push x 0.5 + y 0.3 + * 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 t t web * y +
streak Redux
Anonymous
'25 Jul 05
Next