Haiku Gallery
: 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 - 暈 \ 透
圈 線 暈 板
陳爽
'24 Nov 26
\ : 波 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 正旋
正旋波
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: ⚊ 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
陳爽
'24 Nov 26
\ 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
陳爽
'24 Nov 26
: 道 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
'24 Nov 26
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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
\ 紅隨 xy乘方 重複變 20150914 陳爽 x y ** \ 紅光隨 xy乘方 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy乘方 重複變
科科
'24 Nov 26
\ 紅隨 xy餘 重複變 20150914 陳爽 x y mod \ 紅光隨 xy除 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy餘 重複變
科科
'24 Nov 26
\ 紅隨 xy除 重複變 20150914 陳爽 x y / \ 紅光隨 xy除 變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
\ 紅隨 xy除 重複變
科科
'24 Nov 26
\ 紅隨 xy減 重複變 20150914 陳爽 x y - \ 紅光亮度隨反對角線方向變化 從 0 增到 1 5 * 1 mod \ 重複變化 5 次
紅隨 xy減 重複變
陳爽
'24 Nov 26
x y * \ 紅光隨 xy* 從 0 到 1 重複變化 5 * 1 mod \ 紅光隨xy* 從 0 到 1 重複變化
紅隨xy*重複變
科科
'24 Nov 26
x y + \ 紅光隨對角線變化 從 0 漸增 \ 亮度 大於 1 視同 1 5 * 1 mod \ 紅光隨對角線方向 0 到 1 重複變化
紅隨對角線重複變
科科
'24 Nov 26
\ 好範例 : 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
'24 Nov 26
x y + \ 紅光隨對角線變化 從 0 漸增 \ 亮度 大於 1 視同 1 0 0 \ 綠 藍 亮度都為 0 (可不給這兩個 0)
紅隨對角線變
科科
'24 Nov 26
: 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 \ 藍
紅隨對角線變
科科
'24 Nov 26
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 x 5 pow \ 紅光隨 x 指數值 變化 從 1 到 0 到 1 0 \ 綠 0 \ 藍
紅隨 x 指數值變
科科
'24 Nov 26
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 x x * \ 紅光隨 x 平方值 變化 從 1 到 0 到 1 0 \ 綠 0 \ 藍
紅隨 x 平方值變
科科
'24 Nov 26
: x x .5 - ; \ 原點移到中間, x 值從 -.5 變到 .5 : x x 2 * ; \ x 放大, x 值從 -1 變到 1 x abs \ 紅光隨 x 絕對值 變化 從 1 到 0 到 1 0 \ 綠 0 \ 藍
紅隨 x 絕對值變
科科
'24 Nov 26
( Stop spamming stupid color squares! Use ms paint for it ! ) x y 1 x -
Stop Spamming Color Squares!
DarkstarAG
'24 Nov 26
/ 好範例 : 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
lua 輯
'24 Nov 26
1 x - \ 紅光亮度橫向線性變化 從 1 到 0 0 \ 綠 1 y - \ 藍光亮度縱向線性變化 從 1 到 0
紅藍交會變化
科科
'24 Nov 26
0 \ 紅 0 \ 綠 1 y - \ 藍光亮度縱向線性變化 從 1 到 0
藍隨x反向變化
科科
'24 Nov 26
0 \ 紅 0 \ 綠 1 x - \ 藍光亮度橫向線性變化 從 1 到 0
藍隨x反向變化
科科
'24 Nov 26
1 x - \ 紅光亮度橫向線性變化 從 1 到 0
紅隨x反向變化
科科
'24 Nov 26
1 y - \ 紅光亮度縱向線性變化 從 1 到 0
紅隨y反向變化
科科
'24 Nov 26
Next