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