Haiku Gallery
: mx x 0.7 - 3 * ; : my y 0.5 - 3 * ; mx my 0 0 : it 2dup z* z+ mx -rot my -rot ; it it it it it it it it it it it it it it it it it it it it dup * swap dup * + swap drop swap drop 4 <= dup dup
Untitled
Anonymous
'25 Jul 13
x y z
Untitled Redux Redux
Anonymous
'25 Jul 13
x y z
Untitled
Anonymous
'25 Jul 13
t
Untitled Redux
Anonymous
'25 Jul 13
t syn
Untitled
Anonymous
'25 Jul 13
: kk 8 ; : xx x kk * ceil 2 mod ; : yy y kk * ceil 2 mod ; xx kk * yy + yy kk * xx + + 2 mod
шахматка
noob
'25 Jul 13
: s t sin ; x t + pi 2 * * sin y 0.5 - 2 * - 0.005 <=
move sinus
noob
'25 Jul 13
: s t sin 1 + 2 / ; x pi * sin y s / 0.001 - <
check sinus
noob
'25 Jul 13
create_list(:local_survey, 2, :active) create_list(:local_survey, 2, :completed) global_survey = LocalSurvey.active.first.global_survey create :rating_constraint, rate_from: 0, rate_to: 2, type: :quest_expiration, value: 5, global_survey: global_survey create :rating_constraint, rate_from: 2, rate_to: 10, type: :quest_expiration, value: 10, global_survey: global_survey
Untitled
Anonymous
'25 Jul 13
: 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 Jul 13
: 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 Jul 13
x 10 t 2 / sin 5 * + * t 4 / sin 4 * + sin y 11 t 3 / sin 5 * + * t 3 / sin 3 * + sin * dup dup t 1.5 * sin * 0.5 + 1.5 / rot t sin * 0.5 + 1.5 / rot t 2 * sin * 0.5 + 1.5 /
Disco Redux
Kosvik
'25 Jul 13
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Minimal animation Redux
Anonymous
'25 Jul 13
: h .2 * tan 1 mod ; : f dup 1 mod y .5 > * - ; x 16 * f h dup dup
Random function check
Vort
'25 Jul 13
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux
Anonymous
'25 Jul 13
x * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 13
x=y
ку
мук
'25 Jul 13
1 x - t cos - y t t t 100 * / cos / sin + / cos t cos * dup t cos abs * dup t sin abs /
Untitled
Anonymous
'25 Jul 13
: 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) Redux
Anonymous
'25 Jul 13
3.14 6.75 cos 3 *
нгнг
нгкф
'25 Jul 13
: s - 2 ** ; : d y s swap x s + sqrt ; : h 158 * tan tan tan 1 mod ; : r r> 1 + dup >r h ; : i r r d min ; : 8i i i i i i i i i ; 1 0 >r 8i 8i r> drop 0.5 swap - 2 * dup dup
Cellular texture v2
Vort
'25 Jul 13
: s - 2 ** ; : d y s swap x s + sqrt >r ; : h 158 * tan tan tan 1 mod ; : r dup 1 + swap h swap ; : 8r r r r r r r r r ; : 32r 8r 8r 8r 8r ; : 4d d d d d ; : 16d 4d 4d 4d 4d ; : 4p r> r> r> r> ; : 16p 4p 4p 4p 4p ; : 4m min min min min ; : 16m 4m 4m 4m 4m ; 1 32r drop 16d 16p 1 16m 0.5 swap - 2 * dup dup
Cellular texture v1
Vort
'25 Jul 13
: d dup ; : ' .5 - ; : r x ' y * 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 13
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Jul 13
: 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 Jul 13
: dot x - 10 * dup * swap y - 10 * dup * + 1 swap - 0 max - ; : edge 1 x .5 - 2 * dup * y .5 - 2 * dup * + 20 pow - * ; : dots .35 .35 dot .35 .65 dot .65 .35 dot .65 .65 dot edge ; 1 x .3 - dup dup * * y .2 - dup * + - dots 1 x .2 - dup dup * * y .1 - dup * + - dots .95 * 2dup + 5 / x 2 pow y * 2 / + 1 x .5 - 2 * dup * y .77 - 2 * dup * + 8 pow -
Untitled
Anonymous
'25 Jul 13
: 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 Jul 13
x y t 3 2 1 + /
Untitled
Anonymous
'25 Jul 13
: 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 ;
Candy 69 bytes Redux
Anonymous
'25 Jul 13
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
Untitled
Anonymous
'25 Jul 13
x 9.4 * sin y 9.4 * sin t 3 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 13
: x x .5 - t 1 * cos 3 / + ; : y y .5 - t 0.6 * sin 3 / + ; : x1 x t cos * y t sin * - ; : y1 x t sin * y t cos * + ; : r x x * y y * + sqrt ; : x x1 ; : y y1 ; : u r 20 * t 10 * - sin ; x1 100 * sin u * y1 100 * sin u * u
Wave
Valentin
'25 Jul 13
x cos 8 * 5
Untitled Redux
Anonymous
'25 Jul 13
x cos 8 * 5
Untitled Redux
Anonymous
'25 Jul 13
x y t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Jul 13
x y t sin 1 + 2 /
Disco Redux
Anonymous
'25 Jul 13
x y t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'25 Jul 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
Untitled
Anonymous
'25 Jul 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
Untitled
Anonymous
'25 Jul 13
3 pi 2 * dup t swap / dup floor - * * x 7 * + sin 2 / 0.5 + y - abs 0.007 <= dup dup
Sinus
Anonymous
'25 Jul 13
Next