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