Haiku Gallery
( color scheme: QuickBasic and MSX2 memories ) 0 5 x .5 - 20 ** y .5 - 20 ** + .05 ** dup -rot / t dup floor - pi * 2 * + sin over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .9
Square Tunnel
Manwe
'25 Sep 16
: x1 .3 ; : x15 .35 ; : x2 .4 ; : x3 .6 ; : x35 .65 ; : x4 .7 ; : y1 .1 ; : y15 .15 ; : y2 .2 ; : y3 .45 ; : y35 .5 ; : y4 .55 ; : y5 .8 ; : y55 .85 ; : y6 .9 ; : wl x x15 > x x35 < and and ; : hl1 y y35 > y y55 < and and ; : hl2 y y15 > y y35 < and and ; : a y y5 > y y6 < and wl or ; : g y y3 > y y4 < and wl or ; : d y y1 > y y2 < and wl or ; : f x x1 > x x2 < and hl1 or ; : b x x3 > x x4 < and hl1 or ; : e x x1 > x x2 < and hl2 or ; : c x x3 > x x4 < and hl2 or ; : dv t 10 mod ; : tc dv swap < swap dv swap >= and ; 0 0 1 tc 0 a b c d e f and or 1 2 tc 0 b c and or 2 3 tc 0 a b d e g and or 3 4 tc 0 a b c d g and or 4 5 tc 0 b c f g and or 5 6 tc 0 a c d f g and or 6 7 tc 0 a c d e f g and or 7 8 tc 0 a b c and or 8 9 tc 0 a b c d e f g and or 9 10 tc 0 a b c d f g and or dup dup
Digits
Vort
'25 Sep 16
: 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
PACMAN Redux
Anonymous
'25 Sep 16
x y t sin 2 / 0.5 + 1
Minimal animation Redux
Anonymous
'25 Sep 16
: #rays 3 ; : n 1 + 2 / ; : ' .5 - 10 * ; : x' x ' t negate cos * y ' t negate sin * - n ; : y' x ' t negate sin * y ' t negate cos * + n ; : ds dup * .3 * swap #rays * + sin 3 * 1 + ; : fc 2dup ds - swap drop ; : x2 x' 0.5 - 2 * ; : y2 y' 0.5 - 2 * ; y2 x2 atan2 x2 x2 * y2 y2 * + sqrt fc abs 1 - negate dup sin over dup cos swap tan min
TriLobe Redux 2
DarkstarAG
'25 Sep 16
: b x * t sin + sin ; : e y * t tan - cos / log cos ; 8 b 16 e 17 b 10 e 5 b 9 e
fiberellum Redux 2
DarkstarAG
'25 Sep 16
( Show digits ... ) ( WARNING: Shader text limit ) : width 16 ; : 2r@ r> r> 2dup >r >r ; : bit ( v n - v.bit[n] ) 2 swap ** / floor 2 mod ; : xy? ( x1 y1 - f ) y width * floor = swap x width * floor = and ; : show ( ch x1 y1 - f ) >r >r 0 swap ( f ch | x1 y1 ) 2812 over bit 2r@ 0 2 z+ xy? * rot + swap ( bit*f[xy?]+f ch ) 7051 over bit 2r@ 1 2 z+ xy? * rot + swap 2996 over bit 2r@ 2 2 z+ xy? * rot + swap 2917 over bit 2r@ 0 1 z+ xy? * rot + swap 2906 over bit 2r@ 1 1 z+ xy? * rot + swap 3061 over bit 2r@ 2 1 z+ xy? * rot + swap 2380 over bit 2r@ 0 0 z+ xy? * rot + swap 6635 over bit 2r@ 1 0 z+ xy? * rot + swap 2644 over bit 2r@ 2 0 z+ xy? * rot + 0 <> swap drop r> r> drop drop ; : ss t floor 60 mod ; : mm t 60 / floor 60 mod ; : indicator dup >r 10 mod 9 6 show r> 10 / floor 10 mod 3 6 show or t 2 * floor 2 mod 12 6 6 show * or ; 0 ss indicator x width * floor 4 xy? ( x width * floor 10 xy? or )
Digital Clock 1
DarkstarAG
'25 Sep 16
( 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 Sep 16
( 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 Sep 16
: 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 Sep 16
( t ) 1
Fake animation bug
Anonymous
'25 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: ' 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 Sep 16
x 3 * 1 - dup * y 2 * dup * 1 - x 3 * 1 - dup * log 3 / exp - dup * + t sin t cos
Blink heart
DeJQit
'25 Sep 16
x 3 * 1 - dup * y 2 * dup * 1 - x 3 * 1 - dup * log 3 / exp - dup * + t sin t cos
Untitled
Anonymous
'25 Sep 16
: 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 Sep 16
: 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 Sep 16
( 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 Sep 16
: 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 Sep 16
( 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 Sep 16
x 9.4 * sin y 9.4 * cos t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 16
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 Sep 16
( 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 Sep 16
( 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
: 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 Sep 16
( 2SWAP impl ) : 2swap ( a b c d - c d a b ) >r -rot r> -rot ; x y 0 0 2swap
2SWAP
DarkstarAG
'25 Sep 16
( 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 Sep 16
( 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 Sep 16
: 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 Sep 16
Next