Haiku Gallery
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or x 0.45 > x 0.35 < or y 0.55 > y 0.45 < or and over over and swap
Flag of Iceland
Ting
'24 Nov 26
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or not dup 1
Flag of Finland
Anonymous
'24 Nov 26
1 x 0.45 < x 0.3 > and y 0.575 < y 0.425 > and or dup
Flag of Denmark
Anonymous
'24 Nov 26
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or dup dup not
Flag of Sweden
Ting
'24 Nov 26
1 x 0.6 < x 0.4 > and y 0.6 < y 0.4 > and or x 0.8 < and y 0.8 < and x 0.2 > and y 0.2 > and dup
Flag of Switzerland
Ting
'24 Nov 26
x y atan2 dup pi 0.1 * > over pi 0.4 * < and swap dup pi 0.3 * > over dup pi 0.2 * < swap pi 0.1 * > and or swap dup pi 0.1 * < swap dup pi 0.3 * > swap pi 0.4 * < and or
Flag of Seychelles
Ting
'24 Nov 26
y 0.66 < y 0.33 > and y 0.33 > y 0.66 <
Flag of Sierra Leone
Ting
'24 Nov 26
1 y 0.5 > y 0.5 >
Flag of Poland
Ting
'24 Nov 26
1 x 0.5 - dup * y 0.5 - dup * + sqrt 0.25 > dup
Flag of Japan
Ting
'24 Nov 26
x 0.4 - dup * y 0.5 - dup * + sqrt 0.25 < dup dup not
Flag of Palau
Ting
'24 Nov 26
x 0.4 > x 0.7 < and 1 over
Flag of Nigeria
Ting
'24 Nov 26
1 y 0.5 < y 0.5 <
Flag of Mnaco
Ting
'24 Nov 26
y 0.75 > y 0.5 < y 0.25 > and or y 0.5 < y 0.75 < y 0.5 > and
Flag of Mauritius
Ting
'24 Nov 26
y 0.33 < y 0.66 > or 0.8 * y 0.33 > 0.8 * 0
Flag of Lithuania
Ting
'24 Nov 26
y 0.33 > y 0.66 < y 0.33 > and y 0.66 <
Flag of Luxemburg
Ting
'24 Nov 26
y 0.6 > y 0.4 < or 2 / y 0.6 < y 0.4 > and dup
Flag of Latvia Corrected
Ting
'24 Nov 26
y 0.6 > y 0.3 < or 2 / y 0.6 < y 0.3 > and dup
Flag of Latvia
Ting
'24 Nov 26
: size 8 ; : odd 2 mod ; : tile size * floor odd ; x tile y tile + odd dup dup
Chessboard Redux (fixed)
DarkstarAG
'24 Nov 26
: 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
'24 Nov 26
( 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
'24 Nov 26
y 0.66 > y 0.33 < + y 0.66 > y 0.33 >
Russian Flag
DarkstarAG
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳昕楷
'24 Nov 26
y 0.33 > y 0.66 < y 0.66 < y 0.33 > and
Flag of Hungary
Ting
'24 Nov 26
y 0.33 < dup y 0.66 > y 0.33 < or
Flag of Estonia
Ting
'24 Nov 26
y 0.5 > y 0.25 < or y 0.5 > y 0.25 > y 0.5 < and
Flag of Colombia
Ting
'24 Nov 26
y 0.66 > y 0.33 < or y 0.33 > y 0.66 >
Flag of Bulgaria
Ting
'24 Nov 26
1 y 0.66 < y 0.33 > and dup
Flag of Austria
Ting
'24 Nov 26
x 0.33 > x 0.66 < x 0.33 > and x 0.66 <
Flag of France
Anonymous
'24 Nov 26
x 0.33 > x 0.66 < x 0.33 > and x 0.33 <
Flag of Romania
Ting
'24 Nov 26
1 x 0.66 < x 0.33 > and dup
Flag of Peru
Ting
'24 Nov 26
x 0.66 < x 0.33 > and 1 over
Flag of Nigeria
Ting
'24 Nov 26
x 0.33 > x 0.66 < 0
Flag of Mali
Ting
'24 Nov 26
x 0.33 > x 0.66 < x 0.66 < x 0.33 > and
Flag of Italy
Ting
'24 Nov 26
x 0.33 > 1 x 0.66 < x 0.33 > and
Flag of Ireland
Ting
'24 Nov 26
x 0.66 < 1 x 0.66 < x 0.33 > and
Flag of Ivory Coast
Ting
'24 Nov 26
x 0.66 < x 0.33 > 0
Flag of Guinea
Ting
'24 Nov 26
x 0.33 > x 0.33 > x 0.66 < and x 0.66 < 2 /
Flag of Chad
Ting
'24 Nov 26
x 0.33 > x 0.33 > x 0.66 < and 0
Flag of Belgium
Ting
'24 Nov 26
x 0.33 > x 0.33 > x 0.66 < and x 0.66 <
Flag of France
Ting
'24 Nov 26
Next