Haiku Gallery
( correct with no animation ) : w 0.215206 / x .5 - over * 2 ** y .5 - rot * 2 ** + ; 30 w sin 60 w cos over + 1
Samarkand
Manwe
'25 Jul 08
( looks good only with animation ) : w t 9999 / sin 2 / .6 + / x .5 - over * 2 ** y .5 - rot * 2 ** + ; 30 w sin 60 w cos over + 90 w sin over + sqrt
Samarkand
Manwe
'25 Jul 08
: rotate dup sin swap cos z* ; : tri 0 max swap 0 max + 1 < ; x .5 - 10 * y .5 - 10 * t 100 / sin 90 * rotate tri 0 0 rot 2 /
Monilith
DarkstarAG
'25 Jul 08
( t ) 1
Fake animation bug
Anonymous
'25 Jul 08
: fract dup floor - ; x 1 + 55 * floor y 4 - 55 * floor 199.8347 / ** t 89485 + 4107.731 / * sin 237.371 * dup floor - 2 ** x 55 * pi * sin abs y 55 * pi * sin abs * * dup 2 ** swap
Virus Colony
Manwe
'25 Jul 08
: p dup floor - ; : vx t * sin 2.5 / x 0.5 - + ; : vy t * cos 2.5 / y 0.5 - + ; : r dup * swap dup * + sqrt ; : h vy swap vx r dup 9 * dup * 1 swap - swap 0.1 < * ; : ? vy swap vx r 0.1 > ; : ! 1 2 ? * 2 3 ? * 3 5 ? * 3 4 ? * 4 5 ? * 2 5 ? * ; x 10 * p ! 1 2 h + 3 4 h + 4 5 h + y 10 * p ! 2 3 h + 3 4 h + 2 5 h + 3 5 h 4 5 h + 2 5 h +
Lightballs
Anonymous
'25 Jul 08
: l t 20 / sin 4 / ; : s t 10 / sin ; : x x 0.5 - s * ; : y y 0.5 - s * ; : x1 x l - ; : x2 x l + ; : r dup * y dup * + sqrt ; : wave r 50 * t 4 * - sin ; x1 r 0.01 < x2 r 0.01 < x1 wave x2 wave + dup *
Interference
Anonymous
'25 Jul 08
x cos 1 + 2 / y x pi * sin 1 + 2 / y z* 15 ** y t * sin 1 + 2 / 333 **
Gloving Globe Old TV
DarkstarAG
'25 Jul 08
: s swap ; : 3l rot ; : 3r -rot ; : d dup ; : len d * s d * + sqrt ; : dist 3l - 3r - len ; : wave x y dist d >r * s t * s - + cos * r> / ; .5 0 10 20 .5 .45 wave .5 0 10 100 .5 .55 wave + .5 2 10 20 .5 .45 wave .5 2 10 100 .5 .55 wave + .5 4 10 20 .5 .45 wave .5 4 10 100 .5 .55 wave +
Waves interference
PPA
'25 Jul 08
: width 22 ; : v+ >r >r >r rot r> + -rot swap r> + swap r> + ; : v*k dup dup >r >r * swap r> * swap rot r> * -rot ; : clip dup dup 0 >= swap 1 <= and * ; : ring ( r0 g0 b0 r g b xc yc - r' g' b' ) 183 / 1 swap - y - 2 ** swap 275 / x - 2 ** + sqrt .12 - .001 - abs 80 * 3 ** 1 swap - clip v*k v+ ; : , ( k x y - k' ) y width * 4 + floor = swap x width * floor = and - ; 1 1 1 -1 -1 0 64 77 ring -1 -1 -1 136 77 ring 0 -1 -1 208 77 ring 0 0 -1 101 107 ring -1 0 -1 171 107 ring 1 ( c ) 4 24 , 4 23 , 4 22 , 5 24 , 5 22 , ( o ) 7 23 , 8 24 , 8 22 , 9 23 , ( 4 ) 11 24 , 11 23 , 12 23 , 13 24 , 13 23 , 13 22 , ( u ) 15 24 , 15 23 , 16 22 , 17 24 , 17 23 , 17 22 , ( 2 ) 4 8 , 5 8 , 5 7 , 4 6 , 4 5 , 5 5 , ( 0 ) 8 8 , 7 7 , 9 7 , 7 6 , 9 6 , 8 5 , ( 1 ) 12 8 , 11 7 , 12 7 , 12 6 , 12 5 , ( 4 ) 14 8 , 16 8 , 14 7 , 16 7 , 15 6 , 16 6 , 16 5 , clip v*k
Sochi 2014
DarkstarAG
'25 Jul 08
: x1 x 0.5 - ; : y1 y 0.5 - ; : r x1 x1 * y1 y1 * + sqrt ; : x x1 t cos * y1 t sin * - ; : y x1 t sin * y1 t cos * + ; x 100 * sin y 100 * sin r 2 * t - 10 * sin
Waves
Anonymous
'25 Jul 08
: ' 128 * 64 - ; 0 x ' abs y ' abs + dup >r 1 mod .5 - abs .07 < dup t 1 + r> ceil dup 2 mod 2 * 1 - * / 1 mod pi * 2 * x ' y ' atan2 - sin .7 > * + 2 / 1.3 ** dup .2 ** .2 +
Electro Snakes short Redux
Anonymous
'25 Jul 08
x 3 * 1 - dup * y 2 * dup * 1 - x 3 * 1 - dup * log 3 / exp - dup * + t sin t cos
Blink heart
DeJQit
'25 Jul 08
x 3 * 1 - dup * y 2 * dup * 1 - x 3 * 1 - dup * log 3 / exp - dup * + t sin t cos
Untitled
Anonymous
'25 Jul 08
: fract dup floor - ; : time t 7 / 8.96 + sin .8 * ; : sun 1 x .5 - 2 ** y .7 - 2 ** + sqrt - 1.2 * ; : flat x .5 - * time r> / + * pi * 2 * cos 0 max 8 * ; : begin dup 2dup >r >r >r .2 swap / 1 + flat ; : server dup begin dup -rot - 0 max swap 1 min + .8 * r> 1 flat - 0 max ; : lamps ( mask ) dup 2dup >r >r begin r> 1 flat + dup -rot - 0 max -rot - 0 max r> dup time over / x .5 - + * fract .5 - abs .34 > ( lamps ) r> dup dup 2dup >r >r >r x + * 1 + time + 44 * floor y r> * 44 * 1 + floor 199.8347 / ** t 1125.4 + 417.731 / * sin 237.371 * dup floor - 2 ** x r> * time + 44 * pi * sin abs y r> * 44 * pi * sin abs * * * 2 ** dup >r >r y * 44 * floor dup 9 mod 2 < r> * swap 9 mod 4 = r> * -rot + -rot + ; 0 0 2 lamps 1.5 lamps 1 lamps .5 lamps over 2 ** + swap .8 3 server 2.5 server 2 server 1.5 server 1 server .5 server sun * dup 2 ** rot + swap
Server Room
www.manwe.ru
'25 Jul 08
: k 16 ; : number y k * floor k * x k * floor + ; : t/ t 4 * 30 mod floor 2 + mod ; : ? ( f x d - f&[d|x] d ) over >r 2dup > -rot mod 0 = < or r> ; 0 number 2 ? 3 ? 5 ? 7 ? 11 ? 13 ? 17 ? 19 ? 23 ? 29 ? 31 ? 37 ? 41 ? 43 ? 47 ? 53 ? 59 ? 61 ? 67 ? 71 ? 73 ? 79 ? 83 ? 89 ? 97 ? 101 ? 103 ? 107 ? 109 ? 113 ? 127 ? 131 ? 137 ? 139 ? 149 ? 151 ? 157 ? 163 ? 167 ? 173 ? 179 ? 181 ? 191 ? 193 ? 197 ? 199 ? 211 ? 223 ? 227 ? 229 ? 233 ? 239 ? 241 ? 251 ? drop
Primes less 256
DarkstarAG
'25 Jul 08
( WOW! Shorter rotate! x1 = xcosa - ysina, y1 = xsina + ycosa ) : rotate ( x y a - x1 y1 ) dup sin swap cos z* ; : n 1 + 2 / ; : sword ( k tempo ) >r >r x t r> dup >r + cos n - y t r> + sin n - t 1 mod pi * r> * rotate - abs .1 ** 1 - negate ; 0 2 sword 3 -2 sword 2 2 sword
jedy swords 2 (shorter rotate)
DarkstarAG
'25 Jul 08
: a x .5 - y .5 - atan2 ; : r x .5 - 2 ** y .5 - 2 ** + sqrt 1 * .1 + 2 * a 1 * t 2 * + sin 1 + 3 / + ; : x' a cos r * ; : y' a sin r * ; : c x' 2 ** y' 2 ** + 1 - abs .4 ** 1.2 swap - abs 3 ** ; c
Cardioida Polar Smooth
DarkstarAG
'25 Jul 08
( test of visualizing equation polar r=F[phi,a], r=2a[1+cosphi] ) : x' x .5 - ; : y' y .5 - ; : r' x' y' atan2 2 * t pi * - cos .2 - 3 ** 2 / ; : r x' 2 ** y' 2 ** + sqrt ; : cardioida r' r - abs .02 < ; cardioida
Cardioida Polar Infinity
DarkstarAG
'25 Jul 08
x 9.4 * sin y 9.4 * cos t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 08
t 20 * 200 mod 100 - abs 100 / dup y 0.5 - 1.4 * + swap dup x 0.5 - 1.77 * + swap x 0.5 - 0.344 * - y 0.5 - 0.714 * - swap
YUV Y′CbCr -> RGB
Kosvik
'25 Jul 08
( test of visualizing equation F[x,y]=0 ) : x' x .5 - 3 * ; : y' y .5 - 3 * ; : cardioida x' 2 ** y' 2 ** + 1 - 3 ** x' 2 ** y' 3 ** * - ; cardioida -.3 - abs .3 < ( t 5 * sin .2 - + abs .1 < )
Cardioida Heart
DarkstarAG
'25 Jul 08
( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ru ) : zoom t 5 / sin 10 / ; : xx x .5 - .8 zoom - * t cos 5 / negate + ; : yy y .3 - .8 zoom - * zoom + ; : a t sin 3 / + ; : line 2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ; : wings .025 .12 line .025 -.12 line * -.025 .12 line - -.025 -.12 line - ; : flaps 0.045 .8 line 0.006 .4 line - 0.045 -.8 line 0.006 -.4 line - + + 0 max ; : tail -0.057 0 line xx .065 - yy atan2 a 0 > - xx .065 + yy atan2 a 0 < - 0 max + xx .0065 + yy atan2 a 55 * 1 min 0 max xx .0065 - yy atan2 a 55 * 1 min 0 max - + ; : cut 1 -0.064 0 line - * 0.019 0 line * ; : circle dup 0 a cos * xx - 2 ** swap 0 a sin * yy - 2 ** + - 3999 * 0 max 1 min ; : engine 0.0008 .05 circle + 0.0008 -.05 circle + ; : fire 0.0002 random 8000 / + dup >r .05 circle r> -.05 circle + 5 * ; : run 4 1 y 1.3 * - / t dup floor - 6 * + floor 2 mod dup y 1.6 * + 1 min .6 * swap 0 = y 1.6 * + 1 min .5 * ; : sun 1 x .5 - 2 ** y .94 - 2 ** + .2 ** - ; run sun + wings flaps tail cut engine dup -rot - -rot - dup 0 > fire dup dup >r >r + rot r> + rot r> .65 * + 0 max .27 ** dup .05 < .36 * +
Planet of Zoom
www.manwe.ru
'25 Jul 08
: a x .5 - y .5 - atan2 ; : r x .5 - 2 ** y .5 - 2 ** + sqrt 2 * .1 + 2 * a 4 * t 2 * + sin 4 / + a 8 * t 3 / + sin 8 / + a 20 * sin 300 / + ; : x' a cos r * ; : y' a sin r * ; : c x' 2 ** y' 2 ** + 1 - abs .4 ** 1.2 swap - abs 3 ** ; c
Polar Cross Loop
DarkstarAG
'25 Jul 08
: a x .5 - y .5 - atan2 ; : r x .5 - 2 ** y .5 - 2 ** + sqrt 2 * .1 + 2 * a 3 * t 2 * + sin 4 / + a 7 * t 3 / + sin 8 / + a 20 * sin 20 / + ; : x' a cos r * ; : y' a sin r * ; : c x' 2 ** y' 2 ** + 1 - abs .4 ** 1.2 swap - abs 3 ** ; c
Polar Plot
DarkstarAG
'25 Jul 08
: 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 / <script>alert();</script>
Golden bump Redux
Tron
'25 Jul 08
: 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 / <b>shoulda sanitized>
Golden bump Redux
Anonymous
'25 Jul 08
: n 1 + 2 / ; : xn x .5 - ; : yn y .5 - ; : r@ r> dup >r ; : x' ( t - x1 ) dup cos xn * swap sin yn * - ; : y' ( t - y1 ) dup sin xn * swap cos yn * + ; : line-test ( t p1 p2 - ) >r >r >r r@ y' abs 0.01 - 1 - negate 200 ** r> x' r> ( p2 ) - abs r> ( p1 ) < * ; : arc pi * 2 * 4.73 + ; : subs t arc .17 .26 line-test 10 / ; : ss t floor 60 / arc .14 .23 line-test 10 / ; : mm t 3600 / arc .12 .17 line-test 3 / ; : hh t 3600 / 12 / arc .05 .11 line-test ; : xy x 0.5 - y 0.5 - ; : rr xy 2 ** swap 2 ** + sqrt ; : ticks xy rr dup .39 > swap .43 < * >r atan2 6 * 1.4 + sin abs 200 ** 1.0 / r> * + ; : ticks2 xy rr dup .422 > swap .43 < * >r atan2 30 * 1.3 + sin abs 200 ** 1.0 / r> * + ; : circle rr dup .47 - abs 64 * -2 ** * + ; : pimpka rr 1.02 - abs 200 ** 2 / max ; : decor ticks ticks2 circle pimpka ; ss subs .5 * max decor mm subs .25 * max decor hh subs .8 * max decor
My Clock Redux
dar
'25 Jul 08
: n 1 + 2 / ; : tt t ; : xn x .5 - ; : yn y .5 - ; : r@ r> dup >r ; : x' ( t - x1 ) dup cos xn * swap sin yn * - ; : y' ( t - y1 ) dup sin xn * swap cos yn * + ; : line-test ( t p1 p2 - ) >r >r >r r@ y' abs 0.01 - 1 - negate 200 ** r> x' r> ( p2 ) - abs r> ( p1 ) < * ; : arc pi * 2 * 4.73 + ; : subs t arc .17 .26 line-test 10 / ; : ss t floor 60 / arc .14 .23 line-test 10 / ; : mm t 3600 / arc .12 .17 line-test 3 / ; : hh t 3600 / 12 / arc .05 .11 line-test ; : xy x 0.5 - y 0.5 - ; : rr xy 2 ** swap 2 ** + sqrt ; : ticks xy rr dup .39 > swap .43 < * >r atan2 6 * 1.4 + sin abs 200 ** 1.0 / r> * + ; : circle rr dup .47 - abs 64 * -2 ** * + ; : pimpka rr 1.02 - abs 200 ** 2 / max ; : decor ticks circle pimpka ; ss subs .5 * max decor mm subs .25 * max decor hh subs .8 * max decor
My Clock
DarkstarAG
'25 Jul 08
( 2SWAP impl ) : 2swap ( a b c d - c d a b ) >r -rot r> -rot ; x y 0 0 2swap
2SWAP
DarkstarAG
'25 Jul 08
( WTF ? fixed at 2014-02-03 first version created at win64 this version fixed at win32 ) : xy x 0.5 - y 0.5 - ; : ang xy atan2 pi / 1 + 2 / .5 + 1 mod ; : second t 60 mod floor 60 / ; : minute t 60 / 60 mod floor 60 / ; : hour t 60 / 60 / 12 mod 12 / ; : incircle xy dup * swap dup * + .14 < * ; : hand ang - abs 0.005 < incircle ; : rr xy 2 ** swap 2 ** + sqrt ; : ticks xy rr dup .39 > swap .43 < * >r atan2 6 * 1.4 + sin abs 200 ** 1.0 / r> * + ; : circle rr dup .47 - abs 64 * -2 ** * + ; : pimpka rr 1.02 - abs 200 ** 2 / max ; : decor hand ticks circle pimpka ; second decor minute decor hour decor
Clock Redux from BradN fix1
DarkstarAG
'25 Jul 08
( rotate and use as primitive ) : line-test x .5 - abs 0.01 - 1 - negate 200 ** y .5 - abs .4 < * ; line-test
Line test
DarkstarAG
'25 Jul 08
: xy x 0.5 - y 0.5 - ; : ang xy atan2 pi / 1 + 2 / .5 + 1 mod ; : second t 60 mod floor 60 / ; : minute t 60 / 60 mod floor 60 / ; : hour t 60 / 60 / 12 mod 12 / ; : incircle xy dup * swap dup * + .14 < * ; : hand ang - abs 0.005 < incircle ; : rr xy 2 ** swap 2 ** + sqrt ; : ticks xy rr dup .39 > swap .43 < * >r atan2 6 * 1.4 + sin 200 ** 1.0 / r> * + ; : circle rr dup .47 - abs 64 * -2 ** ( .46 > swap .48 < ) * + ; : pimpka rr 1.02 - 300 ** 2 / max ; : decor hand ticks circle pimpka ; second decor minute decor hour decor
Clock Redux from BradN
DarkstarAG
'25 Jul 08
1 x .5 - y .5 - 2dup atan2 .8 * .5 + floor .8 / dup cos swap sin z* .4 - swap .6 / abs + abs - 2 **
Soviet Star
Digimind + Manwe
'25 Jul 08
1 x .5 - y .5 - 2dup atan2 .8 * .5 + floor .8 / dup cos swap sin z* .4 - swap .6 / abs + abs 80 * -
Star 99 bytes
Digimind
'25 Jul 08
: oneor 2dup over < * -rot swap over < * ; : other 1000 * dup floor - ; : force 10 / ; : tube + 12 * t + sin 1 + 2 / ; random force dup x tube swap other force y tube oneor 2dup + 1 swap -
Randomtubes
Renha
'25 Jul 08
( Shader text limit: max 3 clouds ;( ) : width 8 ; : g/ 16 / ; : deg ( deg - rad ) 180 / pi * ; : rad ( rad - deg ) 180 * pi / ; : xw x width * ; : yw y width * ; : rect ( c x1 y1 x2 y2 - c*f ) yw > swap xw > * swap yw < * swap xw < * * g/ ; : fillcircle ( c r x y - c*f ) yw - dup * swap xw - dup * + sqrt > * g/ ; : r@ r> dup >r ; : p' t * 6 / sin pi * 4 * cos ; : ~xy ( x y p - x' y' ) p' >r t r@ 4 * + sin r@ 3 * * + swap t r@ 5 * + cos r@ 4 * * + swap r> drop ; : cloud ( p - ) >r 0 16 r@ * .6 3.3 3.6 r@ ~xy fillcircle max 16 r@ * 1 4.3 4.2 r@ ~xy fillcircle max 16 r@ * .6 5.4 4.3 r@ ~xy fillcircle max 16 r@ * .7 6 3.7 r@ ~xy fillcircle max 16 r@ * 3.3 3 r@ ~xy 6 4 r@ ~xy rect max r> drop ; : clouds .8 cloud .4 cloud max .2 cloud max ; clouds >r 0 r@ max 0 r@ max 1 r> /
Vector Clouds
DarkstarAG
'25 Jul 08
: f atan2 556677 * 1 mod ; : k pop dup push ; : a k / 1 mod ; : b a negate 1 + ; : cx x x k mod - ; : cy y y k mod - ; : dx cx k + ; : dy cy k + ; : sx .11 ; : sy .6 ; : q1 sx cx + sy cy + f x b * ; : q2 sx dx + sy cy + f x a * ; : q3 sx cx + sy dy + f x b * ; : q4 sx dx + sy dy + f x a * ; : l q1 q2 + y b * q3 q4 + y a * + ; : i pop .5 * push .66 * dup -rot l * + swap ; 1 push 0 .6 i i i i i i i drop pop drop dup dup
Fractal noise
Vort
'25 Jul 08
( VectorDraw ) ( c - color component, f - scale koef, c*f - force of color ) : width 8 ; : greys 16 ; : g/ greys / ; : deg ( deg - rad ) 180 / pi * ; : rad ( rad - deg ) 180 * pi / ; : xw x width * ; : yw y width * ; : rect ( c x1 y1 x2 y2 - c*f ) yw > swap xw > * swap yw < * swap xw < * * g/ ; : fillcircle ( c r x y - c*f ) yw - dup * swap xw - dup * + sqrt > * g/ ; : cloud 0 16 .6 3.3 3.6 fillcircle max 16 1 4.3 4.2 fillcircle max 16 .6 5.4 4.3 fillcircle max 16 .7 6 3.7 fillcircle max 16 3.3 3 6 4 rect max ; 0 cloud max 0 cloud max 1 cloud /
Vector Cloud
DarkstarAG
'25 Jul 08
: r x .5 - 2 ** y .5 - 2 ** + ; : a x .5 - y .5 - atan2 ; : aa x .5 - 2 * 2 ** y .5 - 50 * 2 ** + .3 ** 1 - negate ; : bb a 6 * t 4 * pi * 2 * + sin 1 + 3 ** ; ( r ) aa bb 3 * * ( g ) bb 6 / aa + ( b ) bb 3 / aa 2 * +
Pulsar
DarkstarAG
'25 Jul 08
Next