Haiku Gallery
( 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
'14 Feb 01
( 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
'14 Feb 01
: 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
'14 Feb 01
: ' .5 - 2 ** ; 1.2 x ' y ' + sqrt 2 * 5 ** - .6 0
Full Sun
DarkstarAG
'14 Feb 01
: 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
'14 Feb 01
: #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
'14 Feb 01
( 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
'14 Feb 01
: 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
'14 Feb 01
( 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
'14 Feb 01
: 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
'14 Feb 01
( 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
'14 Feb 01
: 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
'14 Feb 01
( 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
'14 Feb 01
( 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 ; 9 1 t sin + 4 2 t sin + 6 rect 4 12 2 3 5 circle 5 2 3 3 fillcircle - 8 2 3 7 fillcircle + 3 t sin 180 * dup 30 + 4 4 ray
Vector Draw
DarkstarAG
'14 Feb 01
: 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
sd
anon
'14 Feb 01
: r x .5 - dup * y .0 - dup * + sqrt ; : f r t 10 / pi * 2 * sin 10 / + dup >r 20 * + sin -1 * r> dup 0.4 > swap .7 < and * ; 5 f 0 f 1 f
Rainbow Redux
DarkstarAG
'14 Jan 31
: h ." hello world!" ;
Untitled
Anonymous
'14 Jan 31
1 y 2 * - x y 2 * 8 ** t 9 / sin * + .5 - abs 2dup > .5 y - * -rot 45 * > 3 1 y 1.8 * - / t 1 mod 6 * + floor 2 mod 1 y 1.8 * - * 4 / * + dup 0 = .5 y - * .75 ** y .5 < * over + over 1 x t 9 / cos + 12 * sin 30 / y .6 - < * + 1.5 y 1.3 * - y .5 > * -
Night Road
Manwe
'14 Jan 31
: f x 3 y t sin * * - + sin ; 1 f 0 f 5 f
Spectruium
Anonymous
'14 Jan 31
: r x .5 t cos * - dup * y .0 - dup * + sqrt ; : f r dup >r 20 t sin / * + sin -1 * r> dup 0.4 > swap .7 x t * sin * < and * ; 5 f 0 f 1 f
Rainbowigita
BradN
'14 Jan 31
: r x .5 - dup * y .0 - dup * + sqrt ; : f r dup >r 20 * + sin -1 * r> dup 0.4 > swap .7 < and * ; 5 f 0 f 1 f
Rainbow
DarkstarAG
'14 Jan 30
( Bar clock ) : n 1 + 2 / ; : s t floor 60 mod ; : m t 60 / floor 60 mod ; : h t 3600 / floor 12 mod ; x s 60 / - abs 0.01 < y 0.3 < * x m 60 / - abs 0.01 < y 0.2 < * x h 12 / - abs 0.01 < y 0.1 < *
Bar Clock
DarkstarAG
'14 Jan 30
( x1 = xcosa - ysina, y1 = xsina + ycosa ) : rotate ( x y a - x1 y1 ) dup sin swap cos ( x y sa ca ) 2dup >r >r ( x y sa ca R:ca sa ) rot dup >r * ( x sa yca R:ca sa y ) -rot over * swap r> r> r> ( yca xsa x y sa ca ) -rot * -rot * ( yca xsa ysa xca ) swap - -rot + ( x1=xca-ysa y1=xsa+yca ) ; : n 1 + 2 / ; x t cos n - y t sin n - t 1 mod pi * 2 * rotate - abs .1 ** 1 - negate x t sin n - y t cos n - t 1 mod pi * -2 * rotate - abs .1 ** 1 - negate x t cos n + y t cos n + t 1 mod pi * 2 * rotate - abs .1 ** 1 - negate
jedy swords
DarkstarAG
'14 Jan 30
( x1 = xcosa - ysina, y1 = xsina + ycosa ) : rotate ( x y a - x1 y1 ) dup sin swap cos ( x y sa ca ) 2dup >r >r ( x y sa ca R:ca sa ) rot dup >r * ( x sa yca R:ca sa y ) -rot over * swap r> r> r> ( yca xsa x y sa ca ) -rot * -rot * ( yca xsa ysa xca ) swap - -rot + ( x1=xca-ysa y1=xsa+yca ) ; : n 1 + 2 / ; x t cos n - y t sin n - t 1 mod pi * 2 * rotate - abs .1 ** 1 - negate x t sin n - y t cos n - t 1 mod pi * -2 * rotate - abs .1 ** 1 - negate x t cos n + y t cos n + t 1 mod pi * 2 * rotate - abs .1 ** 1 - negate
jedy swords
DarkstarAG
'14 Jan 30
: r 2dup atan2 >r 2 ** swap 2 ** + sqrt r> 6 * t pi * 3 * sin 2 * + sin 60 / + ; 0 x .5 - y .5 - negate atan2 4 / 1 x .5 - y .5 - r 60 * sin 2 / - abs
Alien Radar
DarkstarAG
'14 Jan 30
: x(t) pi * 2 * dup push cos x .5 - * pop sin y .5 - * - .5 + ; : y(t) pi * 2 * dup push sin x .5 - * pop cos y .5 - * + .5 + ; : sec t 60 mod floor 60 / x(t) ; : min t 60 / floor 60 mod 60 / x(t) ; : hour t 3600 / floor 12 mod 12 / x(t) ; : arrow dup .49 > swap .51 < and ; sec arrow min arrow hour arrow
Arrow Clock (fixed)
DarkstarAG
'14 Jan 30
: =? - abs 256 * 0.5 < ; : n 1 + 2 / ; : xt 2 / t 2 + + cos n ; : yt 3 / t + sin n ; : l random pi * 40 * dup xt x - abs swap yt y - abs + sqrt + ; 0 0 l .25 < 0
Lissajou 1
DarkstarAG
'14 Jan 30
: z t 1 + cos 4 + 3 / * ; : a 1.1 x .5 - y .5 - atan2 t ; : b * dup sin swap 2 / t 5 * + cos t 3 / sin 2 / 1 + * - 30 / x .5 - z 2 ** y .5 - z 2 ** + + - 4 ** ; a 1.7 / + 10 b t cos 1 + 5 / + a 1.9 / - 8 b a 2.1 / - 6 b t 2.7 * cos 1 + 5 / +
TBL Astral
Manwe
'14 Jan 30
: =? - abs .3 - abs 4 * sin 1 + 2 / dup * ; : xt x 50 * sin ; : yt y 50 * t + cos t sin .3 / + ; xt x 2 * - abs yt y 2 * - abs =? xt x 5 * - abs yt y 7 * - abs =? xt x 8 * - abs yt y 3 * - abs =?
Paranoia
DarkstarAG
'14 Jan 30
: x(t) pi * 2 * dup push cos x .5 - * pop sin y .5 - * - .5 + ; : y(t) pi * 2 * dup push sin x .5 - * pop cos y .5 - * + .5 + ; : sec t 60 mod floor 60 / x(t) ; : min t 60 / floor 60 mod 60 / x(t) ; : hour 6 86400 * 86400 / 12 mod floor 12 / x(t) ; : arrow dup .49 > swap .51 < and ; sec arrow min arrow hour arrow
Arrow Clock
DarkstarAG
'14 Jan 29
( Can you draw arrow lines ? ) : arrow ( angle - ) pi * 2 * sin 1 + 2 / x > ; t floor width mod 60 / arrow y .1 > * y .3 < * t 60 / floor 60 mod 60 / arrow y .4 > * y .6 < * t 3600 / floor 24 mod 24 / arrow y .7 > * y .9 < *
Line Clock
DarkstarAG
'14 Jan 29
( Pixel Draw 8 coor ) ( Note: shader text limits ) : width 60 ; : 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 ; : w ( c y - ) >r x width * floor r> ! ; : h ( c x - ) y wf ! ; : carpet 0 0 w 1 1 w 2 2 w 3 3 w 4 4 w 5 5 w 6 6 w 7 7 w 0 0 h 1 1 h 2 2 h 3 3 h 4 4 h 5 5 h 6 6 h 7 7 h x width * 10 < * y width * 10 < * ; : crane 1 3 8 ! 1 4 8 ! 1 5 8 ! 1 2 7 ! 1 6 7 ! 1 1 6 ! 1 7 6 ! 1 0 5 ! 1 8 5 ! 1 0 4 ! 1 8 4 ! 1 0 3 ! 1 8 3 ! 1 1 2 ! 1 7 2 ! 1 2 1 ! 1 6 1 ! 1 2 0 ! 1 3 0 ! 1 4 0 ! 1 5 0 ! 1 6 0 ! 6 2 5 ! 6 6 5 ! 1 4 4 ! 1 3 2 ! 1 5 2 ! 1 4 1 ! ; [ crane ( or: carpet ) 1 t floor width mod 20 ! 2 t 60 / floor 60 mod 21 ! 4 t 3600 / floor 24 mod 22 ! ]
Pixel Clock
DarkstarAG
'14 Jan 29
: o over ; : d dup ; : 1m swap ; : 2m >r 1m r> 1m ; : len d * 1m d * + sqrt ; : x' x 0.5 - y 0.5 - t sin * 1m t cos * + ; : y' x 0.5 - y 0.5 - t cos * 1m t sin * - ; : r1 12 / cos 2 / ; : r2 2 pi * + 12 / cos 2 / ; : r3 4 pi * + 12 / cos 2 / ; : colour 8 pi * / ; y' x' atan2 pi + d d d r3 1m r2 2m r1 x' y' len d d >r >r > 1m r> > 2m r> > + + 2 pi * * + colour x' y' len 1 1m - *
Spiral
PPA
'14 Jan 29
( because log fix ) : k t 5 * sin 2 + 4 * ; : mx y 1.9 * t sin / ; : my x 0.5 - k * ; mx mx * my abs log swap - 0.1 **
Dat boo ops!
DarkstarAG
'14 Jan 29
( because log fix ) : k t sin 1 + 2 * ; : mx y 3 * t sin / ; : my x 0.5 - k * ; mx mx * my abs log + 0.01 >
Dat some log shit 2 fix
DarkstarAG
'14 Jan 29
: a 1.1 x .5 - y .5 - atan2 t ; : b 2 ** + + - 10 ** ; : m swap .5 - * ; a 5 / + 9 * sin 50 / x .5 - 2 ** y .5 - b t cos 5 / + a 7 / - 8 * sin 50 / x 1.3 m 2 ** y 1.3 m b a 11 / - 7 * sin 40 / x 1.1 m 2 ** y 1.1 m b t 2.7 * cos 5 / +
TBL
Manwe
'14 Jan 29
: a x 8 * 4 - y 8 * 4 - atan2 t ; : b pi * / 67.23876 * 1 mod ; a 10 / - 2 b .4 < a 10 / + 3 b .4 < a 5 / - 4 b cos rot cos rot cos x .5 - 2 ** y .5 - 2 ** + 3 * .6 **
Pony Hole
Troll
'14 Jan 29
x random * 712.921 * y random * 812.721 * + 1 mod 37 ** dup dup
real Random
Manwe
'14 Jan 29
: f ( a b c d x - bsin[xd+c]+a ) * + sin * + ; : fourier 0 1 0 9 x x * 1 y y * - / t + f 0 1 4 8 x x * 1 y y * - / t + f 0 1 2 7 x x * 1 y y * - / t + f ; fourier + + fourier 3 / + 4 / + fourier 2 / + -3 / +
Fourier Rings
DarkstarAG
'14 Jan 29
: w t 16 + ; : d dup ; : f 1 mod ; : p w 2 * sin .3 * .5 + ; : c y * floor 3 mod swap / - d 0 > ; : r / f 0.5 - d 0 > 2 * 1 - * 2 * ; : by w 3.1 r ; x 16 * f .04 > y 32 * f .07 > * y .69 > * 5 16 c 6 32 c 8 8 c drop by d w .02 - 3.1 r - 0 < * w 1 by - 1.55 * - 7 r 16 * floor .52 + 16 / x - abs 0.03 < * y .72 < y .69 > * * 2 / x w 7 r - d * y by .64 * .038 + - d * + sqrt .015 < 2 * + y .028 < x w 7 r p over - by * + - abs .06 < * + d d >r >r + rot r> + rot r> + rot
Arkanoid
www.manwe.ru
'14 Jan 29
Next