Haiku Gallery
y 9 * .5 + .4 * .4 mod .2 - abs .3 + x < if .41 .1 .25 else 1 1 1 then
Flag of Qatar
BradN
'25 Feb 10
x 10 * 2 mod 1 - abs y >
Triangle Wave
BradN
'25 Feb 10
: stripes y 9 * 2 mod 1 > x 0.333 > y 0.444 < or and ; : cross y 0.777 < y 0.666 > and x 0.111 > x 0.222 < and or x 0.333 < y 0.444 > and and ; stripes cross or dup 1
Flag of Greece
Ting
'25 Feb 10
: red x 0.1 + y < x 0.1 - y > or not x 0.1 + 1 y - < x 0.1 - 1 y - > or not or x 0.4 > x 0.6 < and or y 0.4 > y 0.6 < and or ; : blue y 0.55 < y 0.45 > and x 0.55 < x 0.45 > and or x y < x 0.04 + y > and y 0.6 > and or x y > x 0.04 - y < and y 0.4 < and or x 1 y - < x 0.04 + 1 y - > and y 0.6 > and or x 1 y - > x 0.04 - 1 y - < and y 0.4 < and or not ; red dup blue and blue
Flag of United Kingdom
Ting
'25 Feb 10
1 y 0.33 < y 0.66 > or y 0.66 >
Flag of South Ossetia
Ting
'25 Feb 10
y 0.33 > y 0.33 > y 0.66 < and dup
Flag of Yemen
Ting
'25 Feb 10
y 0.33 > y 0.66 < and x 0.3 < or y 0.33 > x 0.3 > and y 0.66 < y 0.33 > and x 0.3 > and
Flag of United Arab Emirates
Ting
'25 Feb 10
y 0.5 < y 0.5 < y 0.5 >
Flag of Ukraine
Ting
'25 Feb 10
1 x 0.3 < x 0.2 > and y 0.8 < y 0.7 > and or not y 0.9 > or x 0.1 < or y 0.6 < or x 0.4 > or y 0.5 > and x 0.5 < and dup
Flag of Tonga
Ting
'25 Feb 10
x 0.165 + y > x 0.100 + y < and x 0.165 - y < x 0.100 - y > and or dup x 0.165 + y < or x 0.165 - y >
Flag of Tanzania
Ting
'25 Feb 10
x 0.05 - 1 y - 0.7 * < x 0.25 - 1 y - 0.7 * > or x 0.05 - 1 y - 0.7 * < x 1 y - 0.7 * > and x 0.25 - 1 y - 0.7 * > x 0.3 - 1 y - 0.7 * < and or dup
Flag of Trinidad and Tobago
Ting
'25 Feb 10
y 0.66 > y 0.33 < or y 0.66 > y 0.825 < and y 0.165 > y 0.33 < and or y 0.825 < y 0.165 > and
Flag of Thailand
Ting
'25 Feb 10
x y < x 1 y - < and not y 0.33 > over and swap y 0.33 > y 0.66 < and over not or swap y 0.66 < y 0.33 > and and
Flag of Sudan
Ting
'25 Feb 10
0.8 y pi * 18 * pi 2 / - dup sin swap dup 3 * sin 9 / negate swap 5 * sin 25 / + + 15 / 0.3 + x > 0.8 * dup
Flag of Qatar
Ting
'25 Feb 10
0.8 y pi * 18 * pi 2 / - dup sin swap dup 3 * sin 9 / negate swap 5 * sin 25 / + + 15 / 0.3 + x > 0.8 * dup
Flag of Bahrain
Ting
'25 Feb 10
0.8 y pi * 18 * pi 2 / - dup sin swap dup 3 * sin 9 / negate swap 5 * sin 25 / + + 15 / 0.3 + x > 0.8 * dup
Flag of Bahrain Redux
Anonymous
'25 Feb 10
1 y pi * 10 * pi 2 / - dup sin swap dup 3 * sin 9 / negate swap 5 * sin 25 / + + 15 / 0.3 + x > dup
Flag of Bahrain
Ting
'25 Feb 10
x y < x 1 y - < and not y 0.66 < y 0.33 > and over and swap 1 over and swap y 0.66 > y 0.33 < or and
Flag of Bahamas
Ting
'25 Feb 10
: 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 Feb 10
x 0.45 - dup * y 0.5 - dup * + sqrt 0.3 < dup not 0
Flag of Bangladesh
Ting
'25 Feb 10
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 Feb 10
x 0.4 > dup not y 0.5 > or 0
Flag of Benin
Ting
'25 Feb 10
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 Feb 10
x y 0.66 * > x 0.33 - y 0.66 * < 0
Flag of Congo
Ting
'25 Feb 10
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 Feb 10
x 0.33 > x 0.66 < x 0.33 > and x 0.33 <
Flag of Chad
Ting
'25 Feb 10
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 Feb 10
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 Feb 10
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or not dup 1
Flag of Finland
Anonymous
'25 Feb 10
1 x 0.45 < x 0.3 > and y 0.575 < y 0.425 > and or dup
Flag of Denmark
Anonymous
'25 Feb 10
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or dup dup not
Flag of Sweden
Ting
'25 Feb 10
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 Feb 10
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 Feb 10
y 0.66 < y 0.33 > and y 0.33 > y 0.66 <
Flag of Sierra Leone
Ting
'25 Feb 10
1 y 0.5 > y 0.5 >
Flag of Poland
Ting
'25 Feb 10
1 x 0.5 - dup * y 0.5 - dup * + sqrt 0.25 > dup
Flag of Japan
Ting
'25 Feb 10
x 0.4 - dup * y 0.5 - dup * + sqrt 0.25 < dup dup not
Flag of Palau
Ting
'25 Feb 10
x 0.4 > x 0.7 < and 1 over
Flag of Nigeria
Ting
'25 Feb 10
1 y 0.5 < y 0.5 <
Flag of Mnaco
Ting
'25 Feb 10
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 Feb 10
Next