作業十： Key --> 整合應用海報設計

程式碼：
load dbnletters.dbn

size 300 400
fast
paper 20 50 50


number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{

pen 0

set k

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

notsmaller? k 26
{
set k 0
}
}

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

程式碼：

size 400 500
paper 100
fast

command rects x y w h r g b
{
pen r g b
repeat w1 0 5
{
pen r g b
line (x+(w1/200)) (y-h/2) (x+(w1/2)) (y+h/2)
line (x+(w1/200)) (y-h/2) (x+(w1/2)) (y+h/2)
}
}

forever
{
same? 0
{
rects 20 80 (80-) 50 60

}

notsame? 50
{
rects 20 50 (500-) 30 10
}
}

作業八：個人心得

學期中的幾次課程老師都會播一些關於互動媒體的影片給我們分享，然後其中「can you see me now?」是我印象中比較深刻的一部作品，利用互動媒體的技術去構成人於人之間的交流，就連彼此不相識的人也可以碰撞在一起，這實在是很奇妙的一件事。現今這個現實社會環境下造成大家汲汲營營的去追求自己心中所想要的東西，相對的，往往都會忽略了很多事物，就連最基本的人際關係也可能都處理得不甚理想，所以，我想我們有時候真的需要靜下心來，好好沉澱自己一下吧。

作業七：應用Mouse 1-2-3配合Time4--->創作

程式碼：

size 250 250
paper 50
fast

command rects x y w h r g b
{
pen r g b
repeat w1 20 50
{
pen r g b
line (x+(w1/2)) (y-h/2) (x+(w1/2)) (y+h/2)
line (x-(w1/2)) (y+h/2) (x-(w1/2)) (y-h/2)
}
}

forever
{
rects 10 20
}

作業六：自畫像 & 自由創作

自畫像：

平常給人的感覺好像是帶有點安靜內向的吧！
所以畫了一個看起來好像有點害羞的女生 哈！



自由創作：

「傻笑鱷魚」- 牠覺得自己笑起來很好看。
希望大家也都要覺得自己笑起來很好看，要更愛自己喔！


←就是在畫我啦！

作業五：Time

程式碼：

Load dbngraphics.dbn
size 200 200
paper 50

command rect x y w h c
{

pen c

line (x-w/2) (y-h/2) (x+w/4) (y-h/4)

line (x+w/4) (y-h/2) (x+w/4) (y+h/4)

line (x+w/2) (y+h/2) (x-w/4) (y+h/4)

line (x-w/4) (y+h/2) (x-w/4) (y-h/4)
}

repeat v1 0 200
{

rect 100 100 v1 v1

}

repeat x 0 5
{
Circle 175 60 x 5
}
repeat x 0 5
{
Circle 25 150 x 50
}
repeat x 0 5
{
Circle 175 150 x 20
}
repeat x 0 5
{
Circle 100 175 x 15
}
repeat x 0 5
{
Circle 125 25 x 5
}
repeat x 0 5
{
Circle 20 75 x 10
}
repeat x 0 5
{
Circle 25 150 x 5
}

作業四：command square-出口

程式碼：

size 220 220
paper 100

command square x y s c
{
pen c
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 10
{
repeat B 0 10
{
square (10+(A+A)*15) (10+(B+B)*15) 25 ((A+B)*8)
}
}
repeat A 4 0
{
repeat B 4 0
{
square (25+(A+A)*15) (25+(B+B)*15) 25 ((A+B)*7)
}
}


command square2 x y s c
{
pen 100 10 c
line x y (x+(s/2)) (y+s)
line (x+(s/2)) (y+s) (x+s) y
line (x+s) y (x+(s/2)) (y-s)
line (x+(s/2)) (y-s) x y
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)
}
}
}