Haiku Gallery
: 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
'25 Sep 21
x 0.5 - abs 2 * y 0.5 - abs 2 * * 0 0
Untitled
Anonymous
'25 Sep 21
x 1 - 2 * y 1 - 2 * 0
Untitled
Anonymous
'25 Sep 21
: 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
'25 Sep 21
: 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
'25 Sep 21
cvbbbbcbbc cbcb cbc bcb
Untitled
Anonymous
'25 Sep 21
1 1 y x x *
Untitled
Anonymous
'25 Sep 21
1 1 y x x *
Untitled
Anonymous
'25 Sep 21
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Sep 21
: 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
Untitled
Anonymous
'25 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'25 Sep 21
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 11 r 25 r dup 12 r /
Untitled
Anonymous
'25 Sep 21
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Untitled
Anonymous
'25 Sep 21
x y t
Untitled
Anonymous
'25 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
t sin 1 + 2 / x sin 1 + 2 / random sin 1 + 2 /
Untitled
Anonymous
'25 Sep 21
: 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 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
: 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 Sep 21
x y t x*y^2*.5 /
Untitled
Anonymous
'25 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
: 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 Sep 21
: s sin 1 + 2 /; t s x s
Untitled
Anonymous
'25 Sep 21
: a 0.5 a a 2 * 0
Untitled
Anonymous
'25 Sep 21
: 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 Sep 21
: 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 Sep 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 21
: 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 Sep 21
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
Untitled
Anonymous
'25 Sep 21
x y sin 2 / 0.5 + t
Minimal animation Redux
Anonymous
'25 Sep 21
: 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 Sep 21
: 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 Sep 21
: 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 Sep 21
: 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 Sep 21
: 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 Sep 21
: 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 Sep 21
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 Sep 21
Next