Haiku Gallery
\ 點線測試 \ 2 倍 圓周率 : 2pi pi pi + ; \ 從 rstack 取出 a b 到 dstack : 2>r \ a b ; -- ; b a >r >r ; \ 從 rstack 取出 a b 到 dstack : 2r> \ ; b a -- a b ; r> r> ; \ 從 rstack 複製 a b 到 dstack : 2r@ \ ; b a -- a b ; r> dup r@ rot >r ; \ dstack 上 兩對數 位置互換 : 2swap \ a b c d -- c d a b >r -rot r> -rot ; \ 複製 dstack 第二對數 : 2over \ a b c d -- a b c d a b 2>r 2dup 2r> 2swap ; \ 複製 dstack 上 4 個數 \ ( a b c d -- a b c d a b c d ) : 4dup 2over 2over ; \ v"=L if v<L, v"=U if v>U : 間 ( v L U -- v" ) 2dup > if swap then >r ( v L ) max r> ( v' U ) min ( v" ) ; \ 0 到 1 變化的 f 放大 n 倍取 小數 : 摺 ( f n -- f ) \ f 的 n 摺 * 1 mod ; : 線粗 .02 ; \ f 等於 v 的 線 : 線 ( f v -- 線 ) \ f=v 線 - abs 線粗 2 / < ; \ 過 x1,y1 與 x2,y2 的 直線 或 點 : 兩點線 ( x1 y1 x2 y2 -- 線 ) >r over r> ( x1 y1 x2 y1 y2 ) - ( x1 y1 x2 y1-y2 ) >r ( x1 y1 x2 ) >r over r> ( x1 y1 x1 x2 ) - ( x1 y1 x1-x2 ) dup if \ x1-x2<>0 非垂直線 r> swap ( x1 y1 y1-y2 x1-x2 ) / ( x1 y1 斜率 ) >r swap r@ * - ( y軸交點 ) r> ( y軸交點 斜率 ) x * + y ( y軸交點+斜率*x y ) 線 else \ x1-x2=0 垂直線 或 一個點 drop r> ( x1 y1 y1-y2 ) if \ y1-y2<>0 垂直線 drop x ( x1 x ) 線 else \ y1-y2=0 一個點 ( x1 y1 ) y 線 swap x 線 * then then ; \ 在點 p1 角度為 a1 的 方向 : 點角向 \ x1 y1 a1 -- 方向 .25 - \ 向上 2pi * \ 值域 -pi 到 pi >r y - swap x - atan2 r> + pi + cos dup 0 < if drop 0 then ; \ 在點 p1 角度為 a1 方向 的 線 : 點角線 \ x1 y1 a1 -- 線 >r 2dup r@ .5 + 點角向 -rot swap \ m y1 x1 r> .25 - \ 向上 2pi * \ 值域 -pi 到 pi dup >r sin x rot - * \ m y1 fx swap \ m fx y1 r> cos y rot - * \ m fx fy + abs 1.005 - 200 ** \ m 角a心線 * 0 1 間 ; \ p1 到 p2 的連線 角度 : 兩點角 ( x1 y1 x2 y2 -- 角 ) >r swap r> - \ x1 x2 y1-y2 -rot - swap \ x1-x2 y1-y2 atan2 2pi / ; \ p1 到 p2 的連線 方向 : 兩點向 2over 兩點角 點角向 ; \ p1 到 p2 的連線 : 兩點連線 \ x1 y1 x2 y2 -- 線 4dup 兩點線 \ x1 y1 x2 y2 線 >r \ x1 y1 x2 y2 4dup 兩點向 \ x1 y1 x2 y2 向1 >r \ x1 y1 x2 y2 2swap 兩點向 \ 向2 r> r> * * ; \ p0 x0,y0 到 任意點 p x,y 的 距離 : r \ x0 y0 -- r y - dup * swap x - dup * + sqrt ; \ p0 x0,y0 到 任意點 p x,y 的 角度 : a \ x0 y0 -- a y swap - swap x swap - atan2 2pi / ; \ 中心點 p0 及 測試點 p1 p2 p3 : p0 .5 .5 ; : p1 .6 .8 ; : p2 .1 .4 ; : p3 .9 .2 ; 0 \ 紅色亮度 0 \ ( 測試0 底圖 10*10 格線 : 底圖格線 x 10 摺 .05 < y 10 摺 .05 < + ; 底圖格線 + \ ) \ ( 測試1 p1 與 p2 的連線 p1 p2 兩點連線 + \ ) \ ( 測試2 p0 線 與 p1 到 p2 同方向 : a1 p1 p2 兩點角 ; p0 a1 點角線 + \ ) \ ( 測試3 p2 與 p3 的連線 p2 p3 兩點線 p2 p3 兩點向 p3 p2 兩點向 * * + \ ) \ ( 測試4 p1 與 p3 的連線 : a3 p3 p1 兩點角 ; p1 p3 兩點線 p1 a3 點角向 * p3 a3 .5 + 點角向 * + \ ) \ ( 測試5 圓與洞 : 圓 r .03 < ; : 反 1 swap - ; : 洞 圓 反 ; p0 圓 + p1 圓 - p2 圓 - 0 p1 圓 + 0 p2 圓 + 0 p3 洞 + \ )
點線測試
陳爽
'25 Jul 11
( chaos in milliseconds of time ) : scale ( u k - u' ) >r .5 - r> / .5 + ; : x x .5 scale ; : y y .5 scale ; t 1000 * y .5 - * y .5 - x .5 - * * 10 / floor 8 mod 8 / .31 >
Spaceport Chaos Redux (Cryptotext)
DarkstarAG
'25 Jul 11
: 2pi pi pi + ; \ 2 倍 圓周率 : 2/ 2 / ; : 1- 1 - ; : 線 ( r v -- 線 ) \ r=v 線 - abs .01 < ; : 摺 ( v n -- v ) \ v 的 n 摺 對應值 * 1 mod ; : 兩點線 ( x1 y1 x2 y2 -- line ) >r over r> ( x1 y1 x2 y1 y2 ) - ( x1 y1 x2 y1-y2 ) >r ( x1 y1 x2 ) >r over r> ( x1 y1 x1 x2 ) - ( x1 y1 x1-x2 ) dup if r> swap ( x1 y1 y1-y2 x1-x2 ) / ( x1 y1 a ) >r swap r@ * - r> ( b a ) x * + y 線 else drop r> ( x1 y1 y1-y2 ) if drop x 線 else ( x1 y1 ) y 線 swap x 線 * then then ; : 線粗 .01 ; : 點角向 \ x1 y1 a -- 圖 .25 - \ 向上 1 mod 2pi * \ 值域 -pi 到 pi >r y - swap x - atan2 r> + pi + cos ; : 點角線 \ x0 y0 a -- 圖 .25 - \ 向上 1 mod 2pi * \ 值域 -pi 到 pi >r 2dup r@ 點角向 -rot swap \ m y0 x0 r@ sin x rot - * \ m y0 fx swap \ m fx y0 r> cos y rot - * \ m fx fy + abs 1- 線粗 2/ - 15000 ** \ m 角a心線 * ; : x1 .1 ; : y1 .4 ; : x2 .6 ; : y2 .8 ; : a1 x2 x1 - y2 y1 - atan2 2pi / ; \ 紅色參考格線 x 10 摺 .05 < y 10 摺 .05 < + \ 綠色點角線 .5 .5 a1 點角線 + \ 綠色兩點線 x1 y1 x2 y2 兩點線 \ 藍色兩點區間 x1 y1 a1 .5 + 點角向 x2 y2 a1 點角向 * \ )
兩點線
陳爽
'25 Jul 11
( Get normal number if evaluation makes INF on NaN ) : inf? 1 min 0 max ; x .5 - 5 * log dup >r y .5 > * r> inf? y .5 < *
Check NaN and INF in code 3
DarkstarAG
'25 Jul 11
( Get normal number if evaluation makes +INF on NaN ) : inf? 1 min ; x .5 - 5 * log dup >r y .5 > * r> inf? y .5 < *
Check NaN and INFINITY in code Redux
DarkstarAG
'25 Jul 11
( Get normal number if evaluation makes +INF on NaN ) : inf? 1 min ; 1 x .5 - 10 * / dup inf? y > min
Check NaN and INFINITY in code
DarkstarAG
'25 Jul 11
\ F. 時鐘 : 秒 t floor ; \ 捨小數 取整數 : 分 t 60 / ; : 時 t 3600 / ; : 2pi pi pi + ; : 反 1 swap - ; : 間 ( x L U -- b ) \ x 在 L U 間 >r over r> < >r > r> and ; : r \ 中心到 x,y 的距離, 1 到邊 x .5 - dup * y .5 - dup * + sqrt ; : a \ 中心到 x,y 的角度, 0 到 1 y .5 - x .5 - atan2 pi + pi / 2 / ; : 格 ( t -- 線 ) \ 中心發 角a線 / .25 + \ 0 向上 1 mod .5 - \ 值域 -1 到 1 2pi * \ 值域 -pi 到 pi >r \ 角度儲存備用 r@ sin x .5 - * r@ cos y .5 - * + abs 1 - 150 ** \ 角 a 中心線 r> 2pi / a + .5 - 2pi * cos * ; \ 去除 角 a+pi 線段 : 秒針 秒 60 格 \ 每秒走 1/60 圈 r .05 .37 間 * \ 秒針起訖端點 r .03 .05 間 + \ 中心紅圈 ; 秒針 \ 顯示 紅色秒針 : 秒標 60 2pi * \ 60 週期 a * cos \ 餘旋波 .97 > \ 振幅大於.97 設定 時標 長 r .41 .425 間 * \ 設定 時標 寬 ; 秒標 + \ 紅色秒標 : 分針 分 60 格 \ 每分走 1/60 圈 r .07 .32 間 * \ 分針起訖端點 r .05 .07 間 + \ 中心綠圈 ; 分針 \ 顯示 綠色分針 : 時標 12 2pi * \ 12 週期 a * cos \ 餘旋波 .97 > \ 振幅大於.97 設定 時標 長 r .41 .425 間 * \ 設定 時標 寬 ; 時標 + \ 綠色時標 : 時針 時 12 格 \ 每時走 1/12 圈 r .09 .3 間 * \ 時針起訖端點 r .07 .09 間 + \ 中心藍圈 ; 時針 \ 顯示 藍色時針 : 框 ( v -- 框 ) x y * .001 > * \ 右下黑 x 反 y * .001 > * \ 左下黑 x y 反 * .001 > * \ 右上黑 x 反 y 反 * .001 > * \ 左上黑 ; .5 框 \ 亮度 .5 \ 藍色盤面 \\\\\\\\\\\\\\\\\\\ .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 洞 1 框
時鐘 Redux
陳爽
'25 Jul 11
\ F. 時鐘 : 秒 t floor ; \ 捨小數 取整數 : 分 t 60 / ; : 時 t 3600 / ; : 2pi pi pi + ; : 反 1 swap - ; : 間 ( x L U -- b ) \ x 在 L U 間 >r over r> < >r > r> and ; : r \ 中心到 x,y 的距離, 1 到邊 x .5 - dup * y .5 - dup * + sqrt ; : a \ 中心到 x,y 的角度, 0 到 1 y .5 - x .5 - atan2 pi + pi / 2 / ; : 格 ( t -- 線 ) \ 中心發 角a線 / .25 + \ 0 向上 1 mod .5 - \ 值域 -1 到 1 2pi * \ 值域 -pi 到 pi >r \ 角度儲存備用 r@ sin x .5 - * r@ cos y .5 - * + abs 1 - 150 ** \ 角 a 中心線 r> 2pi / a + .5 - 2pi * cos * ; \ 去除 角 a+pi 線段 : 秒針 秒 60 格 \ 每秒走 1/60 圈 r .05 .37 間 * \ 秒針起訖端點 r .03 .05 間 + \ 中心紅圈 ; 秒針 \ 顯示 紅色秒針 : 分針 分 60 格 \ 每分走 1/60 圈 r .07 .32 間 * \ 分針起訖端點 r .05 .07 間 + \ 中心綠圈 ; 分針 \ 顯示 綠色分針 : 時標 12 2pi * \ 12 週期 a * cos \ 餘旋波 .97 > \ 振幅大於.97 設定 時標 長 r .41 .425 間 * \ 設定 時標 寬 ; 時標 + \ 綠色時標 : 時針 時 12 格 \ 每時走 1/12 圈 r .09 .3 間 * \ 時針起訖端點 r .07 .09 間 + \ 中心藍圈 ; 時針 \ 顯示 藍色時針 : 框 ( v -- 框 ) x y * .001 > * \ 右下黑 x 反 y * .001 > * \ 左下黑 x y 反 * .001 > * \ 右上黑 x 反 y 反 * .001 > * \ 左上黑 ; .5 框 \ 亮度 .5 \ 藍色盤面 \\\\\\\\\\\\\\\\\\\ .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 洞 1 框
時鐘
陳爽
'25 Jul 11
\ 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 Jul 11
: 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 Jul 11
: 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 Jul 11
\ 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
\ : 波 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: ⚊ 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 Jul 11
\ 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 Jul 11
: 道 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 Jul 11
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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
: 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 Jul 11
\ 紅隨 xy乘方 重複變 20150914 陳爽 x y ** \ 紅光隨 xy乘方 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy乘方 重複變
科科
'25 Jul 11
\ 紅隨 xy餘 重複變 20150914 陳爽 x y mod \ 紅光隨 xy除 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy餘 重複變
科科
'25 Jul 11
\ 紅隨 xy除 重複變 20150914 陳爽 x y / \ 紅光隨 xy除 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy除 重複變
科科
'25 Jul 11
\ 紅隨 xy減 重複變 20150914 陳爽 x y - \ 紅光亮度隨反對角線方向變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
紅隨 xy減 重複變
陳爽
'25 Jul 11
Next