Haiku Gallery
: theta x y atan2 ; theta cos y < dup dup
pizza
Ricky Lai
'24 Oct 21
x y t
Ricky's first Haiku
Ricky Lai
'24 Oct 21
x y t 4 * sin t 7 * cos z* 2dup > if x rot else y -rot then
Fan-cy
Anonymous
'24 Oct 21
: l * + sin ; : r t 1 y t + 4 l + 1.57 ; : x x 4 * 2 - t y 3 l + ; : v 2dup x >= swap x < * -rot swap - l ; : a r 4 l ; : b r 1 l ; : c r 2 l ; : d r 3 l ; 0 d a v a b v b c v c d v
shaded twister (smaller)
boomlinde
'24 Oct 21
: a t 2 * y t + 3 * sin + ; : x x 4 * 2 - t 4 * y 3 * + sin 2 / + ; : y y 4 * 2 - ; : x1 a sin ; : x2 a pi 2 / + sin ; : x3 a pi 2 / 2 * + sin ; : x4 a pi 2 / 3 * + sin ; : c1 dup 0.1 * swap 0.2 * ; : x' x x4 >= x x1 < * x x4 - x1 x4 - / * x x1 >= x x2 < * x x1 - x2 x1 - / * + x x2 >= x x3 < * x x2 - x3 x2 - / * + x x3 >= x x4 < * x x3 - x4 x3 - / * + ; : v * floor 3 mod 1 = ; : l dup dup x' v swap y t + v and swap 3 * ; 0.1 3 l l l drop + + 0.5 * dup 0.5 *
textured twister
boomlinde
'24 Oct 21
: a t 2 * y t + 3 * sin + ; : x x 4 * 2 - t 4 * y 3 * + sin 2 / + ; : y y 4 * 2 - ; : x1 a sin ; : x2 a pi 2 / + sin ; : x3 a pi 2 / 2 * + sin ; : x4 a pi 2 / 3 * + sin ; : c1 dup 0.1 * swap 0.2 * ; x x4 >= x x1 < * x1 x4 - * 2 / x x1 >= x x2 < * x2 x1 - * 2 / + x x2 >= x x3 < * x3 x2 - * 2 / + x x3 >= x x4 < * x4 x3 - * 2 / + 0.2 0.1
shaded twister
boomlinde
'24 Oct 21
: a t 2 * y t + 3 * sin + ; : x x 4 * 2 - t 4 * y 3 * + sin + ; : y y 4 * 2 - ; : x1 a sin ; : x2 a pi 2 / + sin ; : x3 a pi 2 / 2 * + sin ; : x4 a pi 2 / 3 * + sin ; : c1 dup 0.1 * swap 0.2 * ; 0.2 0.1 x x4 >= x x1 < * 0.8 * x x1 >= x x2 < * 0.2 * + x x2 >= x x3 < * 0.4 * + x x3 >= x x4 < * 0.6 * +
twister
boomlinde
'24 Oct 21
y 9 * .5 + .4 * .4 mod .2 - abs .3 + x < : rw >r rot r> over * swap 0 = + ; dup dup .41 rw .1 rw .25 rw
Flag of Qatar no if :-(
Anonymous
'24 Oct 21
y 9 * .5 + .4 * .4 mod .2 - abs .3 + x < if .41 .1 .25 else 1 1 1 then
Flag of Qatar
BradN
'24 Oct 21
x 10 * 2 mod 1 - abs y >
Triangle Wave
BradN
'24 Oct 21
: 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
'24 Oct 21
: 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
'24 Oct 21
1 y 0.33 < y 0.66 > or y 0.66 >
Flag of South Ossetia
Ting
'24 Oct 21
y 0.33 > y 0.33 > y 0.66 < and dup
Flag of Yemen
Ting
'24 Oct 21
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
'24 Oct 21
y 0.5 < y 0.5 < y 0.5 >
Flag of Ukraine
Ting
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
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
'24 Oct 21
: 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
'24 Oct 21
x 0.45 - dup * y 0.5 - dup * + sqrt 0.3 < dup not 0
Flag of Bangladesh
Ting
'24 Oct 21
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
'24 Oct 21
x 0.4 > dup not y 0.5 > or 0
Flag of Benin
Ting
'24 Oct 21
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
'24 Oct 21
x y 0.66 * > x 0.33 - y 0.66 * < 0
Flag of Congo
Ting
'24 Oct 21
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
'24 Oct 21
x 0.33 > x 0.66 < x 0.33 > and x 0.33 <
Flag of Chad
Ting
'24 Oct 21
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
'24 Oct 21
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 Oct 21
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or not dup 1
Flag of Finland
Anonymous
'24 Oct 21
1 x 0.45 < x 0.3 > and y 0.575 < y 0.425 > and or dup
Flag of Denmark
Anonymous
'24 Oct 21
x 0.5 < x 0.3 > and y 0.6 < y 0.4 > and or dup dup not
Flag of Sweden
Ting
'24 Oct 21
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 Oct 21
Next