Haiku Gallery
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 + pop + t + 100 + tan ; x y spiral x y spiral x y spiral
資傳三B 康芸瑄
Anonymous
'25 Sep 14
x 50 - ramdom y 50 - * 10 t * t + cos 10
閃爍
Anonymous
'25 Sep 14
: y y 1 - ; : y y 0.5 - ; : y y 1 - ; -1 x x / y y * - y x atan2 t * 20 * abs 2.5 pi * mod 6pi - 0.9 *
雜訊
林昇諺
'25 Sep 14
: y y 1 - ; : y y 0.5 - ; : y y 1 - ; -1 x x / y y * - y x atan2 t * 20 * abs 2.5 pi * mod 6pi - 0.9 *
雜訊
林昇諺
'25 Sep 14
: y y 1 - ; : y y 0.5 - ; : y y 1 - ; -1 x x / y y * - y x atan2 t * 20 * abs 2.5 pi * mod 6pi - 0.9 *
雜訊
林昇諺
'25 Sep 14
: s * cos * ; 10 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux Redux
蘇家平
'25 Sep 14
\ Rotation Prefix : x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + ; : x a t - sin r * ; : y a t - sin r * ; x t + y + pi * 2 * tan 0 > dup dup
箭靶
410227802
'25 Sep 14
x q y q + t sin - 2 mod
Untitled
賴鈺婷
'25 Sep 14
x .5 - dup * y 777 - * t * t + tan
blood
古家騏
'25 Sep 14
t 405.1 * cos t 1023.4 * sin * t 1003.4 * sin + t 1 mod negate 2 * exp * audio .8 t pi * 2 * sin .1 * + x - y / dup y - dup x -
漸層
蘇家平
'25 Sep 14
: k t + random + ; : mx random 0.7 * ; : my random ; mx my * dup mx my *
星空
陳佳騰
'25 Sep 14
🎮 ▶ * 👎 👍 : x' x 0.5 - .5 mx - + ; : y' y 0.5 - .5 my - + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup
Untitled
Anonymous
'25 Sep 14
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 q a w s e d r f c v h n 1 1 1 1 1 1 1 1 1 1 1 1 2 3 4 5 6 7 8 9 0 1 2 ) x 12 * button y * x 12 * 1 mod x 12 * 2 + 2 mod dup dup 14000 * t sin * 1000 / sin t 3000 * t 4 * cos * 1000 / sin * * audio
按鍵互動3 Redux
Anonymous
'25 Sep 14
: ebr 0.3 ; : ebbr 0.15 ; : ct 0.5 ; : es 0.08 ; : mr es ebr + ; : xs ct mx - ; : ys ct my - ; : xys xs 2 ** ys 2 ** + sqrt ; : lxs xys mr > if mr xs * xys / else xs then ; : lys xys mr > if mr ys * xys / else ys then ; : lxys lxs 2 ** lys 2 ** + sqrt ; : lx xys mr > if ct lxs - else mx then ; : ly xys mr > if ct lys - else my then ; : el ebbr es + ; : p mr 2 ** lxys 2 ** - sqrt ; : cpi p el * mr / ; : cp cpi 0 < if 0 else cpi then ; : px ct lxs el * mr / - ; : py ct lys el * mr / - ; : bv x ct - 2 ** y ct - 2 ** + sqrt ; : xyv ct x - 2 ** ct y - 2 ** + sqrt ; : ibp ebr 2 ** bv 2 ** - sqrt ; : bp xyv ebr > if 0 else ibp then ; : bb ebbr y py - 2 ** x px - 2 ** + sqrt - ; : lbb bb 0 < if 0 else bb then ; : bbh lbb cp + 0 + ; : lbbh lbb 0 > if bbh else 0 then ; : lbba bbh bp >= if lbbh else 0 then ; : ir lbba bp + ; : pr ir 0 >= if 0.5 else 0 then ; : rd pr ir + ; lbba 0.5 * bp 2 * +
eye
資工4B--410125864
'25 Sep 14
: ebr 0.3 ; : ebbr 0.15 ; : ct 0.5 ; : es 0.08 ; : mr es ebr + ; : xs ct mx - ; : ys ct my - ; : xys xs 2 ** ys 2 ** + sqrt ; : lxs xys mr > if mr xs * xys / else xs then ; : lys xys mr > if mr ys * xys / else ys then ; : lxys lxs 2 ** lys 2 ** + sqrt ; : lx xys mr > if ct lxs - else mx then ; : ly xys mr > if ct lys - else my then ; : el ebbr es + ; : p mr 2 ** lxys 2 ** - sqrt ; : cpi p el * mr / ; : cp cpi 0 < if 0 else cpi then ; : px ct lxs el * mr / - ; : py ct lys el * mr / - ; : bv x ct - 2 ** y ct - 2 ** + sqrt ; : xyv ct x - 2 ** ct y - 2 ** + sqrt ; : ibp ebr 2 ** bv 2 ** - sqrt ; : bp xyv ebr > if 0 else ibp then ; : bb ebbr y py - 2 ** x px - 2 ** + sqrt - ; : lbb bb 0 < if 0 else bb then ; : bbh lbb cp + 0 + ; : lbbh lbb 0 > if bbh else 0 then ; : lbba bbh bp >= if lbbh else 0 then ; : ir lbba bp + ; : pr ir 0 >= if 0.5 else 0 then ; : rd pr ir + ; lbba 0.5 * bp 2 * +
eye
資工4B--410125864
'25 Sep 14
: x' x sin mx - ; : y' y sin my - ; : 格狀 x' y' + sqrt ; : xor + abs 2 mod ; \ 十字格線 : b / floor 2 mod ; \ 格線間距 : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 格狀 / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / 格狀 * dup dup tan *
穿越
陳佳騰
'25 Sep 14
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 q a w s e d r f c v h n 1 1 1 1 1 1 1 1 1 1 1 1 2 3 4 5 6 7 8 9 0 1 2 ) x 12 * button y * x 12 * 1 mod x 12 * 2 + 2 mod
按鍵互動3
410227111 賴瑩珊
'25 Sep 14
: x0 t cos 5 + 5 / ; : y0 t cos 3 - 5 / ; : x x 2 * 0.9 - ; : y y 2 * 0.7 - ; : a x x0 - y y0 - atan2 ; : x a t + x + ; : y a t + y + ; : club a x sin 10 * floor 2 mod + a y cos 10 * floor 2 mod + * ; club club + club + a + dup a + dup a +
color club Redux Redux
Anonymous
'25 Sep 14
: bar * 0.5 * sin + ; : barx x bar * 2 ; : bary y bar * 2 ; : foo 5 * t sin 50 barx 0 bary 5 * t sin 7 bary 11 barx 13 bary * atan2 1 * cos ; 1 foo 2 foo 10 foo
no title
林宏歷
'25 Sep 14
: r x 0.5 - 6 ** y 0.5 - 4 ** + ; : a push push y t pop * sin 0.5 ** - y t pop * sin 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 2.8 1.7 a sine sine 2.8 1.6 a sine sine
壞掉的電視
陳奕亨
'25 Sep 14
: ripple push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 ripple 1 x - y 10 ripple x 1 y - 10 ripple
Untitled
Anonymous
'25 Sep 14
t x + 9 * sin y / tan t y + 11 * sin x / cos t x y - + 5 * sin x y + / cos
哦哦哦
余柏翰
'25 Sep 14
: wave t 1 * x + + sin y 2 * 1 - - abs 1 swap - ; \ 設一個時間變數wave讓他恆為正數且到1時與0互換 t cos x y + 1 1 1 and x 1 and + wave t sin + wave
波光
410227226 資傳3A 陳侃胤
'25 Sep 14
x 256 * 128 - dup * y 256 * 128 - dup * + t 1 / - 2 * dup 2 * dup 2 * sin rot sin rot sin
萬花筒
陳睿穎
'25 Sep 14
: r x 0.5 - 0.25 ** y 0.5 - 1 ** + 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 Redux
Anonymous
'25 Sep 14
x 20 * tan y 20 * tan t 9 * tan * * dup t 10 * tan * dup t 12 * tan *
刷刷刷
余柏翰
'25 Sep 14
: p t 1.3 / sin 10 / y + .7 ; : m x t 5.5 / + * sin 2 over dup * - sqrt atan2 pi / 5 / y .2 - > + ; p - abs x .15 - abs + .03 < x .15 > * p < p .03 - > * x .15 > * + p - x .2 - + .1 > - 0 9.7 m 5.3 m 7.7 m .5 min .5 over -
飛機
陳冠安
'25 Sep 14
: x x .5 - ; : y 0 y .3 - - ; 1 .143 x x * y y * + sqrt 22 * t .7 * + sin x y atan2 4 ** t .33 * + sin - abs / - dup dup
Test
RenZong
'25 Sep 14
: c 0.5 - ; : s dup * ; : d x c s y c s + ; : cir d > swap d < and ; : draw dup 0.09 + cir ; t 30 mod 50 / draw x 90 * tan y 90 * tan t 5 * sin * * dup t 1 * tan * dup t 1 * tan *
擴散
李明儒
'25 Sep 14
: x x 0.5 - ; : y y 0.5 - ; : 中心x t sin tan 3 / ; : 中心y t sin cos 3 / .25 - ; \大圓 : r x 中心x - 2 ** y 中心y - 2 ** + sqrt ; \小圓 : r2 x 中心x .25 - .25 + - 2 ** y 中心y - 2 ** + sqrt ; r .5 < r2 .5 < r .5 < r .25 > and
翻滾的荷包蛋 Redux
Anonymous
'25 Sep 14
: x x 0.5 - ; : y y 0.5 - ; : 中心x t sin tan 3 / ; : 中心y t sin cos 3 / .25 - ; : r x 中心x - 2 ** y 中心y - 2 ** + sqrt ; : r2 x 中心x .25 - .25 + - 2 ** y 中心y - 2 ** + sqrt ; r .5 < r2 .5 < r .5 < r .25 > and
翻滾的荷包蛋
楊仁宗
'25 Sep 14
x t 50 mod * sin x * y 2 cos y * * + dup t y * tan * dup t sin mod
Untitled
陳詠舜
'25 Sep 14
: c t 0.01398413 + sin t -0.9132423 + tan ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 8 pi * * 0.2 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j jjjjjjjk drop drop ; julia 2 / dup dup
細胞分裂
沈光祈
'25 Sep 14
: d ( x n - d ) 2 swap ** / floor 2 mod ; : rotate dup sin swap cos z* ; x y t 3 / rotate 4 * 1 mod 8 * floor negate d
Untitled
410227470余奐均
'25 Sep 14
x y t sin 5 / 0.3 +
顏色
王建寰
'25 Sep 14
: d ( x n - d ) 2 swap ** / floor 2 mod ; : rotate dup sin swap cos z* ; x y t 3 / rotate 4 * 1 mod 8 * floor negate d
123
Anonymous
'25 Sep 14
: d ( x n - d ) 2 swap ** / floor 2 mod ; : rotate dup sin swap cos z* ; x y t 5 / rotate 6 * 1 mod 8 * floor negate d
Binary Carpet 2 Redux
Anonymous
'25 Sep 14
( f = sin[x/|y| — y/|x|] ) : k 20 ; : x' x .7 - k / ; : y' y .7 - k / ; : part ( x y - f ) abs / 2 pow ; : f ( k - q ) x' y' part y' x' part - t cos * * tan ; q 9 dup f t 8 mod f
Ummmmm Redux
陳申瑞
'25 Sep 14
\ 參考Eye - DarkstarAG \ 參考Up and to the Right haiku - adg \ 參考Audio 6 - Anonymous : sq t * cos 0 > ; 8 sq .8 * 4 sq .5 * + 2 sq .3 * + 1 sq .2 * + .1 + : ' .5 - 1 * ; : ^2 dup * ; : r^2 x ' ^2 y ' ^2 + ^2 ; r^2 dup y .5 - * 65 * cos swap 2< * : f 80 * floor 1 / ; x f y f max t cos abs mod
我呼嚨你
吳采霖33
'25 Sep 14
: :) t 4 * sin 4 pow 2 / + 12 / + ; : z- ( a ib c id - a-c i[b-d] ) -1 0 z* z+ ; : r ( x y - r ) over over negate z* + sqrt ; : c ( x y r - k ) >r x y z- r r> < ; 0.4 0.6 0.025 c 0.6 0.6 0.025 c or 0.5 0.5 0.25 c < 0.5 0.51 0.2 c 0.48 x 3 * cos :) 0.58 y 4 * sin :) y 4 * sin 35 / + 0.23 y :) c > : :) x t sin 3 / .5 + ; : :) y t cos 3 / .5 + ;
笑臉
黃芷涵
'25 Sep 14
Next