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 Sep 17
: 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 17
: 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 17
( 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 17
: 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 17
( 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 17
x 9.4 * sin y 9.4 * cos t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 17
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 17
( 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 17
( 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 17
: 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 17
: 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 17
: 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 17
: 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 17
: 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 17
: 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 17
( 2SWAP impl ) : 2swap ( a b c d - c d a b ) >r -rot r> -rot ; x y 0 0 2swap
2SWAP
DarkstarAG
'25 Sep 17
( 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 17
( 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 17
: 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 17
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 Sep 17
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 Sep 17
: 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 Sep 17
( 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 Sep 17
: 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 Sep 17
( 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 Sep 17
: 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 Sep 17
( 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 Sep 17
( 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 Sep 17
: 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 Sep 17
: ' .5 - 2 ** ; 1.2 x ' y ' + sqrt 2 * 5 ** - .6 0
Full Sun
DarkstarAG
'25 Sep 17
: 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 Sep 17
: #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 Sep 17
( 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 Sep 17
: 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 Sep 17
( 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 Sep 17
: 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 Sep 17
( 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 Sep 17
: 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 Sep 17
( 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 Sep 17
Next