Haiku Gallery
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 14
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'25 Jul 14
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 11 r 25 r dup 12 r /
Untitled
Anonymous
'25 Jul 14
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'25 Jul 14
x y t
Untitled
Anonymous
'25 Jul 14
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 14
t sin 1 + 2 / x sin 1 + 2 / random sin 1 + 2 /
Untitled
Anonymous
'25 Jul 14
: sq dup * ; x 0.5 - sq y 0.5 - sq + sqrt t sin * : norm * sin 1 + 2 / ; dup 40 norm over 60 norm rot 80 norm
Time test
Balancer
'25 Jul 14
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 14
: f x x * - 2 pow swap y y * - 2 pow + sqrt + 30 * t 30 * 10 / + sin exp ; 10 1.1 1.4 f dup exp 20 1.4 1.1 f + 3 / dup 30 1.3 1.7 f mod 2 /
Solar
onni
'25 Jul 14
x y t x*y^2*.5 /
Untitled
Anonymous
'25 Jul 14
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 14
: r dup push swap y 12 pow + * t + sin x pop * cos + dup floor - ; 0.07 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall (anim) Redux
Anonymous
'25 Jul 14
: s sin 1 + 2 /; t s x s
Untitled
Anonymous
'25 Jul 14
: a 0.5 a a 2 * 0
Untitled
Anonymous
'25 Jul 14
: 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 1 < * ; t cos 1 + 2 / t sin 1 + 2 / mant t sin 1 + 2 / t cos 1 + 2 / mant t cos 1 + 2 / t cos 1 + 2 / mant
inkblot mandelbrot Redux
Anonymous
'25 Jul 14
: d dup ; : ' .5 - ; : r x ' d * y ' d * + log ; : 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 * ctg 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sin - 0 max * d d * 2 /
Green bump Redux
Lexus
'25 Jul 14
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 14
: 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 .3 * ; : 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
'25 Jul 14
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
Untitled
Anonymous
'25 Jul 14
x y sin 2 / 0.5 + t
Minimal animation Redux
Anonymous
'25 Jul 14
: 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
'25 Jul 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 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)
Manwe
'25 Jul 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 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
Cofe Ray Tracing
Manwe
'25 Jul 14
: 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
'25 Jul 14
: d dup ; : x0 x 2 * 1 - t cos + ; : y0 y 2 * 1 - ; : n x0 d * y0 d * + 4 + sqrt ; : m swap / * d * -rot ; : l 2dup 2dup x0 m 2dup y0 m -2 t .2 + sin .3 * + swap / * 3 + d * + + sqrt 1 - y0 1 + min rot + swap ; 0 n l l l l l l l l l l l l l l drop 5 / d .3 * d rot
blue ball
Anonymous
'25 Jul 14
: x x 10 * 5 - ; : y y 10 * 5 - ; : j 2dup z* ; : g 2dup z+ ; : 7 dup * swap dup * ; x y j j j g 7 j j j
James
James
'25 Jul 14
x 19.4 * sin x t 2.4 * sin 2.5 * * + y 19.4 * sin y t 2.9 * sin 3 * * + t 1.4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux Wild
anti
'25 Jul 14
: d dup ; : x0 x 2 * 1 - ; : y0 y 2 * 1 - ; : n x0 d * y0 d * + 4 + sqrt ; : m swap / * d * -rot ; : l 2dup 2dup x0 m 2dup y0 m -2 swap / * 3 + d * + + sqrt 1 - y0 1 + min rot + swap ; 0 n l l l l l l l l l l l l l l l l drop 5 / d d
Ray Tracing 1
Manwe
'25 Jul 14
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
robu
'25 Jul 14
: 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
Manwe
'25 Jul 14
x 2 ** y 1 x 1 y - / 50 * cos + * - y 5 ** - dup dup
Ladder
Ivanq
'25 Jul 14
: 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
Manwe
'25 Jul 14
: 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
Manwe
'25 Jul 14
x 1 * sin 2 ** y 1 * sin x y - 50 * cos x 1 y - - 50 * cos + * / dup dup
Chess
Ivanq
'25 Jul 14
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco
Ivanq
'25 Jul 14
( early preview, very raw code ) : ' 0.5 - ; : d dup ; : lx t 1 + 1.9 * sin .6 * ; : ly t 1 + 1.7 * sin .6 * ; : lz 1 ; : r2 d * swap d * + sqrt ; : r3 lx d * ly d * lz d * + + sqrt ; : z x ' 80 * y ' 80 * r2 sin 0.2 * 0.8 + ; x ' x ' y ' r2 / lx r3 / * y ' x ' y ' r2 / ly r3 / * z lz r3 / * + + 1 x ' lx - d * y ' ly - d * + z lz - d * + sqrt - over 1 swap - 2 /
toy pyramid
Manwe
'25 Jul 14
: pt x .5 - y .5 - ; : sq dup * ; pt sq swap sq + sqrt 52 * pt atan2 + pt atan2 9 * t 9 * - sin + sin dup .05 + floor
BACTERIA anim
boomlinde + Manwe
'25 Jul 14
: p .5 - dup * 262144 * + t - ; : q rot sin ; 0 x p y p dup 2 * dup 4 / q q q
MR exact opt 77b
frag_
'25 Jul 14
: p .5 - dup * 524288 * + ; t -4 * x p y p dup 2 / dup 2 / sin rot sin rot sin
MR exact opt 78b
frag_
'25 Jul 14
Next