Haiku Gallery
: m .8 - +5 / ; .3 x m pi * t 2 / + tan y m + t 2 * + tan .6 * + .6 y m pi / t 4 / + tan x m + t 9 - - tan .2 * + - dup negate log dup 4 ** 10 / swap negate
Untitled
陳庭誼
'25 May 08
t x + 10 * sin y / tan t y + 11 * sin x / cos t x y - + 5 * sin x y + / cos
我要過 Redux
410227886
'25 May 08
0 4 x .5 - 30 ** y .5 - 10 ** + .05 ** dup -rot / t dup floor - pi * 2 * + tan over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .3
Untitled
蔡宛渝
'25 May 08
: m .8 - +5 / ; .3 x m pi * t 2 / + tan y m + t 2 * + tan .6 * + .6 y m pi / t 4 / + tan x m + t 9 - - tan .2 * + - dup negate log dup 4 ** 10 / swap negate
Untitled
蔡宛渝
'25 May 08
x 9 * tan y 20 * sin t 20 * sin * * dup t 9 * sin *
李亞芸
'25 May 08
: wifi push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 wifi 1 x - y 10 wifi x 1 y - 10 wifi
RGB
林冠儒
'25 May 08
t x + 9 * sin y / tan t y + 11 * sin x / cos t x y - + 5 * sin x y + / cos
我要過
陳彥廷
'25 May 08
( color scheme: QuickBasic and MSX2 memories ) 0 5 x .5 - 10 ** y .5 - 10 ** + .05 ** dup -rot / t dup floor - pi * -1 * + sin over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .9
Square Tunnel back
410227886
'25 May 08
: 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 dup x * over y *
彩色風車
陳天愛
'25 May 08
: ripple push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 ripple 1 x - 1 y - 10 ripple + 1 x - y 10 ripple 1 x - 1 y - 10 ripple 2 / + x 1 y - 10 ripple
彩色波紋
陳天愛
'25 May 08
: ripple push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 ripple 1 x - y 10 ripple x 1 y - 10 ripple 1 x - 1 y - 10 ripple
好玩
miemie
'25 May 08
: 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 dup x * over y *
資傳三B 康芸瑄 Redux
陳天愛
'25 May 08
: s * sin * ; 3 x 15 s y 15 s t 3 s dup x * over y *
Untitled Redux Redux
miemie
'25 May 08
: s .21 ; : c t * 1 mod 2 s - * 1 s - - dup 0 > 2 * 1 - * 0.01 + ; : x c 1 s 2 * - * s + x - ; : y c 1 s 2 * - * s + y - ; : r x dup * swap y dup * + sqrt ; : b r s < ; .25 .33 b .1 .3 b .2 .44 b
rgb Redux
miemie
'25 May 08
: c 0.5 - ; : s dup * ; : d x c s y c s + ; : cir d > swap d < and ; : draw dup 0.09 + cir ; t 10 mod 20 / draw x 90 * tan y 90 * tan t 5 * sin * * dup t 1 * tan * dup t 1 * tan *
擴散
李明儒
'25 May 08
: s * sin * ; 3 x 15 s y 15 s t 3 s dup dup
Untitled Redux Redux
sophie
'25 May 08
: 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 x * over y *
Test Redux
sophie
'25 May 08
\ 參考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 May 08
: s * sin * ; 3 x 15 s y 15 s t 3 s dup t 3 s dup t 15 s
Untitled Redux
蘇家平
'25 May 08
: 閃耀星星 >r 1024 / 1 swap - y - abs swap 1024 / x - abs + 20 * 0.3 ** r> ** 1 - negate 20 * t 10 * x y + 10 * + sin 1.5 + 3 / * ; : ! max ; : c 256 / * ; : 雨從天降 x .5 - dup * y .0 - dup * + sqrt ; : 閃亮晶晶 x y ** 90 * sin t sqrt 100 / * 40 swap * dup swap floor - 1000 * 999 - 0 max ; : g dup x pi * * cos abs .992 > swap y pi * * cos abs .992 > or ; 19 g : f ( n y -- ) swap 2dup 19 / > -rot 1 + 19 / < and ; : h ( y -- ) y f or ; 0 h 18 h : v ( x -- ) x f or ; 0 v 18 v : p ( x y -- ) y f swap x f and or ; \ 3 5 p : 橫 ( x y n -- ) swap ( x n y ) y over 19 / > ( x n y f ) y rot 1 + 19 / < and ( x n f ) -rot ( x f n ) >r ( f x ) x over 19 / > ( f x f ) x rot r> + 19 / < ( f f f ) and and or ; : 直 ( x y n -- ) rot ( y n x ) x over 19 / > ( y n x f ) x rot 1 + 19 / < and ( y n f ) -rot ( y f n ) >r ( f y ) y over 19 / > ( f x f ) y rot r> + 19 / < ( f f f ) and and or ; : 城城是你 2 6 3 橫 2 8 3 橫 3 6 4 直 6 4 1 直 7 11 9 橫 7 8 3 橫 7 4 8 直 10 6 3 直 13 4 10 直 14 4 1 橫 15 13 1 橫 12 6 1 橫 14 6 1 橫 ; 0 城城是你 閃亮晶晶 ( 閃耀星星的亮點 ) 0 320 160 .1 閃耀星星 250 c ! 590 520 .1 閃耀星星 250 c ! 100 700 .1 閃耀星星 250 c ! 880 270 .1 閃耀星星 250 c ! 820 800 .1 閃耀星星 250 c ! + + dup rot t sin 5 / 0.9 + y t + x 0.2 + mod - ( Reference from Orion Blink , chinese 中 , 彩虹雨 , 星際透視鐘 )
雨中漫步見金城
CSIE105A 410125791 sheep
'25 May 08
x 50 - dup * y 70 - * 10 t * t + cos 10
閃爍
陳璟毓
'25 May 08
\ 參考自彩虹雨 part 2 - 黃綺萱 \ 及星際透視鐘 - 陳爽 : 繁星 x y ** 900 * sin t sqrt 100 / * 31 swap * dup swap floor - 1000 * 999 - 0 max ; : r y dup * x x * + 3 ** ; \ 彩虹半徑 r 0.6 繁星 + < r 0.5 繁星 - > r 0.35 繁星 + < r 0.3 繁星 + > and or and r 0.55 繁星 t * + < r 0.4 繁星 + > and r 0.45 繁星 + < r 0.3 繁星 + > 繁星 + and
彩虹她懂得夜的黑 Redux
SOPHIE
'25 May 08
: 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 May 08
x 50 - ramdom y 50 - * 10 t * t + cos 10
閃爍
Anonymous
'25 May 08
: 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 May 08
: 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 May 08
: 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 May 08
: s * cos * ; 10 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux Redux
蘇家平
'25 May 08
\ 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 May 08
x q y q + t sin - 2 mod
Untitled
賴鈺婷
'25 May 08
x .5 - dup * y 777 - * t * t + tan
blood
古家騏
'25 May 08
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 May 08
: k t + random + ; : mx random 0.7 * ; : my random ; mx my * dup mx my *
星空
陳佳騰
'25 May 08
🎮 ▶ * 👎 👍 : 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 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 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 May 08
: 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 May 08
: 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 May 08
: 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 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 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 May 08
: 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 May 08
Next