作業十: 應用 Key 整合判斷結構式 配合其它的指令--> 創作具有主題性的動態海報設計

影片：

程式碼：
//載入字母函式庫
load dbnletters.dbn

size 400 400
fast
paper 100

//設計一個檢查按下哪一個按鍵的功能
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{

//設定字母顏色
pen (/2) (/2)

//依據所按的字母來畫圖
set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}

作業九: 應用 判斷 same? notsame? 結構式 配合其它的指令創作

主題：錯視

圖：



影片：



程式碼：
size 200 200
Paper 0

Pen 100
repeat A 200 0
{
Same? A 25
{
line 25 A A A
}
Notsame? A 110
{
line A A A 90
line A A A 110
}
}

Pen 50
repeat A 0 200
{
Same? A 25
{
line 20 A A A
}
Notsame? A 110
{
line A A A 90
line A A A 110
}
}
pen 0
line 90 90 90 125

作業八: po 個人心得300字

在上完這堂課後才知道原來早在1979年的奧地利林茲已經開始了數位多媒體活動，林茲電子藝術中心(ARS)更是目前全球知名的數位科技藝術館，許多有重要代表性的作品也收藏於此。
說真的我實在是很佩服那些帶頭領導新潮流的人，有那樣大的遠見和抱負。且比別人早知道未來的趨勢是什麼、未來流行些什麼，真的是令人欽佩啊！
目前台灣的多媒體總是落後西方國家許多年，資訊和資源也不比外國豐富，往往在台灣剛流行的東西在國外早就過時了，因此發展的速度也十分的有限。我們要如何才能趕上國外的速度實在是需要好好的檢討啊！

作業七: 應用 Mouse-1-2-3 配合Time 4 --> 創作

圖：

影片：

程式碼：
size 400 400
paper 100
fast
command rect x y z h c
{
pen 80 40
line (x-z/4) (y+h/4) (x-z/4) (y-h/4)
line (x+z/2) (y+h/2) (x-z/2) (y+h)
line (x+z/2) (y-h) (x+z/2) (y+h/2) }
forever
{
rect 20 40
}

作業六: 應用 Mouse-paint-->「自畫像」&「自由創作」 各一幅

自畫像：
圖：

影片：

程式碼：
size 400 400
paper 20
paper 20 50 90
Forever
{
set
[ ] 100
}


自由創作「咖啡杯」：
參考圖：

圖：

影片：

程式碼：
size 400 400
paper 20
paper 20 50 90
Forever
{
set [ ] 100
}

作業五：Time,Foever,Refresh應用

圖：


程式碼：
size 200 200 paper 20 forever { paper 100 set s4 //----------------------------上 field 50 0 25 s4 10 field 100 0 75 s4 10 field 150 0 125 s4 10 field 200 0 175 s4 10 field 25 100 0 s4 10 field 75 100 50 s4 10 field 125 100 100 s4 10 field 175 100 150 s4 10 //----------------------------下 field 25 200 0 (s4+25) 10 field 75 200 50 (s4+25) 10 field 125 200 100 (s4+25) 10 field 175 200 150 (s4+25) 10 field 50 120 25 s4 10 field 100 120 75 s4 10 field 150 120 125 s4 10 field 200 120 175 s4 10 //----------------------------左 field 100 0 (s4+1) 25 10 field 100 50 (s4+1) 75 10 field 100 100 (s4+1) 125 10 field 100 175 (s4+1) 150 10 field 100 25 (s4*2) 50 10 field 100 75 (s4*2) 100 10 field 100 125 (s4*2) 150 10 field 100 175 (s4*2) 200 10 //----------------------------右 field 0 25 s4 50 10 field 0 75 s4 100 10 field 0 125 s4 150 10 field 0 175 s4 200 10 field 100 0 s4 25 10 field 100 50 s4 75 10 field 100 100 s4 125 10 field 100 150 s4 175 10 }

影片：

期中：數位康丁斯基

圖：

影片：

程式碼：
load dbngraphics.dbn

size 600 500
paper 0 100 90
fast

//----------------
repeat A 125 275
{
pen 100 0 0
line 125 460 A 200
}
//----------
repeat A 50 125
{
pen 100 10 0
line 50 270 A 315
}
repeat A 50 125
{
pen 0 30 0
line 125 315 A 270
}
//--------------
pen 100 100 80
Repeat A 250 260
{
line 25 A 125 A
}
//------------------
repeat A 90 125
{
pen 100 100 0
line 125 215 A 235
}
repeat A 105 125
{
pen 80 0 0
line 125 200 A 215
}
//-----------------
repeat A 45 80
{
pen 100
line 65 180 A 220
}
//---------------
repeat A 25 225
{
pen 100 50 0
line 125 65 A 180
}
//-------------------
repeat A 275 350
{
pen 100
line 315 290 A 235
}
repeat A 280 345
{
pen 100
line 315 235 A 165
}
repeat A 280 345
{
pen 100
line 315 165 A 75
}
//----------------
pen 0
Repeat B 100 20
{
circle 465 275 B 0
}
pen 100
Repeat B 0 25
{
circle 465 275 B 100
}
pen 100
Repeat B 100 95
{
circle 465 275 B 100
}
//----------------
repeat A 405 525
{
pen 50 00 0
line 465 275 A 400
}
repeat A 425 505
{
pen 50 00 0
line 465 275 A 75
}
//----------------------
pen 100 100 0
Repeat A 465 475
{
line 510 A 575 A
}