Haiku Gallery
( 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 08
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 08
: f x 3 * + sin ; 1 f 0 f 5 f
Spectrum Haiku 2 (30b)
DarkstarAG
'25 Jul 08
Денис Чернов : 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 08
: 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 08
: 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 08
x 3 * negate cos x 3 * 0 + sin x 3 * 5 + sin
Spectrum Haiku
DarkstarAG
'25 Jul 08
x 25 * cos y 25 * cos <
XCheckers (23b)
DarkstarAG
'25 Jul 08
: 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 08
x 2.2*sin y 2.3*sin t 5*sin * *
Untitled
Anonymous
'25 Jul 08
x 2.2*30 y 2.3*30 t 5+23
Untitled
Anonymous
'25 Jul 08
x 9.4 * sin y 8.2 * cos t4 * sin
Untitled
Anonymous
'25 Jul 08
x 9.4 * sin y 8.2 * cos t4 * sin
Untitled
Anonymous
'25 Jul 08
: 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 Jul 08
: 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 Jul 08
: 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 Jul 08
: 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 Jul 08
: 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 Jul 08
x 2 *
Untitled
Anonymous
'25 Jul 08
x t + 4 * sin 30 / y + .5 < dup dup 0 = 1
Ukraine haiku
Troll
'25 Jul 08
( 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 Jul 08
x t 1 mod 1000 / + 1000 * y 20 * mod pi * 2 * sin dup z^2 *
Vortexes
DarkstarAG
'25 Jul 08
: f 4 * 1 mod .5 < ; x f y f <>
Checkers 31 bytes
DarkstarAG
'25 Jul 08
( 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 Jul 08
: 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 Jul 08
: f 4 / x >= ; 3 f 1 f > 2 f 0 = 2 f 1 f *
TV test
DarkstarAG
'25 Jul 08
: 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 Jul 08
: f 3 / y > ; 2 f 1 f 1 f
Flag of Horní Počernice 25bytes
DarkstarAG
'25 Jul 08
: ' 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 Jul 08
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 Jul 08
ываыв джэ
Untitled
Anonymous
'25 Jul 08
y .66 > y .33 < + y .66 > y .33 >
Flag of Russia 33bytes
Vort
'25 Jul 08
x 0.5 - y 0.5 - 2dup negate z* drop sqrt pi * cos dup dup 1
volumed sphere II
Anonymous
'25 Jul 08
x 0.5 - y 0.5 - 2dup negate z* drop 6.283185307179586 * cos 0 max dup dup
volumed sphere
Anonymous
'25 Jul 08
: mx x 0.7 - 3 * ; : my y 0.5 - 3 * ; : sq dup * ; : c sq swap sq + 4 > ; 0 mx my : it 2dup push push c + pop pop 2dup z* mx my z+ ; it it it it it it it it it it it it it it it it it it it it drop drop 0.8 swap dup 20 / swap 20 / 1.2 * 1 min
mandelbroat colored
visualpaul
'25 Jul 08
: x x t sin y + * ; : r? ( a b x - f ) rot over < -rot > and ; : ? push 0.1 -0.1 z+ pop 4 * r? ; : r x 6 * 6 + sin ; : g x 6 * 5 + sin ; : b x 6 * 4 + sin ; r 0 1 y ? 3 4 y ? or * g 1 2 y ? 3 4 y ? or * b 2 3 y ? 3 4 y ? or *
Spectrum Redux
Anonymous
'25 Jul 08
: r? ( a b x - f ) rot over < -rot > and ; : ? push 0.1 -0.1 z+ pop 4 * r? ; : r x 6 * 6 + sin ; : g x 6 * 5 + sin ; : b x 6 * 4 + sin ; r 0 1 y ? 3 4 y ? or * g 1 2 y ? 3 4 y ? or * b 2 3 y ? 3 4 y ? or *
Spectrum
DarkstarAG
'25 Jul 08
: x1 t cos x .5 - * t sin y .5 - * - .5 + ; : y1 t sin x .5 - * t cos y .5 - * + .5 + ; : xc x1 .5 - ; : yc y1 .5 - ; : yt y1 .7 - ; : yb y1 .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 < ; : c2 xc yc len r1 - dup .009 > swap .015 < and ; : lr x1 .5 < ; : wb xc yt len r2 < ; : bb xc yb len r2 > ; : ws xc yb len r3 < ; : bs xc yt len r3 > ; c1 lr min bb min wb max bs min ws max c2 max dup dup
Duality Rotation
DarkstarAG
'25 Jul 08
: width 64 ; : tile 11 ; : =? width * floor tile mod = ; : ! 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
DarkstarAG
'25 Jul 08
: c 4 * 1 mod .5 > ; x c y c <>
Checkers (31b)
DarkstarAG
'25 Jul 08
Next