Haiku Gallery
( 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
'25 Jul 13
: 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
'25 Jul 13
: 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
'25 Jul 13
: h ." hello world!" ;
Untitled
Anonymous
'25 Jul 13
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
'25 Jul 13
: f x 3 y t sin * * - + sin ; 1 f 0 f 5 f
Spectruium
Anonymous
'25 Jul 13
: 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
'25 Jul 13
: 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
'25 Jul 13
( 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
'25 Jul 13
( 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
'25 Jul 13
( 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
'25 Jul 13
: 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
'25 Jul 13
: 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
'25 Jul 13
: =? - 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
'25 Jul 13
: 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
'25 Jul 13
: =? - 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
'25 Jul 13
: 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
'25 Jul 13
( 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
'25 Jul 13
( 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
'25 Jul 13
: 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
'25 Jul 13
( 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
'25 Jul 13
( 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
'25 Jul 13
: 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
'25 Jul 13
: 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
'25 Jul 13
x random * 712.921 * y random * 812.721 * + 1 mod 37 ** dup dup
real Random
Manwe
'25 Jul 13
: 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
'25 Jul 13
: 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
'25 Jul 13
( fix: smooth moving ) : yy t 3 * pi 10 * mod x 5 * + sin 10 / y sin + 1.5 * .2 - ; yy .7 > yy .3 < + yy .7 > yy .3 >
RU wave! 2
DarkstarAG
'25 Jul 13
x 2 * sin y 3 * sin - t 5 * sin mod x 2 * cos y 3 * cos - t 5 * cos mod
Hydraulic Press
DarkstarAG
'25 Jul 13
: f x 3 * + sin ; 1 f 0 f 5 f
Spectrum Haiku 2 (30b)
DarkstarAG
'25 Jul 13
Денис Чернов : width 64 ; : tile 14 ; : =? width * floor tile mod = ; : >? width * floor tile mod <= ; : <? width * floor tile mod >= ; : !y x =? rot y <? rot y >? and and or ; : ! y =? swap x =? and or ; 0 0 5 ! 9 5 1 !y 2 9 ! 9 5 3 !y 9 5 5 !y 6 9 ! 6 5 ! 9 5 7 !y 9 8 9 !y 6 5 9 !y 10 7 ! 9 8 11 !y 6 5 11 !y dup t 100 * sin * dup t 100 * cos *
Untitled
Anonymous
'25 Jul 13
: a t 3 / sin ; : x' a sin x .5 - * a cos y .5 - * - .25 + 2 * ; : y' 0 cos x .5 - * 0 sin y .5 - * + .25 + 2 * ; : q dup * ; : r ( x y - r ) q swap q + sqrt ; : s ( r cx cy - f ) y' - swap x' - r > ; : o ( a:amp b:phase c:freq - a*sin[t*c+b]+.5 a*cos[t*c+b]+.5 ) rot 1 swap / -rot t * + 2dup sin * .5 + -rot cos * .5 + ; : c 1 swap / x' .5 - y' .5 - r - abs 0.001 - abs -250 * 1 + ; 0.030 .5 .5 s 0.010 3 1 1 o s 0.011 5 3 2 o s or 0.007 7 3 3 o s or 0.008 9 1 4 o s or 1 3 c 5 c * 7 c * 9 c * -
Jupiter System 3
DarkstarAG
'25 Jul 13
: q dup * ; : r ( x y - r ) q swap q + sqrt ; : s ( r cx cy - f ) y - swap x - r > ; : o ( a:amp b:phase c:freq - a*sin[t*c+b]+.5 a*cos[t*c+b]+.5 ) rot 1 swap / -rot t * + 2dup sin * .5 + -rot cos * .5 + ; : c 1 swap / x .5 - y .5 - r - abs 0.001 - abs -250 * 1 + ; 0.030 .5 .5 s 0.010 3 1 1 o s 0.011 5 3 2 o s or 0.007 7 3 3 o s or 0.008 9 1 4 o s or 1 3 c 5 c * 7 c * 9 c * -
Jupiter System 2
DarkstarAG
'25 Jul 13
x 3 * negate cos x 3 * 0 + sin x 3 * 5 + sin
Spectrum Haiku
DarkstarAG
'25 Jul 13
x 25 * cos y 25 * cos <
XCheckers (23b)
DarkstarAG
'25 Jul 13
: q dup * ; : r ( x y - r ) q swap q + sqrt ; : s ( r cx cy - f ) y - swap x - r > ; : o ( a:amp b:phase c:freq - a*sin[t*c+b]+.5 a*cos[t*c+b]+.5 ) rot 1 swap / -rot t * + 2dup sin * .5 + -rot cos * .5 + ; 0.030 .5 .5 s 0.010 3 1 1 o s 0.011 5 3 2 o s or 0.007 7 3 3 o s or 0.008 9 1 4 o s or
Jupiter System
DarkstarAG
'25 Jul 13
x 2.2*sin y 2.3*sin t 5*sin * *
Untitled
Anonymous
'25 Jul 13
x 2.2*30 y 2.3*30 t 5+23
Untitled
Anonymous
'25 Jul 13
x 9.4 * sin y 8.2 * cos t4 * sin
Untitled
Anonymous
'25 Jul 13
x 9.4 * sin y 8.2 * cos t4 * sin
Untitled
Anonymous
'25 Jul 13
Next