Haiku Gallery
\ F. 時鐘 \ 新增指令 \\\\\\\\\\\\\\\\\\\ : 2pi pi pi + ; : r \ 中心到 x,y 的距離, 1 到邊 x .5 - x .5 - * y .5 - y .5 - * + sqrt ; : a \ 中心到 x,y 的角度, 0 到 1 y .5 - x .5 - atan2 pi + pi / 2 / ; : 分 t 60 / ; : 時 分 60 / ; : 格 / + 1 mod ; : 反 1 swap - ; : 間 ( x L U -- b ) \ x 在 L U 間 >r over r> < >r > r> and ; \ 紅色盤面 \\\\\\\\\\\\\\\\\\\ 0 \ 紅色亮度 0 .5 + \ 紅色亮度 .5 x y * .001 > * \ 右下黑 x 反 y * .001 > * \ 左下黑 x y 反 * .001 > * \ 右上黑 x 反 y 反 * .001 > * \ 左上黑 dup push .3 \ 綠色亮度 .3 x y * .009 > * \ 右下紅 x 反 y * .009 > * \ 左下紅 x y 反 * .009 > * \ 右上紅 x 反 y 反 * .009 > * \ 左上紅 + \ 增中間紅色亮度為 .8 .2 \ 綠色亮度 .2 x y * .022 > * \ 右下紅 x 反 y * .022 > * \ 左下紅 x y 反 * .022 > * \ 右上紅 x 反 y 反 * .022 > * \ 左上紅 + \ 增中間紅色亮度為 1 r .39 > * \ 半徑 .39 紅洞 r .08 < + \ 半徑 .08 紅圓 ) \ 紅色秒針 \\\\\\\\\\\\\\\\\\\ : 秒針 a .25 + \ 修正 角度 0 向上 t 60 格 \ 每秒 1/60 圈 .005 < \ 秒針寬度 r .1 .37 間 * \ 加上秒針 ; 秒針 + \ 顯示 紅色秒針 \ 綠色時標 \\\\\\\\\\\\\\\\\\\ : 時標 12 2pi * \ 12 週期 a * cos \ 餘旋波 .95 > \ 振幅大於 .95 定 時標長 r .41 .425 間 * \ 定 時標寬 ; 時標 \ 綠時標 (加紅色呈黃色) \ 綠色分針 \\\\\\\\\\\\\\\\\\\ : 分針 a .25 + \ 修正 角度 0 向上 分 60 格 \ 每時角 0 到 1 .005 < \ 分針寬度 r .1 .32 間 * \ 加上秒針 ; 分針 + \ 顯示 綠色秒針 \ 藍色時針 \\\\\\\\\\\\\\\\\\\ : 時針 a .25 + \ 修正 角度 0 向上 時 12 格 \ 每 12 小時 角 0 到 1 .005 < \ 時針寬度 r .1 .3 間 * \ 加上秒針 ; 時針 \ 顯示 藍色秒針 pop 2 * \ )
時鐘
陳爽
'25 Sep 15
: y-0.5 y .5 - ; \ -0.5~+0.5 : sin(0~2pi*n)/2 ( n Vm -- ) >r 2 pi * x * * sin 2 / r> * ; \ (-0.5 ~ +0.5)Vm : sin? ( n Vm -- ) sin(0~2pi*n)/2 y-0.5 - abs .02 < ; 2.5 1 sin? \ R 2.5 .5 sin? \ G 2.5 0 sin? \ B
n cycle sine curve Redux
Anonymous
'25 Sep 15
: y-0.5 y .5 - ; \ -0.5~+0.5 : sin(0~2pi*n)/2 ( n Vm -- ) >r 2 pi * x * * sin 2 / r> * ; \ (-0.5 ~ +0.5)Vm : sin? ( n Vm -- ) sin(0~2pi*n)/2 y-0.5 - abs .02 < ; 1.5 1 sin? \ R 1.5 .5 sin? \ G 1 0 sin? \ B
n cycle sine curve
holi
'25 Sep 15
\ n by n fans : n 2 ; \ x y 區間 從 0 到 1 分別重複 n 次 : x x n * 1 mod ; : y y n * 1 mod ; \ x y 每區間改變 分別從 -1 到 1 : x x .5 - 2 * ; : y y .5 - 2 * ; \ a 為 點 x,y 到中心 與橫軸夾角 : a y x atan2 ; \ r 為 點 x,y 到中心 距離 : r x x * y y * + sqrt ; \ m 為 風扇葉片數 : m 6 ; .3 \ 暗紅底色 \ 風扇葉片 =============== \ a 區間 從 0 到 2 pi 重複 m 次 a t - 2 pi * m / mod \ 葉片寬度 r .3 > * r .85 < * \ 葉片尺寸 r .2 < .6 * + \ 軸承尺寸 dup .7 * \ 青綠色葉片 \ 風扇外罩 =============== : t t 10 / ; \ 外罩轉動慢 10 倍 : 線 .38 + .4 mod abs .37 < ; : 縱 a t - sin r * 線 ; : 橫 a t - cos r * 線 ; : 圈 r 線 r .96 < * ; 縱 橫 * 圈 * \ 透視效果
n by n fans
陳爽
'25 Sep 15
: t t 2 / ; : x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + sqrt ; : a y x atan2 ; : 反 1 swap - ; : 暈 sqrt 反 ; : 板 .15 < 反 ; : 線 abs .2 < ; : 圈 push a * t + sin r .35 - pop 100 / / - ; 1 6 圈 線 \ 紅 3 3 圈 暈 \ 綠 4 7 圈 板 4 9 圈 暈 * \ 藍 r .22 - .1 ** r .5 < * \ 透
圈 線 暈 板 Redux Redux Redux
陳爽
'25 Sep 15
: t t 2 / ; : x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + sqrt ; : a y x atan2 ; : 反 1 swap - ; : 暈 sqrt 反 ; : 板 .15 < 反 ; : 線 abs .2 < ; : 圈 push a * t + sin r .35 - pop 100 / / - ; 1 6 圈 線 \ 紅 3 3 圈 暈 \ 綠 4 7 圈 板 4 9 圈 暈 + \ 藍 r .25 - .1 ** r .5 < * \ 透
圈 線 暈 板 Redux Redux
陳爽
'25 Sep 15
: t t 2 / ; : x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + sqrt ; : a y x atan2 ; : 反 1 swap - ; : 暈 sqrt 反 ; : 板 .15 < 反 ; : 線 abs .2 < ; : 圈 push a * t + sin r .35 - pop 100 / / - ; 1 6 圈 線 \ 紅 3 3 圈 暈 \ 綠 4 7 圈 板 4 9 圈 暈 + \ 藍 r .25 - .1 ** \ 透
圈 線 暈 板 Redux
陳爽
'25 Sep 15
: t t 2 / ; : x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + sqrt ; : a y x atan2 ; : 反 1 swap - ; : 暈 sqrt 反 ; : 板 .15 < 反 ; : 線 abs .2 < ; : 圈 >r a * t + sin r .35 - r> 100 / / - ; 1 6 圈 線 \ 紅 3 3 圈 暈 \ 綠 4 7 圈 板 4 9 圈 暈 + \ 藍 r .2 - 暈 \ 透
圈 線 暈 板
陳爽
'25 Sep 15
\ : 波 abs .02 < ; \ 純線 : 波 .1 ** 1.5 swap - ; \ 有光暈 : 正旋 ( 頻 幅 -- f ) >r ( 頻 ) pi * x * t + sin y r@ ( f' y 幅 ) .2 + - r> ( f' y' 幅 ) / - 波 ; 2 .30 正旋 4 .26 正旋 6 .24 正旋
正旋波
陳爽
'25 Sep 15
: r x .5 - 2 ** y .5 - 2 ** + 5 * ; : a x 10 - y 10 - atan2 ; : sine push a * t 30 / sin dup * 20 * pop * + sin r .5 - 5 * - sqrt 1 swap - ; : t 2 swap ** t 99 / sin 1 + * ; 4 t x sine 3 t x y + sine 2 t y sine 1 t x y - sine .1 **
string theory Redux
陳爽
'25 Sep 15
: x x .5 - ; : y y .4 - ; : sine push t sin x sqrt y sqrt / 20 * + sin dup * y r@ / sin 100 * x * sin * pop * + sin y .5 - 2 * - sqrt 1 swap - ; 1 t * 3 sine 2 t * 2 sine 3 t * 1 sine y .4 + 2 * dup *
acid peacock Redux
陳爽
'25 Sep 15
: x x .5 - ; : y y .5 - ; : t t 3 / ; : r x 1.7 ** y 1.5 ** + sqrt ; : a x y atan2 ; : sine ( p q -- ) push ( p ) t * t sin a r / sqrt 8 * + sin r r@ ( q ) / sin 200 * r sqrt * sin * pop ( q ) * + sin r .5 - 6 * - sqrt 1 swap - ; 1.71 8.11 sine 1.83 2.34 sine 1.91 1.17 sine
arachne Redux
陳爽
'25 Sep 15
: ⚊ x .5 - t cos * y .5 - t sin * - ; : ⚋ x .5 - t sin * y .5 - t cos * + ; : √ sqrt ; : □ 2 pow ; : b&w dup dup ; : r .3 t sin .15 * + ; : s 1.3 ; : r2 r 2 / ; : r3 r 6 / ; : s2 s 2 * ; .4 ⚊ □ ⚋ □ + √ r < ⚊ 0 < if + else - then ⚊ □ ⚋ r2 - □ + √ r2 < s * + ⚊ □ ⚋ r2 + □ + √ r2 < s * - ⚊ □ ⚋ r2 + □ + √ r3 < s2 * + ⚊ □ ⚋ r2 - □ + √ r3 < s2 * - b&w
Dao Redux
陳爽
'25 Sep 15
\ Batman Code 蝙蝠俠標誌 : sqr ( n -- n*n ) dup * ; \ 平方 : /x/ ( fx L U -- fx' ) \ 取 fx 的 L < x < U 區間 x >= push x < pop * * ; : /y/ ( fy L U -- fy' ) \ 取 fy 的 L < y < U 區間 y >= push y < pop * * ; : k .01 ; \ 線寬 : 線 - abs k < ; : 反 1 swap - ; : 中 .5 - ; : par1-l x sqrt 3 / y 中 線 ; : par1-r x 反 sqrt 3 / y 中 線 ; : par2-l .4 x - sqr 10 * y .59 - 線 ; : par2-r .6 x - sqr 10 * y .59 - 線 ; : head-ln x 中 abs .04 > y .68 - 線 ; : head x .5 - 1.6 * abs 4 * .31 - abs .15 - abs y .59 - - abs .013 < x 中 abs .04 > * x .5 - abs .04 > y .68 - 線 + ; : par3 x 中 1.2 / sqr y .372 - 1.2 * 線 ; : par4 x 中 20 * sin abs sqrt x 中 .5 pow + 8 / y .283 - 線 ; 0 x .122 線 + x .878 線 + y .25 線 + y .77 線 + x .122 - pi 9.28 * * sin 8 / y .25 - 線 + 0 par2-l + par2-r + \ head + .76 1 /y/ \ part3 + part4 + 0 .2 /y/ 0 par1-l .0 .3 /x/ + par1-r .7 1. /x/ + par2-l 0.3 0.43 /x/ + par2-r 0.57 0.7 /x/ + head 0.43 0.57 /x/ + head-ln + par3 0.4238 0.7 /y/ + par4 0.2 0.8 /x/ +
Batman Redux
陳爽
'25 Sep 15
: 道 0.5 ; : ⚊ x .5 - t cos * y .5 - t sin * - ; : ⚋ x .5 - t sin * y .5 - t cos * + ; : √ sqrt ; : □ 2 pow ; : ↓ push ; : ↑ pop ; : !! 2 * ; : !!!! 4 * ; : b&w dup dup ; : ◐ ↓ ↓ ⚊ + □ ⚋ ↑ + □ + √ ↑ < ; 道 0 0 .45 ◐ ⚊ 0 < if + else - then 0 -.225 .225 ◐ !! + 0 .225 .225 ◐ !! - 0 0.225 0.07 ◐ !!!! + 0 -0.225 0.07 ◐ !!!! - b&w
Dao
fnord
'25 Sep 15
x .1 > x .3 < and y .4 > y .6 < and or x .7 > x .9 < and x .1 > x .3 < and or y .4 > y .6 < and and and dup dup
eyes
Lai and Chen
'25 Sep 15
: r x 0.5 - 1.7 ** y 0.5 - 1.5 ** + sqrt ; : a x 0.5 - y 0.5 - atan2 ; : sine push t sin a 0.5 ** r 0.5 ** / 8 * + sin r r@ / sin 200 * r sqrt * sin * pop * + sin r 0.5 - 2 * - 0.5 ** 1 swap - ; 1.71 t * 8.11 sine 1.83 t * 2.34 sine 1.91 t * 1.17 sine
arachne
fnord
'25 Sep 15
: x x 0.5 - ; : sine push t sin x 0.5 ** y 0.5 ** / 20 * + sin 2 ** y r@ / sin 100 * x * sin * pop * + sin y 0.5 - 2 * - 0.5 ** 1 swap - ; 1.7 t * 3.1 sine 1.8 t * 2.3 sine 1.9 t * 1.1 sine
acid peacock
fnord
'25 Sep 15
: x x 0.5 - ; : sine push t sin y 20 * + sin 2 ** y r@ / sin 100 * x * sin * pop * + sin y 0.5 - 2 * - 0.5 ** 1 swap - ; 1.7 t * 3.1 sine 1.8 t * 2.3 sine 1.9 t * 1.1 sine
acid puddle
fnord
'25 Sep 15
: x x 0.5 - ; : y y 0.5 - ; : x' push x r@ cos * y pop sin * - ; : y' push x r@ sin * y pop cos * + ; : a push push y t pop * sin - r t pop * cos - * ; : r t 5 / x' 10 t 10 / sin 1 + 30 * + * sin 2 ** t 5 / y' 10 t 10 / sin 1 + 30 * + * sin 2 ** + sqrt ; : sine r - abs 1 swap - abs ; : t' t swap / sin * 0.001 + ; x 0.00005 5 t' * y 0.00007 5 t' * a sine sine x 0.00009 5 t' * y 0.00011 5 t' * a sine sine x 0.00013 5 t' * y 0.00017 5 t' * a sine sine
quantum moire
fnord
'25 Sep 15
x .5 - 3 * 2.5 pow y .5 - 3 * 2.5 pow + sqrt 1 < : 'x 60 * t sin 5.5 / + ; : 'y 60 * t cos 7 / + ; x 'x sin y 'y cos 40 * * /
Sergels Torg Redux
DarkstarAG
'25 Sep 15
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - r t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
continuous plasmoid
fnord
'25 Sep 15
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
plasmoid
fnord
'25 Sep 15
: r x 0.5 - 2 ** y 0.5 - 2 ** + 5 * ; : a x 10 - y 10 - atan2 ; : sine push a * t sin 2 ** 20 * pop * + sin r 0.5 - 5 * - 0.5 ** 1 swap - ; 5 x sine 7 y sine 9 x y + 2 / sine
string theory
fnord
'25 Sep 15
: r x 0.5 - 2 ** y 0.5 - 2 ** + sqrt ; : a x 0.5 - y 0.5 - atan2 ; : sine push a * t 10 * pop * + sin r 0.5 - 4 * - 0.5 ** 1 swap - ; 3 x sine 5 y sine 7 x y + 2 / sine
event horizon
fnord
'25 Sep 15
: sine push x * t pop * + sin y 0.5 - 4 * - 0.3 ** 1 swap - ; 4.3 5 sine 5.9 5 sine 7.5 5 sine
wavelengths
fnord
'25 Sep 15
: env ( bps -- out ) t 1 swap dup push / mod pop * 1 swap - 2 ** ; : note ( pitch length repeat -- out ) t 1 swap dup push / mod pop * > * ; : v1 1.1 env ; : v2 3.8 env ; : v3 7.9 env ; : p0 0.5 0.2 11 note ; : p1 0.4 0.2 7 note ; : p3 0.3 0.25 0.35 note ; : p4 0.2 0.5 0.57 note ; : p5 0.1 0.75 0.192 note ; : vol v1 0.5 * v2 0.3 * + v3 0.2 * + ; : pch p0 p1 + p3 + p4 + p5 + ; x 0.5 < if pch else vol then pch vol
fnord
[audio] idm musick
'25 Sep 15
: env ( bps -- out ) t 1 swap dup push / mod pop * 1 swap - 2 ** ; : note ( pitch length repeat -- out ) t 1 swap dup push / mod pop * > * ; : v1 2 env ; : v2 4 env ; : v3 8 env ; : p0 0.5 0.2 12 note ; : p1 0.5 0.2 8 note ; : p3 0.1 0.25 0.25 note ; : p4 0.1 0.5 0.5 note ; : p5 0.2 0.75 0.125 note ; : vol v1 0.5 * v2 0.3 * + v3 0.2 * + ; : pch p0 p1 + p3 + p4 + p5 + ; x 0.5 < if pch else vol then pch vol
[audio] house musick
fnord
'25 Sep 15
\ 紅隨 xy乘方 重複變 20150914 陳爽 x y ** \ 紅光隨 xy乘方 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy乘方 重複變
科科
'25 Sep 15
\ 紅隨 xy餘 重複變 20150914 陳爽 x y mod \ 紅光隨 xy除 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy餘 重複變
科科
'25 Sep 15
\ 紅隨 xy除 重複變 20150914 陳爽 x y / \ 紅光隨 xy除 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy除 重複變
科科
'25 Sep 15
\ 紅隨 xy減 重複變 20150914 陳爽 x y - \ 紅光亮度隨反對角線方向變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
紅隨 xy減 重複變
陳爽
'25 Sep 15
x y * \ 紅光隨 xy* 從 0 到 1 重複變化 5 * 1 mod \ 紅光隨xy* 從 0 到 1 重複變化
紅隨xy*重複變
科科
'25 Sep 15
x y + \ 紅光隨對角線變化 從 0 漸增 \ 亮度 大於 1 視同 1 5 * 1 mod \ 紅光隨對角線方向 0 到 1 重複變化
紅隨對角線重複變
科科
'25 Sep 15
\ 好範例 : odd 2 mod ; : sqr dup * ; : len sqr swap sqr + sqrt ; : acos dup sqr 1 - negate sqrt swap 1 + atan2 2 * ; : rad 0.5 ; : tiles 10 ; : tile tiles * floor odd ; : dx x 0.5 - ; : dy y 0.5 - ; : dlen dx dy len ; : inside? dlen rad < ; : z rad sqr dlen sqr - sqrt ; : theta dy acos 2 * pi / ; : phi z dx atan2 pi / ; : ofs t 10 / ; : txtr tile swap ofs + tile + odd 0.25 max ; phi theta txtr z * inside? * dup dup
Rotating sphere Redux
Anonymous
'25 Sep 15
x y + \ 紅光隨對角線變化 從 0 漸增 \ 亮度 大於 1 視同 1 0 0 \ 綠 藍 亮度都為 0 (可不給這兩個 0)
紅隨對角線變
科科
'25 Sep 15
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : y y .5 - ; \ 原點移到中間, y 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 : y y 2 * ; \ y 放大, y 值從 -1 變到 1 x y + \ 紅光隨對角線變化 從 0 漸增, 大於 1 視同 1 0 \ 綠 0 \ 藍
紅隨對角線變
科科
'25 Sep 15
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 x 5 pow \ 紅光隨 x 指數值 變化 從 1 到 0 到 1 0 \ 綠 0 \ 藍
紅隨 x 指數值變
科科
'25 Sep 15
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 x x * \ 紅光隨 x 平方值 變化 從 1 到 0 到 1 0 \ 綠 0 \ 藍
紅隨 x 平方值變
科科
'25 Sep 15
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 x abs \ 紅光隨 x 絕對值 變化 從 1 到 0 到 1 0 \ 綠 0 \ 藍
紅隨 x 絕對值變
科科
'25 Sep 15
Next