Haiku Gallery
y 0.33 < y 0.66 > or 0.8 * y 0.33 > 0.8 * 0
Flag of Lithuania
Ting
'25 Feb 10
y 0.33 > y 0.66 < y 0.33 > and y 0.66 <
Flag of Luxemburg
Ting
'25 Feb 10
y 0.6 > y 0.4 < or 2 / y 0.6 < y 0.4 > and dup
Flag of Latvia Corrected
Ting
'25 Feb 10
y 0.6 > y 0.3 < or 2 / y 0.6 < y 0.3 > and dup
Flag of Latvia
Ting
'25 Feb 10
: size 8 ; : odd 2 mod ; : tile size * floor odd ; x tile y tile + odd dup dup
Chessboard Redux (fixed)
DarkstarAG
'25 Feb 10
: fract dup floor - ; x 1 + 55 * floor y 4 - 55 * floor 199.8347 / ** t 100 * 89485 + 4107.731 / * sin 237.371 * dup floor - 2 ** x 55 * pi * sin abs y 55 * pi * sin abs * * dup 2 ** swap
Virus Colony (speed 100x)
DarkstarAG
'25 Feb 10
( Geometry ) : ^2 dup * ; : n 1 + 2 / ; ( make space x y in [-1,+1] ) : x x .5 - 2 * ; : y y .5 - 2 * ; ( radius ) : r ( x y - r ) ^2 swap ^2 + sqrt ; ( circle ) : c ( x y r - k ) >r x y z+ r r> < ; ( ellipse ) : e ( x y xr yr - k ) swap >r >r x y z+ r> / r> swap >r / r> r 1 < ; t 2 * sin t 3 * cos t 0.3 mod c t sin t cos t 0.3 + sin n t 0.5 + cos n e
Geometry 1 (circle ellipse)
DarkstarAG
'25 Feb 10
y 0.66 > y 0.33 < + y 0.66 > y 0.33 >
Russian Flag
DarkstarAG
'25 Feb 10
: p x 10 * dup floor - ; : q y 10 * dup floor - ; 1 0 0 ( red ) p q + .5 - .5 < p 1 q - + .5 - .5 < or x .9 < or ( cut )
flag
陳爽
'25 Feb 10
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; : 身體 .51 .7 -1.55 .28 l ; 身體 : 左大腿 .49 .42 -1.57 a + .1495 ; 左大腿 l + : 左小腿 左大腿 p -2 b + .2 ; 左小腿 l + : 左腳 左小腿 p -.5 a + .075 ; 左腳 l + : 右大腿 .5 .4 -1.6 a - .15 ; 右大腿 l + \ 右大腿 : 右小腿 右大腿 p -2 b - .2 ; 右小腿 l + \ 右小腿 : 右腳 右小腿 p -.5 a - .078 ; 右腳 l + \ 右腳 : 左臂 .5 .6 -1.57 a + .12 ; 左臂 l + : 左肘 左臂 p -0.5 b + .12 ; 左肘 l + : 右臂 .5 .6 -1.57 a - .12 ; 右臂 l + : 右肘 右臂 p -0.5 b - .12 ; 右肘 l + : 頭 .5 .7 .05 ; 頭 c + 15 1 t 99 / m 20 3 t m + 25 0 t 99 / m 35 4 t 99 / m + + y .54 > * .1 * \ + 1 y - 8 ** + y pi 2 * * sin .5 * y 2 ** + : x x .5 - ; : y y .5 - ; 1 x x * y y * + sqrt .5 - - 299 **
Man running Redux
陳昕楷
'25 Feb 10
y 0.33 > y 0.66 < y 0.66 < y 0.33 > and
Flag of Hungary
Ting
'25 Feb 10
y 0.33 < dup y 0.66 > y 0.33 < or
Flag of Estonia
Ting
'25 Feb 10
y 0.5 > y 0.25 < or y 0.5 > y 0.25 > y 0.5 < and
Flag of Colombia
Ting
'25 Feb 10
y 0.66 > y 0.33 < or y 0.33 > y 0.66 >
Flag of Bulgaria
Ting
'25 Feb 10
1 y 0.66 < y 0.33 > and dup
Flag of Austria
Ting
'25 Feb 10
x 0.33 > x 0.66 < x 0.33 > and x 0.66 <
Flag of France
Anonymous
'25 Feb 10
x 0.33 > x 0.66 < x 0.33 > and x 0.33 <
Flag of Romania
Ting
'25 Feb 10
1 x 0.66 < x 0.33 > and dup
Flag of Peru
Ting
'25 Feb 10
x 0.66 < x 0.33 > and 1 over
Flag of Nigeria
Ting
'25 Feb 10
x 0.33 > x 0.66 < 0
Flag of Mali
Ting
'25 Feb 10
x 0.33 > x 0.66 < x 0.66 < x 0.33 > and
Flag of Italy
Ting
'25 Feb 10
x 0.33 > 1 x 0.66 < x 0.33 > and
Flag of Ireland
Ting
'25 Feb 10
x 0.66 < 1 x 0.66 < x 0.33 > and
Flag of Ivory Coast
Ting
'25 Feb 10
x 0.66 < x 0.33 > 0
Flag of Guinea
Ting
'25 Feb 10
x 0.33 > x 0.33 > x 0.66 < and x 0.66 < 2 /
Flag of Chad
Ting
'25 Feb 10
x 0.33 > x 0.33 > x 0.66 < and 0
Flag of Belgium
Ting
'25 Feb 10
x 0.33 > x 0.33 > x 0.66 < and x 0.66 <
Flag of France
Ting
'25 Feb 10
y 0.66 > y 0.33 < or y 0.33 < y 0.66 < y 0.33 > and
Flag of Armenia
Miles
'25 Feb 10
y 0.66 > y 0.33 < or y 0.33 < y 0.33 > y 0.66 < and
Flag of Armenia
Miles
'25 Feb 10
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; .51 .7 -1.57 .3 l .49 .42 -1.57 a + 0.15 l + \ 大腿 .49 .42 -1.57 a + .15 p -2 b + .2 l + .5 .4 -1.6 a - .15 l + \ 大腿 .5 .4 -1.6 a - .15 p -2 b - .2 l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + 15 1 t 99 / m 20 3 t m + 25 0 t 99 / m 35 4 t 99 / m + + y .54 > * .1 * \ + 1 y - 8 ** + y pi 2 * * sin .5 * y 2 ** + : x x .5 - ; : y y .5 - ; 1 x x * y y * + sqrt .5 - - 299 **
Man running
陳昕楷
'25 Feb 10
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + \ 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y .55 > * \ + 1 y - 8 ** + y pi 2 * * sin .5 * y 2 **
Man running
陳昕亞
'25 Feb 10
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + \ 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y .55 > * \ +
Man running
陳昕楷
'25 Feb 10
( Simple transformations ) : rotate ( x y angle - x' y' ) dup push sin pop cos negate z* ; : tran ( x y dx dy - x' y' ) z+ ; : scale ( x y k - x' y' ) dup negate z* ; y x atan2 x dup * -.7 -.7 tran 5 scale t x + y + rotate : t t 3 * ; : x x .5 - .1 t cos * - ; : y y .5 - .1 t sin * - ; 1 x x - y y * + .3 ** -
X Redux
Shin En
'25 Feb 10
\ pacman eating beans : y y .2 + ; : n 5 ; : d dup ; : m 1.03 min ; : f d floor - ; : c cos abs ; : jump ( y -- y' ) t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : flip ( x -- x' ) 1 swap - ; : nth ( v -- v' ) pi n * * c ; : n-fold ( x -- x' ) d n * floor .5 + n / - ; : a ( -- x' y ) x n-fold d * y ; : b ( x' y h -- r' ) - d * + sqrt 25 * 9 ** ; : p ( -- x' ) x t 4 + pi / f 1.6 * - 0.2 + ; : v ( -- t' ) t 4 + pi 2 * / f ; p d * y .5 - d * + 36 * 20 ** m flip y .5 - p atan2 abs t 10 * c .8 * - 16 * m * 0 max \ pacman eating -- color R a .5 b flip 0 max d p 16 * < * p y .5 b m * v .5 >= * \ beans taken & eaten -- color G a jump .7 b flip v v .5 < * 3 * m * \ beans prepared -- color B dup rot + swap \ color B adjusted p d * y .6 - d * + 999 * 20 ** x nth + \ eye blinking
PACMAN eat beans
陳爽
'25 Feb 10
\ pacman eating beans : n 5 ; : d dup ; : m 1.02 min ; : f d floor - ; : c cos abs ; : jump ( y -- y' ) t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : flip ( x -- x' ) 1 swap - ; : n-fold ( x -- x' ) d n * floor .5 + n / - ; : a ( -- x' y ) x n-fold d * y ; : b ( x' y h -- r' ) - d * + sqrt 25 * 9 ** ; : p ( -- x' ) x t 4 + pi / f 1.6 * - 0.2 + ; : v ( -- t' ) t 4 + pi 2 * / f ; p d * y .5 - d * + 36 * 20 ** m flip y .5 - p atan2 abs t 10 * c .8 * - 16 * m * 0 max \ pacman eating -- R a .5 b flip 0 max d p 16 * < * p y .5 b m * v .5 >= * \ beans taken and eaten -- G a jump .7 b flip v d .5 < * 3 * m * \ beans prepared -- B dup rot + swap \ color B adjusted
PACMAN eat beans Redux
陳爽
'25 Feb 10
: n 5 ; : d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x n * floor 0.5 + n / - d * y ; : b - d * + sqrt 50 * 20 pow ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; .98 p d * y 0.5 - d * + 36 * 20 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * p y 0.58 b m * v 0.5 >= * \ pacman eating a j .68 b - v d .4 < * m * + \ beans prepared
Fish
Anonymous
'25 Feb 10
: n 5 ; : d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x n * floor 0.5 + n / - d * y ; : b - d * + sqrt 50 * 20 pow ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; .98 p d * y 0.5 - d * + 36 * 20 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * p y 0.58 b m * v 0.4 >= * \ pacman eating a j .68 b - v d .4 < * m * + \ beans prepared
PACMAN eat beans
Shin En
'25 Feb 10
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 20 * floor 20 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 20 * floor 0.5 + 20 / - d * y ; : b - d * + sqrt 50 * 20 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * 2 / \ + d 0.2
PACMAN Redux Redux
陳昕楷
'25 Feb 10
: e .7 ; : x x .7 - ; : y y .7 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .7 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ lines or x y + r@ lines x y - r> lines or ; t sin 3 * 4 + net
net Redux Redux
Shin En
'25 Feb 10
: x x .5 - 6 * t .9 * sin + ; : y y .5 - 6 * t .2 * sin + ; : r x x * y y * + sqrt ; : a y x atan2 pi 8 / t sin * + ; : x a cos r * ; : y a sin r * ; x y ( R G ) : i 2dup z* ; i i i log ( R G ) .8 t 5 * sin .5 * + r - ( R G B ) 1.7 r - ( R G B T )
alive Z virus
陳爽
'25 Feb 10
Next