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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
: ' .5 - 2 ** ; 1.2 x ' y ' + sqrt 2 * 5 ** - .6 0
Full Sun
DarkstarAG
'24 Oct 27
: 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
'24 Oct 27
: #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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
( 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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
: 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
'24 Oct 27
: h ." hello world!" ;
Untitled
Anonymous
'24 Oct 27
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
'24 Oct 27
: f x 3 y t sin * * - + sin ; 1 f 0 f 5 f
Spectruium
Anonymous
'24 Oct 27
: 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
'24 Oct 27
: 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
'24 Oct 27
( 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
'24 Oct 27
( 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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
: 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
'24 Oct 27
: =? - 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
'24 Oct 27
: 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
'24 Oct 27
: =? - 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
'24 Oct 27
: 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
'24 Oct 27
( 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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
( 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
'24 Oct 27
( 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
'24 Oct 27
: 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
'24 Oct 27
: 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
'24 Oct 27
x random * 712.921 * y random * 812.721 * + 1 mod 37 ** dup dup
real Random
Manwe
'24 Oct 27
: 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
'24 Oct 27
: 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
'24 Oct 27
Next