Haiku Gallery
: ' 8 * 4 - 2 mod 1 - 3 * abs ; : j t 10 / 1 mod + 1 mod 6 * 3 - abs 1 - .05 x ' y ' + 1 - t * .3 * sin abs / * ; 1 j .6 j .3 j
Neon blink 128byte
Manwe
'14 Jan 23
: f t 7 / + 10 * tan 40 / t 100 * 1 mod 20 / random 20 / + + 1 + ; x f 2 / y - abs 0.08 < x f 2 / y - abs 0.2 < x f 2 / y - abs 0.3 <
oscillated_flags
DarkstarAG
'14 Jan 23
: ' 8 * 4 - 2 mod 1 - 3 * abs ; : d dup ; : j + 1 mod 6 * 3 - abs 1 - r> * rot ; .05 x ' y ' + 1 - t 9 + * .3 * sin abs / d d >r >r >r t 9 + 10 / 1 mod d d 1 j 2 3 / j 1 3 / j
Neon blink short
Manwe + Gaz
'14 Jan 23
x x * y + : tc t 5 / dup ; tc floor - dup dup
sun and cloud
Anonymous
'14 Jan 23
: ' 8 * 4 - 2 mod 1 - 3 * abs ; : f dup floor - ; : j + f 6 * 3 - abs 1 - 0 max 1 min r> * rot ; 0.05 x ' y ' + 1 - t * 0.3 * sin abs / dup dup >r >r >r t 10 / f dup dup 1 j 2 3 / j 1 3 / j
Neon blink
Manwe + Gaz
'14 Jan 23
: c t 0.01398413 + sin t -0.9132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 2 pi * * 0.5 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j j j j j j j j j drop drop ; julia 16 / dup dup
Julia grayscale v.1
undume
'14 Jan 23
: r 0.5 - dup * ; x r y r + sqrt t 1 mod 2000 * * cos 2 / 1 + dup t 10 * cos 2 / 1 +
Pulse
DarkstarAG
'14 Jan 23
( calculates a correct distance ) : x0 x 2 * 1 - ; : y0 y 2 * 1 - ; : d dup ; : l over -2 * over / 4 + >r over x0 * over / >r over y0 * over / 1 + d 1 - d * r> d * + r> d * + sqrt 1 - min rot + swap ; 0 x0 d * y0 d * + 4 + sqrt l l l l l l l l l l l l l l l l l l l l drop 5 / d d
Ray Tracing 2
Manwe
'14 Jan 23
: c 8 * floor 2 mod ; x c y c - abs
шахматка 35bytes
Manwe
'14 Jan 23
: xx x .8 - ; : yy y .5 - ; : tt t .4 * ; : a .25 * ; : mx xx 2 a tt cos * 2 tt * cos a - + ; : my yy 2 a tt sin * 2 tt * sin a - + ; : mm 2dup Z* mx my z+ ; mx my mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm dup * swap dup * + 0 > negate 1 + dup dup
Moving Mandelbroat
Anonymous
'14 Jan 23
x 19 random 0.5 * + * sin x 37 random 0.5 * + * sin + dup * dup dup
barcode
b2718
'14 Jan 23
: ' 0.5 - 2 * ; : ^2 dup * ; : r2 x ' ^2 y ' ^2 + ; : r r2 sqrt ; : fi y ' x ' atan2 pi + t 3 * + ; : steps 50 ; : ef x ' ^2 1 - .5 * y ' ; : eyed ef - ^2 -10000 * exp ; : eyeu ef + ^2 -100 * exp ; : ineyeu x ' ^2 1 - .5 * y ' + 0 < ; : ineyed x ' ^2 1 - .5 * y ' - 0 < ; : ineye ineyed ineyeu and ; : neye 1 ineye - ; : inpupil x ' ^2 y ' ^2 + 0.18 < ; : inppb x ' ^2 y ' ^2 + 0.18 - ^2 -1000 * exp ; : pp inpupil inppb + inpupil inppb * - ; : eye eyed eyeu + ineye + ; : spiral steps r * fi + sin ; : sp3 swap push swap push swap push ; : pd pop dup ; : newcolor 1 pd push - * pd pop swap push * + ; : addr sp3 swap drop push rot newcolor -rot ; : addg swap newcolor swap ; : addb newcolor pop drop 1 ; : addimage addr addg addb ; 0 0 0 0 1 1 1 eye addimage 0 0 0 pp addimage 1 1 0 pp spiral * addimage 0.5 0.5 0.5 eyed addimage 0.85 0.64 0.38 eyeu addimage
eye-eye
rafuck
'14 Jan 22
: ' 0.5 - 2 * ; : ^2 dup * ; : r2 x ' ^2 y ' ^2 + ; : r r2 sqrt ; : fi y ' x ' atan2 pi + t 3 * + ; : steps 50 ; : ef x ' ^2 1 - .5 * y ' ; : eyed ef - ^2 -10000 * exp ; : eyeu ef + ^2 -100 * exp ; : ineyeu x ' ^2 1 - .5 * y ' + 0 < ; : ineyed x ' ^2 1 - .5 * y ' - 0 < ; : ineye ineyed ineyeu and ; : neye 1 ineye - ; : inpupil x ' ^2 y ' ^2 + 0.18 < ; : inppb x ' ^2 y ' ^2 + 0.18 - ^2 -1000 * exp ; : pp inpupil inppb + inpupil inppb * - ; : eye eyed eyeu + ineye + ; : spiral steps r * fi + sin ; : sp3 swap push swap push swap push ; : pd pop dup ; : newcolor 1 pd push - * pd pop swap push * + ; : addr sp3 swap drop push rot newcolor -rot ; : addg swap newcolor swap ; : addb newcolor pop drop 1 ; : addimage addr addg addb ; 0 0 0 0 1 1 1 eye addimage 0 0 0 pp addimage 1 1 0 pp spiral * addimage 0.5 0.5 0.5 eyed addimage 0.85 0.64 0.38 eyeu addimage
Untitled
Anonymous
'14 Jan 22
: ' 0.5 - 2 * ; : ^2 dup * ; : r2 x ' ^2 y ' ^2 + ; : r r2 sqrt ; : fi y ' x ' atan2 pi + t 3 * + ; : steps 50 ; : ef x ' ^2 1 - .5 * y ' ; : eyed ef - ^2 -10000 * exp ; : eyeu ef + ^2 -10000 * exp ; : ineyeu x ' ^2 1 - .5 * y ' + 0 < ; : ineyed x ' ^2 1 - .5 * y ' - 0 < ; : ineye ineyed ineyeu and ; : neye 1 ineye - ; : inpupil x ' ^2 y ' ^2 + 0.18 < ; : inppb x ' ^2 y ' ^2 + 0.18 - ^2 -1000 * exp ; : pp inpupil inppb + inpupil inppb * - ; : eye eyed eyeu + ineye + ; : spiral steps r * fi + sin ; : sp3 swap push swap push swap push ; : pd pop dup ; : newcolor 1 pd push - * pd pop swap push * + ; : addr sp3 swap drop push rot newcolor -rot ; : addg swap newcolor swap ; : addb newcolor pop drop 1 ; : addimage addr addg addb ; 0 0 0 0 1 1 1 eye addimage 0 0 0 pp addimage 1 1 0 pp spiral * addimage 0.5 0.5 0.5 eyed addimage 0.5 0.5 0.5 eyeu addimage
eye
rafuck
'14 Jan 22
: mx x 0.5 - ; : my y 0.5 - ; : r 0.5 ; : ci mx mx * my my * + r r * - ; ci 0.000001 < ci 0.01 >
come
noob
'14 Jan 22
X X * 10/ Y 0.1
Untitled
Anonymous
'14 Jan 22
x y z sin x + y;
Untitled
Anonymous
'14 Jan 22
: 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
mandelbroat
Anonymous
'14 Jan 22
: 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
'14 Jan 22
x y z
Untitled Redux Redux
Anonymous
'14 Jan 22
x y z
Untitled
Anonymous
'14 Jan 22
t
Untitled Redux
Anonymous
'14 Jan 22
t syn
Untitled
Anonymous
'14 Jan 22
: kk 8 ; : xx x kk * ceil 2 mod ; : yy y kk * ceil 2 mod ; xx kk * yy + yy kk * xx + + 2 mod
шахматка
noob
'14 Jan 22
: s t sin ; x t + pi 2 * * sin y 0.5 - 2 * - 0.005 <=
move sinus
noob
'14 Jan 22
: s t sin 1 + 2 / ; x pi * sin y s / 0.001 - <
check sinus
noob
'14 Jan 22
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
'14 Jan 22
: 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
'14 Jan 22
: 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
'14 Jan 22
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
'14 Jan 22
: r dup y 12 ** * t + sin swap x * cos + 1 mod ; 18 r 25 r dup 12 r /
Minimal animation Redux
Anonymous
'14 Jan 22
: h .2 * tan 1 mod ; : f dup 1 mod y .5 > * - ; x 16 * f h dup dup
Random function check
Vort
'14 Jan 22
: 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
'14 Jan 22
x * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'14 Jan 22
x=y
ку
мук
'14 Jan 22
1 x - t cos - y t t t 100 * / cos / sin + / cos t cos * dup t cos abs * dup t sin abs /
Untitled
Anonymous
'14 Jan 22
: 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
'14 Jan 22
3.14 6.75 cos 3 *
нгнг
нгкф
'14 Jan 22
: 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
'14 Jan 22
: 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
'14 Jan 22
Next