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