Haiku Gallery
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.05 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > * + + d d x .5 > if drop x y * else drop y rot then
PONG if?
BradN
'25 May 25
x 0.45 - dup * y 0.5 - dup * + sqrt 0.3 < dup not 0
Flag of Bangladesh
Ting
'25 May 25
y 0.40 < y 0.37 > and y 0.60 > y 0.63 < and or dup y 0.40 < y 0.60 > or
Flag of Botswana
Ting
'25 May 25
x 0.4 > dup not y 0.5 > or 0
Flag of Benin
Ting
'25 May 25
x y < x 1 y - < and dup not swap y 0.5 > over not and swap y 0.5 > or
Flag of Czech Republic
Ting
'25 May 25
x y 0.66 * > x 0.33 - y 0.66 * < 0
Flag of Congo
Ting
'25 May 25
y 0.175 > y 0.825 < and y 0.65 > y 0.825 < and y 0.175 > y 0.35 < and or y 0.35 < y 0.65 > or
Flag of Costa Rica
Ting
'25 May 25
x 0.33 > x 0.66 < x 0.33 > and x 0.33 <
Flag of Chad
Ting
'25 May 25
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 rot
Flag of Norway
Ting
'25 May 25
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
'25 May 25
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or not dup 1
Flag of Finland
Anonymous
'25 May 25
1 x 0.45 < x 0.3 > and y 0.575 < y 0.425 > and or dup
Flag of Denmark
Anonymous
'25 May 25
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or dup dup not
Flag of Sweden
Ting
'25 May 25
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
'25 May 25
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
'25 May 25
y 0.66 < y 0.33 > and y 0.33 > y 0.66 <
Flag of Sierra Leone
Ting
'25 May 25
1 y 0.5 > y 0.5 >
Flag of Poland
Ting
'25 May 25
1 x 0.5 - dup * y 0.5 - dup * + sqrt 0.25 > dup
Flag of Japan
Ting
'25 May 25
x 0.4 - dup * y 0.5 - dup * + sqrt 0.25 < dup dup not
Flag of Palau
Ting
'25 May 25
x 0.4 > x 0.7 < and 1 over
Flag of Nigeria
Ting
'25 May 25
1 y 0.5 < y 0.5 <
Flag of Mnaco
Ting
'25 May 25
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
'25 May 25
y 0.33 < y 0.66 > or 0.8 * y 0.33 > 0.8 * 0
Flag of Lithuania
Ting
'25 May 25
y 0.33 > y 0.66 < y 0.33 > and y 0.66 <
Flag of Luxemburg
Ting
'25 May 25
y 0.6 > y 0.4 < or 2 / y 0.6 < y 0.4 > and dup
Flag of Latvia Corrected
Ting
'25 May 25
y 0.6 > y 0.3 < or 2 / y 0.6 < y 0.3 > and dup
Flag of Latvia
Ting
'25 May 25
: size 8 ; : odd 2 mod ; : tile size * floor odd ; x tile y tile + odd dup dup
Chessboard Redux (fixed)
DarkstarAG
'25 May 25
: 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 May 25
( 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 May 25
y 0.66 > y 0.33 < + y 0.66 > y 0.33 >
Russian Flag
DarkstarAG
'25 May 25
: 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 May 25
: 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 May 25
y 0.33 > y 0.66 < y 0.66 < y 0.33 > and
Flag of Hungary
Ting
'25 May 25
y 0.33 < dup y 0.66 > y 0.33 < or
Flag of Estonia
Ting
'25 May 25
y 0.5 > y 0.25 < or y 0.5 > y 0.25 > y 0.5 < and
Flag of Colombia
Ting
'25 May 25
y 0.66 > y 0.33 < or y 0.33 > y 0.66 >
Flag of Bulgaria
Ting
'25 May 25
1 y 0.66 < y 0.33 > and dup
Flag of Austria
Ting
'25 May 25
x 0.33 > x 0.66 < x 0.33 > and x 0.66 <
Flag of France
Anonymous
'25 May 25
x 0.33 > x 0.66 < x 0.33 > and x 0.33 <
Flag of Romania
Ting
'25 May 25
1 x 0.66 < x 0.33 > and dup
Flag of Peru
Ting
'25 May 25
Next