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 mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot mandelbrot len 2 <
Mandelbrot In Set
kaoD
'25 May 25
: loop 0.01 + swap 1 - dup 0 > if swap loop else drop then ; 10 0 loop
Recursion doesn't work
Anonymous
'25 May 25
: 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 May 25
: 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 May 25
\ 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 May 25
( 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 May 25
: 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 May 25
: 平移放大 ( 舊值 位置 倍數 -- 新值 ) >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 May 25
x \ 紅光亮度橫向變化從左到右從 0 到 1 y \ 綠光亮度縱向變化從下到上從 0 到 1 t dup floor - \ 藍光亮度每秒變化從 0 到 1
Ricky's first Haiku Redux Redux
陳爽
'25 May 25
: 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 May 25
: 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 May 25
: 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 May 25
x y 1
Ricky's first Haiku Redux
陳爽
'25 May 25
: 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 May 25
: theta x y atan2 ; theta cos y < dup dup
pizza
Ricky Lai
'25 May 25
x y t
Ricky's first Haiku
Ricky Lai
'25 May 25
x y t 4 * sin t 7 * cos z* 2dup > if x rot else y -rot then
Fan-cy
Anonymous
'25 May 25
: 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 May 25
: 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 May 25
: 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 May 25
: 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 May 25
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 May 25
y 9 * .5 + .4 * .4 mod .2 - abs .3 + x < if .41 .1 .25 else 1 1 1 then
Flag of Qatar
BradN
'25 May 25
x 10 * 2 mod 1 - abs y >
Triangle Wave
BradN
'25 May 25
: 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 May 25
: 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 May 25
1 y 0.33 < y 0.66 > or y 0.66 >
Flag of South Ossetia
Ting
'25 May 25
y 0.33 > y 0.33 > y 0.66 < and dup
Flag of Yemen
Ting
'25 May 25
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 May 25
y 0.5 < y 0.5 < y 0.5 >
Flag of Ukraine
Ting
'25 May 25
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 May 25
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 May 25
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 May 25
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 May 25
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 May 25
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 May 25
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 May 25
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 May 25
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 May 25
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 May 25
Next