Haiku Gallery
/ 好範例 : 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 Sep 15
1 x - \ 紅光亮度橫向線性變化 從 1 到 0 0 \ 綠 1 y - \ 藍光亮度縱向線性變化 從 1 到 0
紅藍交會變化
科科
'25 Sep 15
0 \ 紅 0 \ 綠 1 y - \ 藍光亮度縱向線性變化 從 1 到 0
藍隨x反向變化
科科
'25 Sep 15
0 \ 紅 0 \ 綠 1 x - \ 藍光亮度橫向線性變化 從 1 到 0
藍隨x反向變化
科科
'25 Sep 15
1 x - \ 紅光亮度橫向線性變化 從 1 到 0
紅隨x反向變化
科科
'25 Sep 15
1 y - \ 紅光亮度縱向線性變化 從 1 到 0
紅隨y反向變化
科科
'25 Sep 15
y \ 紅光亮度橫向線性變化 從 0 到 1
紅隨y變化
科科
'25 Sep 15
x \ 紅光亮度橫向線性變化 從 0 到 1
紅隨x變化
科科
'25 Sep 15
.6 \ 紅 .6 \ 綠 .6 \ 藍
灰
科科
'25 Sep 15
1 \ 紅 .5 \ 綠 0 \ 藍
橘
科科
'25 Sep 15
.5 \ 紅 .5 \ 綠 0 \ 藍
橘
科科
'25 Sep 15
.5 \ 紅 0 \ 綠 0 \ 藍
褐
科科
'25 Sep 15
0 \ 紅 0 \ 綠 0 \ 藍
黑
科科
'25 Sep 15
1 \ 紅 1 \ 綠 1 \ 藍
白
科科
'25 Sep 15
0 \ 紅 1 \ 綠 1 \ 藍
青
科科
'25 Sep 15
1 \ 紅 0 \ 綠 1 \ 藍
紫
科科
'25 Sep 15
1 \ 紅 1 \ 綠 0 \ 藍
黃
科科
'25 Sep 15
1 \ 紅 0 \ 綠 0 \ 藍
紅
科科
'25 Sep 15
0 \ 紅 0 \ 綠 1 \ 藍
藍
科科
'25 Sep 15
0 \ 紅 1 \ 綠
綠
科科
'25 Sep 15
\ 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 Sep 15
: 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 Sep 15
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 Sep 15
\ {{ 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 Sep 15
\ {{ 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 Sep 15
\ {{ 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 Sep 15
\ {{ 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 Sep 15
\ {{ 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 Sep 15
\ {{ 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
X 8 PI * * SIN Y 8 PI * * SIN / Y / DUP DUP
Chess
Camiel Vanderhoeven
'25 Sep 15
x pi + dup y x x * * / x sqrt y
Untitled
Anonymous
'25 Sep 15
\ 中秋月朦朧 : 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
Next