Haiku Gallery
x 3 * 1 - dup * y 2 * dup * 1 - x 3 * 1 - dup * log 3 / exp - dup * + t sin t cos
Untitled
Anonymous
'25 Jul 11
: 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 11
: 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 11
( 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 11
: 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 11
( 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 11
x 9.4 * sin y 9.4 * cos t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 11
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 11
( 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 11
( 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 11
: 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 11
: 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 11
: 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 11
: 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 11
: 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 11
: 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 11
( 2SWAP impl ) : 2swap ( a b c d - c d a b ) >r -rot r> -rot ; x y 0 0 2swap
2SWAP
DarkstarAG
'25 Jul 11
( 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 11
( 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 11
: 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 11
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 11
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 11
: 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 11
( 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 11
: 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 11
( 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 11
: 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 11
( x = rcosat, y = rsinbt ) : n 1 + 2 / ; : r x .5 - 2 ** y .5 - 2 ** + sqrt ; : x' x .5 - pi * 4 * sin n r * ; : y' y .5 - pi * 3 * cos n r * ; x' .5 - 2 ** y' .5 - 2 ** + 2 t pi * 2 * sin 12 / + ** 30 * 3 mod
PlayStaytionPanel01
DarkstarAG
'25 Jul 11
( greetings to DarkstarAG and BradN ) : line x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - ; : cut y > swap y < * -rot x > swap x < * * * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 line .25 .475 .68 .78 cut .69 .47 .83 .64 line .47 .64 .69 .83 cut .83 .63 .64 .64 line .63 .65 .64 .83 cut .64 .64 .51 .76 line .64 .76 .51 .64 cut .51 .76 .47 .60 line .595 .76 .47 .51 cut .47 .60 .34 .50 line .50 .60 .34 .47 cut .34 .50 .46 .37 line .37 .50 .34 .46 cut .46 .37 .48 .20 line .20 .37 .455 .48 cut .48 .20 .59 .32 line .20 .32 .48 .59 cut .59 .32 .78 .25 line .25 .32 .59 .78 cut .40 .54 .36 .63 line .54 .631 .35 .40 cut .36 .63 .14 .55 line .55 .63 .14 .36 cut .14 .55 .13 .74 line .55 .74 .13 .14 cut .13 .74 .27 .60 line .60 .74 .13 .27 cut .39 .45 .315 .35 line .35 .45 .315 .39 cut .32 .35 .13 .50 line .35 .50 .13 .32 cut .13 .50 .14 .29 line .29 .50 .13 .14 cut .14 .29 .25 .41 line .29 .41 .14 .25 cut .50 .42 .46 .515 line .42 .515 .457 .50 cut .46 .51 .53 .58 line .51 .58 .46 .53 cut .58 .46 dot .59 .53 dot dup dup
Spike (Vectrex)
www.manwe.ru
'25 Jul 11
: better-line rot dup >r - -rot swap dup >r - / dup r> * r> - x + over y * - abs swap 2 ** 1 + sqrt / 112 * 1 swap - ; : x1 t 3.1 / sin abs ; : y1 t 1.7 / sin abs ; : x2 t 2.3 / cos abs ; : y2 t 1.9 / cos abs ; 1 1 1 y1 x1 y2 x2 better-line
walking line
Manwe
'25 Jul 11
: ' .5 - 2 ** ; 1.2 x ' y ' + sqrt 2 * 5 ** - .6 0
Full Sun
DarkstarAG
'25 Jul 11
: star >r 1024 / 1 swap - y - abs swap 1024 / x - abs + 20 * 0.3 ** r> ** 1 - negate 20 * t 10 * x y + 10 * + sin 1.5 + 3 / * ; : ! max ; : c 256 / * ; : orion ( red ) 0 320 160 .1 star 250 c ! 548 702 .1 star 220 c ! ( green ) 0 320 160 .1 star 140 c ! 548 702 .05 star 250 c ! ( blue ) 0 320 160 .1 star 120 c ! 535 48 .1 star ! 535 48 .1 star ! 643 196 .1 star ! 484 556 .08 star ! 530 524 .08 star ! 575 483 .08 star ! 506 584 .06 star ! 659 571 .07 star ! 541 678 .04 star ! 548 702 .02 star 100 c ! 544 742 .06 star ! 417 889 .1 star ! 767 816 .12 star ! 982 360 .05 star ! 1012 217 .05 star ! 1017 70 .05 star ! ; orion
Orion Blink
DarkstarAG
'25 Jul 11
: #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 )
TriLobe Redux
DarkstarAG
'25 Jul 11
( Boo - oops! 18+ :O ) ( : to-moderator too-explicit if remove-it then ; ) : cir ( r x y ) y - dup * swap x - dup * + sqrt - 25 * exp 3 / + ; : p1 t 4 * sin 1 - 12 / + ; : p2 t 4 * -.75 + sin 1.2 - 17 / + ; : *censored* x .05 < x .95 > or y .05 < or y .95 > or ( .05 + ) * ; : rr 0 .35 .2 .0 p1 cir .05 .2 .28 p2 cir .35 .8 .0 p1 cir .05 .8 .28 p2 cir 1 min ; : gg 0 .35 .2 .0 p1 cir .05 .2 .28 p2 cir .35 .8 .0 p1 cir .05 .8 .28 p2 cir .05 min ; : bb 0 .35 .2 .0 p1 cir .05 .2 .28 p2 cir .35 .8 .0 p1 cir .05 .8 .28 p2 cir .2 min ; rr *censored* gg *censored* bb *censored*
Boo - oops! WARNING: 18+
DarkstarAG
'25 Jul 11
: star >r 1024 / 1 swap - y - abs swap 1024 / x - abs + 20 * 0.3 ** r> ** 1 - negate 20 * ; : ! max ; : c 256 / * ; : orion ( red ) 0 320 160 .1 star 250 c ! 548 702 .1 star 220 c ! ( green ) 0 320 160 .1 star 140 c ! 548 702 .05 star 250 c ! ( blue ) 0 320 160 .1 star 120 c ! 535 48 .1 star ! 535 48 .1 star ! 643 196 .1 star ! 484 556 .08 star ! 530 524 .08 star ! 575 483 .08 star ! 506 584 .06 star ! 659 571 .07 star ! 541 678 .04 star ! 548 702 .02 star 100 c ! 544 742 .06 star ! 417 889 .1 star ! 767 816 .12 star ! 982 360 .05 star ! 1012 217 .05 star ! 1017 70 .05 star ! ; orion
Orion
DarkstarAG
'25 Jul 11
( fixed width and antialiasing ) : line y - swap x - rot y swap - * rot x swap - rot * - abs 144 ; : width rot - 2 ** -rot - 2 ** + sqrt / * 1 min 1 swap - ; : x1 t 3.1 / sin abs ; : y1 t 1.7 / sin abs ; : x2 t 2.3 / cos abs ; : y2 t 1.9 / cos abs ; 1 1 1 x1 y1 x2 y2 line x1 y1 x2 y2 width
walking line
Manwe
'25 Jul 11
: line y - swap x - rot y swap - * rot x swap - rot * - abs 256 * 1 min 1 swap - ; 1 1 1 t 3.1 / sin abs t 1.7 / sin abs t 2.3 / cos abs t 1.9 / cos abs line
random line
Manwe
'25 Jul 11
( Pixel Draw 8 coor ) ( Note: shader text limits ) : width 32 ; : bg1 t 2 / sin 1 + 16 * floor ; : bg 0 ; : wf width * floor ; : ?? ( x y - f ) y wf = swap x wf = * ; : d ( x base - d x' ) 2dup mod -rot / floor ; : c 2 d 2 d 2 d drop ; : tween ( a b k - k[a-b]+b ) over push -rot - * pop + ; : ?: ( a b f - f?a:b ) 0 <> 1 over - -rot * -rot * + ; : ! ( c x y - ) ?? bg -rot ?: + ; : [ 0 ; : ] c ; : ss t floor 60 mod ; : mm t 60 / floor 60 mod ; : hh t 3600 / floor 24 mod ; : v+ ( x y x1 y1 - x+x1 y+y1 ) swap + -rot + swap ; : , ( k c x y x1 y1 - k c x y ) rot dup >r + >r over >r + r> r> swap >r rot dup >r -rot ! r> r> r> ; : d0 ( c x y - c' ) 1 0 , 0 1 , 2 1 , 0 2 , 2 2 , 0 3 , 2 3 , 1 4 , drop drop drop ; [ 1 0 0 d0 5 4 0 d0 7 9 0 ! 7 10 0 ! 7 11 0 ! ]
0 0 _ Shader text limit ...
DarkstarAG
'25 Jul 11
: to 2dup 2dup >r >r >r >r ; : vec rot - negate -rot - / ( k ) x r> - over * r> + y - 0 < swap .0039 over / x r> - + over * swap .0039 * abs + r> + y - 0 < - ; : cut rot 2dup min y < -rot max y > * -rot 2dup min x < -rot max x > * * * + ; 0 ( x1 y1 x2 y2 ) .5 .9 to .63 .66 vec .5 .91 .64 .66 cut .63 .66 to .9 .6 vec .63 .66 .91 .6 cut .9 .6 to .72 .37 vec .9 .6 .72 .37 cut .72 .37 to .75 .09 vec .72 .37 .76 .1 cut .75 .1 to .49 .2 vec .75 .1 .49 .2 cut .51 .2 to .25 .1 vec .51 .2 .25 .1 cut .28 .37 to .25 .09 vec .28 .37 .24 .1 cut .1 .6 to .28 .37 vec .1 .6 .28 .37 cut .37 .66 to .1 .6 vec .37 .66 .09 .6 cut .5 .9 to .37 .66 vec .5 .91 .36 .66 cut
Vector Star
Manwe
'25 Jul 11
( 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/ ; : circle ( penwidth c r x y - c*f ) yw - dup * swap xw - dup * + sqrt - abs rot width / < * g/ ; : tria ( c x1 y1 x2 y2 x3 y3 - c*f ) TODO ; : quad ( c x1 y1 x2 y3 x3 y3 x4 y4 - c*f ) TODO ; : ray ( c deg1 deg2 x y - c*f ) xw rot - yw rot - swap atan2 rad swap over >= -rot <= * * ; : line ( c w x1 y1 x2 y2 - ) TODO ; 8 3 4 4 fillcircle 16 .4 3 5 fillcircle 16 .4 5 5 fillcircle + + 16 .1 3 5 t 30 * sin 7 / + fillcircle - 16 .1 5 5 t 30 * sin 7 / + fillcircle - 16 2 4 4 t 30 * sin 4 / + fillcircle 16 2.4 4 5.3 t 30 * sin 4 / + fillcircle -
Hahaha!
DarkstarAG
'25 Jul 11
Next