Haiku Gallery
y \ 紅光亮度橫向線性變化 從 0 到 1
紅隨y變化
科科
'25 Jul 04
x \ 紅光亮度橫向線性變化 從 0 到 1
紅隨x變化
科科
'25 Jul 04
.6 \ 紅 .6 \ 綠 .6 \ 藍
灰
科科
'25 Jul 04
1 \ 紅 .5 \ 綠 0 \ 藍
橘
科科
'25 Jul 04
.5 \ 紅 .5 \ 綠 0 \ 藍
橘
科科
'25 Jul 04
.5 \ 紅 0 \ 綠 0 \ 藍
褐
科科
'25 Jul 04
0 \ 紅 0 \ 綠 0 \ 藍
黑
科科
'25 Jul 04
1 \ 紅 1 \ 綠 1 \ 藍
白
科科
'25 Jul 04
0 \ 紅 1 \ 綠 1 \ 藍
青
科科
'25 Jul 04
1 \ 紅 0 \ 綠 1 \ 藍
紫
科科
'25 Jul 04
1 \ 紅 1 \ 綠 0 \ 藍
黃
科科
'25 Jul 04
1 \ 紅 0 \ 綠 0 \ 藍
紅
科科
'25 Jul 04
0 \ 紅 0 \ 綠 1 \ 藍
藍
科科
'25 Jul 04
0 \ 紅 1 \ 綠
綠
科科
'25 Jul 04
\ wind tunnel 風洞 : x x 2 * ; \ x 從 0 到 1 變成 從 0 到 2 : y y 2 * ; \ y 從 0 到 1 變成 從 0 到 2 : x x 1 - ; \ x 從 0 到 2 變成 從 -1 到 1 : y y 1 - ; \ y 從 0 到 2 變成 從 -1 到 1 : r x x * y y * + sqrt ; \ x,y 到原點的距離 : 度 pi 180 / * ; \ 角度轉徑度 : 反 1 min 1 swap - ; \ 亮度反轉 : a y x atan2 ; \ x,y 角度 從 -180 到 180 r 1 < \ 半徑 1 紅圓 r .25 > and \ 半徑 .25 圓洞, 變紅圈 .75 寬 r 1 8 / mod .1 > and \ 8 紅圈 .025 寬 r .25 > r .375 < and or \ 另 紅圈 .125 寬 : a a t 360 mod 度 + ; \ 角度每秒偏轉 1 a 360 度 9 / mod 6 度 < \ 9 放射線, 6 度寬 r .25 > and \ 綠方圓洞 r .25 > r .375 < and or \ 另 綠圈 .125 寬 r .375 < \ 半徑 .375 藍圓 r 1 < \ 半徑 1 圓洞內 透視度 1 r t 4 * cos 2 / 2 + pow * \ 透視中心 0 外圍 1
wind tunnel
陳爽
'25 Jul 04
: br 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 pi 6 / + dup push \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop pop swap push > or pop ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1732 mod - swap x .10 mod - br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .0866 - .1732 mod .0866 + - swap x .05 - .10 mod .05 + - br ; : same 0.06 pi 3 / 6 ; : segments 2dup pi -0.166 * < and push 2dup pi 0.5 * > and push dup pi -0.166 * > swap pi 0.5 * < and and pop pop ; : cubes same 0.05 0.0666 b1 segments same 0.1 0.15 b2 segments push push push rot pop or rot pop or rot pop or ; cubes
Cubes from US flag
Ting
'25 Jul 04
x t 5 mod * 2 * pi * sin 2 / x t 10 mod * 2 * pi * sin 4 / dup y 0.35 - > swap y 0.345 - < and x t 3 mod * 8 * pi * sin 8 / dup y 0.55 - > swap y 0.545 - < and
sine wave
呂明貴
'25 Jul 04
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave ( Visualization of f[x,y] ) ( Multiple viewport ) ( Animation ) : n 1 + 2 / ; : ^2 dup * ; : ^3 dup dup * * ; : c+ ( a b c d e f - a+d b+e c+f ) rot >r z+ rot r> + -rot ; : c*k ( a b c k - ka kb kc ) 0 over >r z* rot r> * -rot ; : clip 0 max 1 min ; : xy x y -.5 -.5 z+ ; : item ( x - d x' ) dup 256 mod 256 / swap 256 / floor ; : color ( x - r g b ) 16777216 * floor item item item drop ; : pack-color ( r g b - .f ) 256 * + 256 * + 256 * 16777618 / ; : fix8 ( x - x' ) 256 * floor 256 / ; : banana ( x y - ) over ^2 - ^2 100 * 1 swap - ^2 + ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; : cells ( x y - f ) sin swap sin * 1 + 2 / ; : astroida ( x y R - f ) 0.6667 ** swap .6667 ** - swap .6667 ** - negate ; : heart ( x y - f ) 2dup ^2 swap ^3 + 1 - ^3 -rot ^3 swap ^2 * - ; ( astroida ) xy .25 -.25 z+ 25 0 z* 1 astroida t 2 * sin .4 * + clip rainbow x .5 < y .5 > * c*k ( cells ) xy 25 0 z* cells rainbow x .5 < y .5 < * c*k c+ ( banana ) xy -.25 -.1 z+ 4 0 z* banana t sin + clip rainbow x .5 > y .5 > * c*k c+ ( cardioida heart ? ) xy -.22 .25 z+ 10 0 z* heart 3 ** abs t sin + rainbow x .5 > y .5 < * c*k c+
Surfaces MultiViews waves
DarkstarAG
'25 Jul 04
\ {{ Add a wave by DarkstarAG : x x t sin 3 / + ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave : ^2 dup * ; : ^3 dup ^2 * ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; : ' .5 - ^2 100 * ; x ' y ' x ' 1 y - sqrt t 4 / 6.6 + cos 13 * sin * ^3 ' negate z* + t cos 1 + 3 / * -1.1 pow rainbow
Alien Biomorph 2 waves
DarkstarAG
'25 Jul 04
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave : dist y - dup * swap x - dup * + sqrt ; : white dup dup ; 0.5 0.5 dist t sin 2 + 35 * * t 10 * t sin 10 * + 2 pi * mod + x 0.5 - y 0.5 - atan2 + sin white
Breathing Spiral waves
DarkstarAG
'25 Jul 04
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave : n 5 ; \ number of spikes : alpha pi 10 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 0.24 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; : ^2 dup * ; : circle ( x y r - ) >r y - ^2 >r x - ^2 r> + sqrt r> < ; 0.5 0.5 0.375 circle 0.5 0.5 0.37 circle - 0.5 0.5 0.362 circle 0.5 0.5 0.331 circle - or 0.5 0.5 0.324 circle 0.5 0.5 0.32 circle - or 0.5 0.5 0.315 circle + b r > 0
Vietnam Gold Star waves
DarkstarAG
'25 Jul 04
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave \ 中秋月朦朧 : x x .5 - ; : y y .5 - ; \ 座標原點移到中心 : r x x * y y * + sqrt ; \ x,y 點對應的 r 1 r - \ 中心亮 (值為 1) 外圍暗 (值為 0 及 負) 1.4 * \ 設定大小 (2 為全圓) 15 t 3 * sin 3 * - \ 動態值 (變化從 10 到 20) pow dup .8 * \ 紅+綠＝黃 月 .3 \ 藍天
moon festival waves
DarkstarAG
'25 Jul 04
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + .1 + ; \ }} Add a wave : n 6 ; \ number of spikes : alpha pi 3 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 0.3 ; : theta x x0 - y y0 - atan2 pi 6 / + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; b r > push r@ theta pi -0.166 * < and r@ theta pi 0.5 * > and pop theta pi 0.5 * < and theta pi -0.166 * > and
Cube waves
DarkstarAG
'25 Jul 04
: x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + .1 + ; : br - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop > or ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1 mod - swap x .08 mod br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .05 - .1 mod .05 + - swap x .05 - .08 mod .05 + br ; : same 0.025 pi 10 / 5 ; : stars same 0.05 0.03 b1 .5 x > and .5 y < and same 0.09 0.08 b2 .45 x > and .55 y < and .05 x < and .95 y > and or ; stars y >r x 0.5 > r@ 6 13 / < or over or x 0.5 > r@ 6 13 / < or r@ 13 * 2 mod 1 > and rot or x 0.5 < r@ 6 13 / > and r@ 13 * 2 mod 1 > or r> drop
Flag of USA (Redux)
DarkstarAG
'25 Jul 04
: x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + .1 + ; : br - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop > or ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1 mod - swap x .08 mod br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .05 - .1 mod .05 + - swap x .05 - .08 mod .05 + br ; : same 0.025 pi 10 / 5 ; : stars same 0.05 0.03 b1 .5 x > and .5 y < and same 0.09 0.08 b2 .45 x > and .55 y < and .05 x < and .95 y > and or ; stars y >r x 0.5 > r@ 6 13 / < or over or x 0.5 > r@ 6 13 / < or r@ 13 * 2 mod 1 > and rot or x 0.5 < r@ 6 13 / > and r@ 13 * 2 mod 1 > or r> drop
Flag of USA (aMIRedux) Redux
Anonymous
'25 Jul 04
: x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod + 30 * 1 cos * cos 40 / y + .1 + ; : br - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop > or ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1 mod - swap x .08 mod br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .05 - .1 mod .05 + - swap x .05 - .08 mod .05 + br ; : same 0.025 pi 10 / 5 ; : stars same 0.05 0.03 b1 .5 x > and .5 y < and same 0.09 0.08 b2 .45 x > and .55 y < and .05 x < and .95 y > and or ; stars y >r x 0.5 > r@ 6 13 / < or over or x 0.5 > r@ 6 13 / < or r@ 13 * 2 mod 1 > and rot or x 0.5 < r@ 6 13 / > and r@ 13 * 2 mod 1 > or r> drop
Flag of USA (aMIRedux)
DarkstarAG
'25 Jul 04
: n 6 ; \ number of spikes : alpha pi 3 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 0.3 ; : theta x x0 - y y0 - atan2 pi 6 / + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; b r > push r@ theta pi -0.166 * < and r@ theta pi 0.5 * > and pop theta pi 0.5 * < and theta pi -0.166 * > and
Cube from a star
Ting
'25 Jul 04
: br - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 t + \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop > or ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1 mod - swap x .08 mod br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .05 - .1 mod .05 + - swap x .05 - .08 mod .05 + br ; : same 0.025 pi 10 / 5 ; : stars same 0.05 0.03 b1 .5 x > and .5 y < and same 0.09 0.08 b2 .45 x > and .55 y < and .05 x < and .95 y > and or ; stars x 0.5 > y 6 13 / < or over or x 0.5 > y 6 13 / < or y 13 * t + 2 mod 1 > and rot or x 0.5 < y 6 13 / > and y 13 * t + 2 mod 1 > or
Flag of USA - 50 stars Redux
Anonymous
'25 Jul 04
X 8 PI * * SIN Y 8 PI * * SIN / Y / DUP DUP
Chess
Camiel Vanderhoeven
'25 Jul 04
x pi + dup y x x * * / x sqrt y
Untitled
Anonymous
'25 Jul 04
\ 中秋月朦朧 : x x .5 - ; : y y .5 - ; \ 座標原點移到中心 : r x x * y y * + sqrt ; \ x,y 點對應的 r 1 r - \ 中心亮 (值為 1) 外圍暗 (值為 0 及 負) 1.4 * \ 設定大小 (2 為全圓) 15 t 3 * sin 3 * - \ 動態值 (變化從 10 到 20) pow dup .8 * \ 紅+綠＝黃 月 .3 \ 藍天
moon festival
陳爽
'25 Jul 04
: n 8 ; \ n 為 立方柱 的 數目 : q 1 n / 2 * mod 1 n / > ; : y' y 1.75 * ; : x' x 2 * ; : 反 x y' + q ; : 斜 x y' - q ; : 菱 反 斜 and ; : 豎 x' q ; 菱 斜 not 豎 and 反 not 豎 not and
Cubes Redux
陳爽
'25 Jul 04
: n 6 ; ( n Columns ) : a 1 n / ; : q a 2 * mod a > ; x y 1.75 * + q x y 1.75 * - q 2dup and -rot x 2 * q push not r@ and swap not pop not and
Cubes Redux
陳爽
'25 Jul 04
: br - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop > or ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1 mod - swap x .08 mod br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .05 - .1 mod .05 + - swap x .05 - .08 mod .05 + br ; : same 0.025 pi 10 / 5 ; : stars same 0.05 0.03 b1 .5 x > and .5 y < and same 0.09 0.08 b2 .45 x > and .55 y < and .05 x < and .95 y > and or ; stars x 0.5 > y 6 13 / < or over or x 0.5 > y 6 13 / < or y 13 * 2 mod 1 > and rot or x 0.5 < y 6 13 / > and y 13 * 2 mod 1 > or
Flag of USA - 50 stars
Ting
'25 Jul 04
: br - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos r@ sin * over sin pop cos * + push sin * pop / pop > or ; : b1 \ flag r0 alpha n x0 y0 -- flag' y .1 mod - swap x .1 mod br ; : b2 \ flag r0 alpha n x0 y0 -- flag' y .05 - .1 mod .05 + - swap x .05 - .1 mod .05 + br ; : same 0.03 pi 10 / 5 ; : stars same 0.05 0.03 b1 .5 x > and .5 y < and same 0.1 0.08 b2 .45 x > and .55 y < and .05 x < and .95 y > and or ; stars x 0.5 > y 6 13 / < or over or x 0.5 > y 6 13 / < or y 13 * 2 mod 1 > and rot or x 0.5 < y 6 13 / > and y 13 * 2 mod 1 > or
Flag of USA
BradN w/ much help from Ting
'25 Jul 04
x y 1.73 * + 16 * 8 mod 4 > x y 1.73 * - 16 * 8 mod 4 > 2dup and -rot \ red x 32 * 8 mod 4 > push not r@ and swap not pop not and x 16 *
Cubes
Ting
'25 Jul 04
: coloring t + dup 2 mod 1 < swap dup 4 mod 2 < swap 8 mod 4 < ; : z^2 2dup z* ; : len dup * swap dup * + ; : layer push push push z^2 pop pop 2dup push push z+ 2dup len 4 < pop pop rot pop + ; 0 0 y 0.8 - 2.5 * x 0.5 - 2.5 * 0 layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer layer push drop drop drop drop pop coloring
Mandelbrot Plot Redux Redux
Ting
'25 Jul 04
: c ( -- x y ) 0.3 y - x 0.5 - ; : r ( -- r ) c 1.5 ** swap 2.3 ** + sqrt 1 swap - ; : a c sqrt swap atan2 pi / ; r t 3 / sin a * r * a 7 * * * sin 2 ** r t 5 / sin a * r * r 9 * * * sin 2 ** r t 7 / sin a * r 11 * * * sin 2 **
mother of color
fnord
'25 Jul 04
: b \ r0 alpha n x0 y0 -- flag y - swap x - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 pi 32 / + \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos pop dup push sin * over sin pop cos * + push sin * pop / pop > ; : star1 0.12 pi 32 / 24 0.5 0.5 b ; : circle x 0.5 - dup * y 0.5 - dup * + sqrt dup push 0.12 < pop 0.15 > or ; circle star1 not and y 0.33 > over and swap y 0.33 > y 0.66 < and
Flag of India Redux
Ting
'25 Jul 04
: b \ r0 alpha n x0 y0 -- flag y - swap x - 2dup dup * swap dup * + sqrt push \ sqrt((x0-x)**2+(y0-y)**2) swap atan2 pi 32 / + \ theta over pi swap / 2 * mod pi rot / - abs push \ beta dup cos pop dup push sin * over sin pop cos * + push sin * pop / pop > ; : star1 0.12 pi 32 / 24 0.5 0.5 b ; : circle x 0.5 - dup * y 0.5 - dup * + sqrt dup push 0.12 < pop 0.15 > or ; circle star1 not and y 0.33 > over and y 0.66 < rot and y 0.33 > y 0.66 < and
Flag of India
Ting
'25 Jul 04
Next