WORK OF ALL- 最遲必須在 1/17(日) po完整 !?

什麼!?

這........這不是真的吧........!?

~~~~~~~~~~~~~不要阿~~~~~~~~~~~~

WORK10- 應用 Key 整合判斷結構式 配合其它指令，創作有主題性的動態海報設計!?

圖片

名稱:流星!?快許願!!

說明:案下滑鼠會出現X，在不同位置按會有不同顏色的X

在畫的時候按下D鍵會重新。

程式碼圖片

影片檔!?

心得:其實這個作業看起來有點隨便做，可是想了很久，因為想結合之前得作業

所以就拿以前的作業程式碼改，後來很幸運的撿到了這個XD

這是改編"光之塔"那個作業的。

WORK9- 應用 判斷 same? notsame? 結構式 結合其它指令!?

圖片欣賞(!?)

這次的名字叫做 "百葉窗 "

(關於名稱，叫扇子好像也可以)

ㄧ開始事先劃線之後，再ㄧ頁一頁的折過去，不斷的循環

看影片比較有趣喔!

關於古代文明的原始碼(!?)

size 200 200
forever
{

Repeat B 0 200
{
pen <> 60 70
Same? B 0
{
line B 0 (B+200) 200
line B 0 (B+150) 200
line B 0 (B+100) 200
line B 0 (B+50) 200
line B 0 200 (B+50)
line B 0 200 (B+100)
line B 0 200 (B+150)
line B 0 200 (B+200)
}
} Repeat A 0 200
{
pen <> 90 80
notSame? B 100
{
Line A 0 A 200
line A 0 (A+200) 200
line A 0 (A+150) 200
line A 0 (A+100) 200
line A 0 (A+50) 200
line A 0 200 (A+50)
line A 0 200 (A+100)
line A 0 200 (A+150)
line A 0 200 (A+200)
}
}
}

有趣的影片(!?)

很瞎的心得:這個作業雖然我還是裡不清頭緒，被 山姆? 和 娜特姍姆? 當成笨蛋在玩耍

可是做出來的效果我還蠻喜歡的，希望我跟它們2人的友情可以更深入.....(噁)

PS.程式碼<>內請打上TIME4!

WORK8-互動媒體影片心得!?

影片中有提到許多國家都在研發與致力於互動媒體上，而這些國家也有很多團隊與設計師發明更多有趣的互動軟體。

看完影片後，上網看了一些資料，我發現有許多國家的互動媒體幾乎都在求新求變，動不動就要使用許多昂貴的高科技儀器；上課時，老師也說過，有許多機器在這時間很流行，但過了1年2年就被淘汰了，那花這麼多錢買儀器，不是很浪費嗎?

或許互動媒體是該走向人與人的互動，而不是電腦對人或人對電腦的ㄧ對一，但是但換個方面想，在人們對這件事情有興趣的同時，它是不是真的能到達互動的目的，還是只是好玩，一下子就膩了?如果能夠讓人欣賞或著不只是單純的互動，這樣的東西說不定會比較長久。
前面有提到我在網路搜尋了一些資料，發現最近的日本的ICC最近有個展覽，叫做Light Insight
這次的主題是"禪"。 內容就很符合我前面所說的，做互動媒體不ㄧ定要靠高科技儀器。

禪是種很奇妙的東西，簡單來說就是去"想"或著放空!?我也想不透會用什麼樣的東西來表現，但是他們卻不是使用最新的器材，而是簡單或基本的裝置來設計，有許多作品可能會讓人摸不著頭緒，但只要看作品簡介或著在作品前慢慢欣賞甚至感到好奇，就到達他們的目的"禪"，這些裝置會讓人感到好奇，不斷去想，或著欣賞，使觀者對裝置有互動，而且不會只是玩一下或著看一下就忘了。原來互動媒體不ㄧ定要使用高科技呀，只要讓欣賞的人對於裝置有印象或疑問，也可以達到一種互動的功能。
希望台灣的互動媒體也可以朝這方面發展，越來越好，加油吧!

參考資料:可以點我貼的Light Insight ，會連到官網喔。

WORK7-時間與滑鼠指令!?

什麼圖片!?..

這次的名稱叫做

-光之塔-

什麼程式碼!?

Load dbngraphics.dbn

size 400 400

paper 40 80 100

fast

command com x y h c r g b

{

pen r g b

line (x-c/2) (y+h) (x+c/2) (y-h)

line (y+h) (x-c/2) (y-h) (x+c/2)

}
forever

{

com (mouse 1) (mouse 2) 15 40 (mouse 1) (mouse 2) (65+((time 4)))

com (mouse 1) (mouse 2) 40 15 (mouse 1) (mouse 2) (65-((time 4)))

}

什麼影片!?

WORK6-自畫像與自由創作!?

啥麼!?自畫像........................

-原始碼-

size 400 400
forever

{

set [(mouse+2) (mouse+2)] (mouse+1)

set [(mouse-2) (mouse-2)] (mouse-1)

set [(mouse+1) (mouse+1)] (mouse+1)

set [(mouse-1) (mouse-1)] (mouse-1)

}

-影片-

抱歉這個沒有錄喔

-照片!?-


我沒臉見人阿~只能愁眉苦臉了ˊˋ

-------------------------------------------------------------------------------------------------

自由創作區

程式碼跟上面ㄧ樣喔

圖片在這

這是!?萌娜莉 殺的微笑嗎 XD

這是影片

work med-exam!?!!

要先放圖

還有影片

最後是

很長~~~~~~~~~~~~~~~~~~~~~的程式碼

load dbngraphics.dbn

size 500 500

paper 50 100 140

FAST
Repeat a 450 465

{

pen a 100 50

line 25 a 75 a

}
set M 60

repeat B 60 200

{

pen A 55 45

triangle M M (M+60) (M+160) B M

}
Repeat A 225 275

{

pen 0 10 40

line A 100 245 145

}

Repeat A 220 280

{

pen 0 10 50

line A 145 245 180

}

Repeat A 210 290

{

pen 0 10 60

line A 180 245 225

}

Repeat A 60 200

{

pen 80 50 50

line A 400 120 275

}

Repeat A 330 475

{

pen 180 80 40

line A 175 400 90

}
Repeat A 280 400

{

pen 180 80 90

line A 200 400 455

}

Repeat A 400 475

{

pen 40 110 60

line A 280 400 325

}
Repeat A 400 475

{

pen 80 50 50

line A 325 475 280

}

Repeat A 400 425

{

pen 130 100 80

line A 235 400 220

}
Repeat A 400 425

{

pen 80 50 40

line A 215 400 200

}
Repeat A 425 475

{

pen 70 30 30

line A 210 450 180

}
field 400 260 475 250 0

Repeat A 280 325

{

pen 180 40 40

line A 400 330 360

}
Repeat FF 290 330

{

pen 180 40 40

line FF 360 280 400

}
Repeat A 100 115
{

circle 400 0 A 100
}

repeat ff 10 30

{

circle 125 255 ff 100

}
Repeat A 60 80
{

circle 125 255 (A+5/2) 100
Repeat RR 0 30
{

circle 125 255 RR 100
}
}

應該可以自己加的感想

該說我不認真，還是我沒有天才的頭腦呢!?

程式這種東西似乎對很多人都很苦手呢!

只希望章魚哥分一點腦神經給我們，這樣我們每個人都可以變成"神人"!

作業也都可以做的很好了!!!

WORK5-流動的時間感!?

既然是要看會動的，小弟先放上影片

名稱:這是鑽石嗎?神經!?

這是程式碼

size 200 200
paper 50
forever

{

repeat y 0 200

{

pen

line y y 0 200
}
repeat a 0 200

{

pen

line 200 0 a a

}

}

這是圖片

註:也可以當玫瑰花啦，黃綠色的也可以是草叢，而且仔細看圖，裡面還有小花紋喔!!

WORK4-使用command square 結構綜合!?

請看圖

作品名稱:這次怎麼做這麼久?~阿呆

請看程式碼

load dbngraphics.dbn

size 300 300

fast
Repeat a 0 300

{

pen 80 (a*120)(a-50*2)

line 0 a 300 a

}
size 300 300
command box x y s p

{

pen (p/2) 80 50
circle (x+s) y (y/2) x
}

repeat A 10 0

{

repeat B 0 10

{

box ((A+A)*15) (10+(B+B)*15) (20*2) (20*B)

box ((B-B)/15) (10-(A-A)/15) (20/2) (20/A)

}

}

請看影片

WORK3-三原型!?

圖片

程式碼

load dbngraphics.dbn

paper 75

size 300 300

fast
repeat a 20 50

{

repeat b 150 750

{

pen 50 150 30

Circle 50 50 a (a+5)

Circle b (a+5) (b+5/2) a
pen b

Circle 300 300 a (a+5*2)
repeat a 0 40

{

Repeat A 0 50

{

triangle (b*5) 0 (b*5+25) a (b*6) 0}
}
}

}

影片檔

解說:名稱月蝕，原本是想把名字取成Q毛，後來還是作罷。

影片長約13分，想看海棉寶寶卡通的人不要點喔!

WORK2-Pattern!?

圖片

恩..中間的網狀線調是想表現"道路"，越往前走越崎嶇，就像人ㄧ樣，越長大要面對的事情就越多，旁邊像眼睛的線條就是目光，雖然我們總會被旁人影響，但也還是可以走出自己的路，道路盡頭的顏色是綠色，綠色有希望的意思，也是說不到最後ㄧ刻，不要輕易放棄。



-------------------------------這是分隔線--------------------------------------

程式碼

size 300 300

paper 0 30 0

fast
Repeat A 0 350

{

pen 50 (A+50) 80

line 0 (A*15-10) 300 A

line (A*6-10) 0 A 300

line (A*5-10) 0 A 300

}
Repeat B 0 350

{

Repeat A 50 150

{

pen B (B+150/2) 20
line 0 (B*10) (B*10) 250

line 0 (B*20) (B*20) 300

line 250 (B*20) (B*20) 0

line 300 (B*20) (B*20) 0

}

}

------------------------------ 還是分隔線--------------------------------------

影片

其實這個作業還是花了我不少時間，我果真還是對要打程式的東西不熟。

------------------------------ 又是分隔線--------------------------------------

新發售!!

NEW-PATTERN

圖片

程式碼

size 400 400
paper 0size 400 400paper 0
fast
Command paperc rref gref bref{set r (rref*20/255)set g (gref*20/255)set b (bref*20/255)

paper r g b}
size 400 400paperc 50 150 255
Command compare xref yref{smaller? xref 7{smaller? yref 7{pen (((14-xref)*(14-yref)*5/6)-12)}notsmaller? yref 7{pen (((14-xref)*yref*5/6)-12)}}notsmaller? xref 7{smaller? yref 7{pen ((xref*(14-yref)*5/6)-12)}notsmaller? yref 7{pen ((xref*yref*5/6)-12)}}}


Repeat x 1 25{Repeat y 1 25{
compare x y
set L (30*x-20)set B (30*y-20)set R (30*x)set T (30*y)set U 3
line L B R Bline R B R Tline R T L Tline L T L B

}}
Repeat A 2 350{ pen 50 (A+50) 80line 0 (A*15-10) 300 Aline (A*6-10) 0 A 300line (A*5-10) 0 A 300}
Repeat B 1 350{ Repeat A 5 150{pen B (B+150) 20
line 0 (B*10) (B*10) 250 line 0 (B*20) (B*20) 300line 250 (B*20) (B*20) 0line 300 (B*20) (B*20) 0
}}

(請原諒我不分割程式碼)

影片

WORK1-名字作業!?

這是名字的作業，好難= =+

以下為原始碼:
size 375 375paper 30 30 30
pen 120 120 120line 100 175 100 325
line 75 300 200 300line 100 175 75 225
line 75 225 100 300pen 100 100 100
line 200 300 200 175line 150 225 175 275
line 150 225 200 175
line 175 275 175 200
line 100 300 125 250
pen 80 80 80
line 200 175 250 175
line 200 275 275 275
line 275 275 200 175
line 200 225 325 225
line 325 225 275 175
line 275 175 250 225
pen 60 60 60
line 200 175 200 125
line 200 125 250 175
line 250 175 250 125
line 200 125 250 125
pen 50 50 50
line 100 175 125 225
line 75 175 175 175
line 100 175 100 100
line 80 150 175 150
line 80 125 175 125
line 150 175 150 100
line 150 100 130 110
line 175 175 175 100
line 175 100 160 110
pen 30 30 30
line 110 125 125 125
line 110 150 125 150