Haiku Gallery
: x' x 3 * 2.15 - ; : y' y 3 * 1.5 - ; : mandelbrot 2dup z* x' y' z+ ; : len dup * swap dup * + sqrt ; 0 0 mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot
Mandelbrot
kaoD
'25 Sep 15
: foo pi swap x y + 1 - * 3 * pow t 0.2 * + 5 mod 0.2 * ; : glass push push push x pop * sin foo y pop * sin foo * x y * pop * sin foo * ; 7 33 19 glass dup 17 33 7 glass + dup 33 7 21 glass + swap
jello glass Redux
Anonymous
'25 Sep 15
\ white(x) : white dup dup ; \ square(x) : square dup * ; \ len(x, y) : len square swap square + sqrt ; \ dist(x0, y0, x1, y1) : dist rot - -rot swap - len ; \ ball(x, y) : ball x y dist dup * 1 - negate ; \ cw(cx, sx, tx, cy, sy, ty) : cw t * cos * + push t * sin * + pop ; \ ccw(cx, sx, tx, cy, sy, ty) : ccw t * sin * + push t * cos * + pop ; 0.2 0.2 1.4 0.4 0.2 1.7 cw ball 0.5 0.5 0.8 0.5 0.5 1.2 ccw ball 0.7 0.3 1.1 0.4 0.4 0.3 ccw ball
Colorballs
kaoD
'25 Sep 15
( Who draw the national flag of the Kingdom of Saudi Arabia ? ) : :) t 5 * sin 3 pow 10 / + 6 / + ; : z- ( a ib c id - a-c i[b-d] ) -1 0 z* z+ ; : r ( x y - r ) over over negate z* + sqrt ; : c ( x y r - k ) >r x y z- r r> < ; 0.4 0.6 0.02 c 0.6 0.65 0.02 c or 0.5 0.5 0.25 c < 0.5 0.51 0.2 c 0.48 x 3 * cos :) 0.58 y 4 * sin :) y 4 * sin 35 / + 0.23 y :) c > -
Who Draws Flag of Arabia ? :)
DarkstarAG
'25 Sep 15
: a ( -- angle ) x y atan2 ; : p ( i -- angle ) 10 / pi * ; : s ( b e -- f ) a swap p < a rot p > and ; 1 4 s 1 2 s 3 5 s or 0 1 s 3 4 s or
Flag of Seychelles Redux Redux
陳爽
'25 Sep 15
: 平移放大 ( 舊值 位置 倍數 -- 新值 ) >r - r> * ; : x ( -- x新值 ) x .5 2.4 平移放大 ; \ x 改以 .5 為中心 並放大 2.4 倍 \ x 範圍 從 0 到 1 變為 (0-.5)*2.4 到 (1-.5)*2.4 : y ( -- y新值 ) y .75 2.8 平移放大 ; \ y 改以 .7 為中心 並放大 2.4 倍 \ y 範圍 從 0 到 1 變為 (0-.7)*2.4 到 (1-.7)*2.4 : dot ( x y -- r*r ) dup * swap dup * + ; : l dup -0.04 * r> r> 2dup * 2 * x + >r 2dup z* drop y + r> 2dup >r >r dot + abs rot min swap rot over 1.32457 * t + r> r> 2dup >r >r rot dup cos -2 * swap sin -2 * z+ dot min -rot 1 + ; y x >r >r 4 4 t .05 * sin 5 * .1 + l l l l l l l l l drop log 8 / negate swap log 8 / negate swap dup >r 2 ** over 3 ** + r> 1.7 ** 1 r> - .04 ** * .2 ** r> drop x x * y .4 + dup * + sqrt 1.5 swap - 1.5 * ( based on shader by Guil )
Emerald Necklace Redux
陳爽
'25 Sep 15
x \ 紅光亮度橫向變化從左到右從 0 到 1 y \ 綠光亮度縱向變化從下到上從 0 到 1 t dup floor - \ 藍光亮度每秒變化從 0 到 1
Ricky's first Haiku Redux Redux
陳爽
'25 Sep 15
: x x 2 * ; ( x 從 0 到 1 變為 從 0 到 2 ) : y y 2 * ; ( y 從 0 到 1 變為 從 0 到 2 ) : x x 1 - ; ( x 從 0 到 2 變為 從 -1 到 1 ) : y y 1 - abs ; ( y 從 0 到 2 變為 從 1 到 0 到 1 ) : a x y atan2 ; ( a 為 0,0 到 x,y 的 角度 ) ( a cos 為 0,0 到 x,y 的 距離為 1 時之 餘旋 ) y abs a cos < ( 紅 pizza ) dup ( 綠 pizza ) dup ( 藍 pizza )
pizza Redux Redux
陳爽
'25 Sep 15
: d t 20 mod ; : xo x .5 - ; : yo y .5 - ; : x yo ; : y xo ; : a x y atan2 d 10 / pi * - 2 pi * mod ; : p a swap pi 10 / * ; : > p > ; : < p < ; 1 > 4 < and 1 > 2 < and 3 > 5 < and or 0 > 1 < and 3 > 4 < and or
Flag of Seychelles Redux Redux
陳爽
'25 Sep 15
: a x y atan2 ; \ a 為 0,0 到 x,y 的 角度 \ a cos 為 0,0 到 x,y 的 距離為 1 時之 餘旋 y a cos > \ 紅 pizza dup \ 綠 pizza dup \ 藍 pizza
pizza Redux
Anonymous
'25 Sep 15
x y 1
Ricky's first Haiku Redux
陳爽
'25 Sep 15
: a x y atan2 ; : p a swap pi 10 / * ; : > p > ; : < p < ; 1 > 4 < and 1 > 2 < and 3 > or 1 < 3 > 4 < and or
Flag of Seychelles Redux
陳爽
'25 Sep 15
: theta x y atan2 ; theta cos y < dup dup
pizza
Ricky Lai
'25 Sep 15
x y t
Ricky's first Haiku
Ricky Lai
'25 Sep 15
x y t 4 * sin t 7 * cos z* 2dup > if x rot else y -rot then
Fan-cy
Anonymous
'25 Sep 15
: 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
'25 Sep 15
: 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
'25 Sep 15
: 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
'25 Sep 15
: 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
'25 Sep 15
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
'25 Sep 15
y 9 * .5 + .4 * .4 mod .2 - abs .3 + x < if .41 .1 .25 else 1 1 1 then
Flag of Qatar
BradN
'25 Sep 15
x 10 * 2 mod 1 - abs y >
Triangle Wave
BradN
'25 Sep 15
: 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 Sep 15
: 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 Sep 15
1 y 0.33 < y 0.66 > or y 0.66 >
Flag of South Ossetia
Ting
'25 Sep 15
y 0.33 > y 0.33 > y 0.66 < and dup
Flag of Yemen
Ting
'25 Sep 15
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 Sep 15
y 0.5 < y 0.5 < y 0.5 >
Flag of Ukraine
Ting
'25 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
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 Sep 15
: 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 Sep 15
x 0.45 - dup * y 0.5 - dup * + sqrt 0.3 < dup not 0
Flag of Bangladesh
Ting
'25 Sep 15
Next