Haiku Gallery
( 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 Jun 09
: 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 Jun 09
( 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 Jun 09
( 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 Jun 09
: 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 Jun 09
: 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 Jun 09
x random * 712.921 * y random * 812.721 * + 1 mod 37 ** dup dup
real Random
Manwe
'25 Jun 09
: 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 Jun 09
: 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 Jun 09
( 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 Jun 09
x 2 * sin y 3 * sin - t 5 * sin mod x 2 * cos y 3 * cos - t 5 * cos mod
Hydraulic Press
DarkstarAG
'25 Jun 09
: f x 3 * + sin ; 1 f 0 f 5 f
Spectrum Haiku 2 (30b)
DarkstarAG
'25 Jun 09
Денис Чернов : 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 Jun 09
: 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 Jun 09
: 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 Jun 09
x 3 * negate cos x 3 * 0 + sin x 3 * 5 + sin
Spectrum Haiku
DarkstarAG
'25 Jun 09
x 25 * cos y 25 * cos <
XCheckers (23b)
DarkstarAG
'25 Jun 09
: 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 Jun 09
x 2.2*sin y 2.3*sin t 5*sin * *
Untitled
Anonymous
'25 Jun 09
x 2.2*30 y 2.3*30 t 5+23
Untitled
Anonymous
'25 Jun 09
x 9.4 * sin y 8.2 * cos t4 * sin
Untitled
Anonymous
'25 Jun 09
x 9.4 * sin y 8.2 * cos t4 * sin
Untitled
Anonymous
'25 Jun 09
: k t sin 1 + 2 * ; : mx y 3 * t sin / ; : my x 0.5 - k * ; mx mx * my log + 0.01 >
Dat some log shit Redux
DarkstarAG
'25 Jun 09
: q dup * ; : r q swap q + sqrt ; : xt 13 * 3 + sin 1 + 2 / ; : yt 15 * 2 + sin 1 + 2 / ; : r@ pop dup push ; : z 60 / dup push t + 2 / push 1 r@ xt x - pop yt y - r pop sqrt / 10 * q q - max ; : flash 0 0 z 1 z 2 z 3 z 4 z 5 z 6 z 7 z 8 z 9 z 10 z 11 z 12 z ; 1 flash 0
Moving Flash
DarkstarAG
'25 Jun 09
: q dup * ; : r q swap q + sqrt ; : xt 2 * pi 2 / + sin 1 + 2 / ; : yt 2 * sin 1 + 2 / ; : arcsin 1 over dup * - sqrt atan2 ; : tt 2 * 1 - arcsin 2 / ; : =? - abs 0.03 <= ; x 16 * tan 10 / y 0.5 - =? y 16 * tan 10 / x 0.5 - =? y x atan2 1 + sin x y r t 1 mod + =?
Tangents
DarkstarAG
'25 Jun 09
: width 64 ; : tile 11 ; : =? width * floor tile mod = ; : x' t cos x .5 - * t sin y .5 - * - ; : y' t sin x .5 - * t cos y .5 - * + ; : ! y' =? swap x' =? and or ; : crane 0 3 8 ! 4 8 ! 5 8 ! 2 7 ! 6 7 ! 1 6 ! 7 6 ! 0 5 ! 8 5 ! 0 4 ! 8 4 ! 0 3 ! 8 3 ! 1 2 ! 7 2 ! 2 1 ! 6 1 ! 2 0 ! 3 0 ! 4 0 ! 5 0 ! 6 0 ! 2 5 ! 6 5 ! 4 4 ! 3 2 ! 5 2 ! 4 1 ! ; crane
Pixel Draw Redux
DarkstarAG
'25 Jun 09
: w t cos 500 * ; : =? w * floor 14 mod = ; : >? w * floor 14 mod <= ; : <? w * floor 14 mod >= ; : !x y =? rot x <? rot x >? and and or ; : ! y =? swap x =? and or ; 0 8 4 10 !x 9 6 9 !x 5 4 8 !x 10 7 8 !x 10 4 7 !x 4 3 6 !x 8 7 6 !x 6 3 5 !x 10 5 ! 10 4 4 !x 2 1 3 !x 12 8 3 !x 12 2 2 !x 0.2 * 0 0 14 0 14 !x 14 0 13 !x 14 0 12 !x 2 0 11 !x 14 10 11 !x 2 0 10 !x 14 11 10 !x 2 0 9 !x 14 12 9 !x 2 0 8 !x 14 12 8 !x 1 0 7 !x 14 12 7 !x 1 0 6 !x 14 12 6 !x 0 5 ! 14 12 5 !x 14 4 ! 14 3 ! 14 2 ! 0 1 ! 14 1 ! 14 0 0 !x
Untitled
Anonymous
'25 Jun 09
x 2 *
Untitled
Anonymous
'25 Jun 09
x t + 4 * sin 30 / y + .5 < dup dup 0 = 1
Ukraine haiku
Troll
'25 Jun 09
( based on Sinus ) 2 pi 2 * dup t swap / dup floor - * * x 4031 t 40 mod 3 * + * + sin 2 / 0.5 + y - abs 0.4 <= 0 swap 0
Oscill Redux
Anonymous
'25 Jun 09
x t 1 mod 1000 / + 1000 * y 20 * mod pi * 2 * sin dup z^2 *
Vortexes
DarkstarAG
'25 Jun 09
: f 4 * 1 mod .5 < ; x f y f <>
Checkers 31 bytes
DarkstarAG
'25 Jun 09
( based on Sinus ) 2 pi 2 * dup t swap / dup floor - * * x 4031 t 40 mod 3 * + * + sin 2 / 0.5 + y - abs 0.007 <= 0 swap 0
Oscill
DarkstarAG
'25 Jun 09
: q dup * ; : r rot - q -rot - q + sqrt ; : n .5 - 5 * ; 1 x n y n t 7 * sin t 11 * cos r q q q - dup 0
шаровая молния
DarkstarAG
'25 Jun 09
: f 4 / x >= ; 3 f 1 f > 2 f 0 = 2 f 1 f *
TV test
DarkstarAG
'25 Jun 09
: yy t 3 * 30 mod x 5 * + sin 10 / y sin + 1.5 * .2 - ; yy .7 > yy .3 < + yy .7 > yy .3 >
RU wave! Redux
DarkstarAG
'25 Jun 09
: f 3 / y > ; 2 f 1 f 1 f
Flag of Horní Počernice 25bytes
DarkstarAG
'25 Jun 09
: ' 8 * 4 - ; 0 x ' abs y ' abs + dup >r 1 mod .5 - abs .07 < dup t 1 + r> ceil dup 2 mod 2 * 1 - * / 1 mod pi * 2 * x ' y ' atan2 - sin .7 > * + 2 / 1.3 ** dup .2 ** .2 +
Electro Snakes short
Manwe
'25 Jun 09
t 5 / sin x * 9 * sin t 7 / cos y * 11 * atan2 : t t .2 + ; : x y x * ; t 5 / sin x * 9 * sin t 7 / cos y * 11 * atan2 : y t sin y + ; t 5 / sin x * 9 * sin t 7 / cos y * 11 * atan2
Torches
BradN
'25 Jun 09
ываыв джэ
Untitled
Anonymous
'25 Jun 09
Next