作業九：應用 判斷 same? notsame?

有一種永無止盡的感覺....

-------------------------------
size 300 100

Load dbngraphics.dbn

forever

{

paper 100

pen 90 50

set B 50

repeat A 0 100

{

same? A B

{

triangle A 0 A B A 0

triangle (A*2) 100 (A*2) (B*2) (B*2) 5

triangle (A*3) 100 (A*3) (B*3) (B*2) 10

triangle (A*4) 100 (A*4) (B*4) (B*2) 15

triangle (A*5) 100 (A*5) (B*5) (B*2) 20


}

notsame? A B

{
triangle (A*2) 0 (A*2) (B*2) (B*20) 1

triangle (A*3) 5 (A*4) (B*3) (B*30) 10

triangle (A*4) 10 (A*6) (B*4) (B*40) 21

triangle (A*5) 15 (A*8) (B*5) (B*50) 40

triangle (A*10) 40 (A*10) (B*10) (B*100) 51

triangle (A*11) 45 (A*12) (B*11) (B*110) 80

triangle (A*12) 50 (A*14) (B*12) (B*120) 120

}

}

}

作業八：個人心得

每次上課老師都會給我們看一些許許多多有關互動媒體的影片，
其中令我印象深刻的是有關燈光的互動，
感覺好像平常不起眼的事物，只要加上燈光就會讓人眼睛為之一亮!
之前老師給我們看的那個植物燈光的部分，
小朋友在上面玩耍，就可以跟燈光產生互動，我覺這個是非常棒的效果!

感覺只要是能跟自己有相關性的東西就能使人感到興趣!
好的創意就是能使人省思然後人大呼驚奇，
所以現在的我們就是要努力突破，創造出讓人驚奇的作品。

作業七：應用 Mouse-1-2-3 配合Time 4 -->profuse color

size 200 200
paper 100
fast
command rects x y w h r g b
{
pen r g b
repeat w1 10 h
{
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)
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 14
}

作業六：自畫像&青蛙妹妹

感覺畫的不是很好ˊˋ....





這是我最喜歡的青蛙~下雨天她很開心!!

作業五：Time-1234

Load dbngraphics.dbn
size 200 200

//設定背景
forever
{
paper
}



//利用時間控制線條顏色
repeat x 0 200
{
pen (/2) (-20)
line 100 200 x 0
}

repeat x 0 200
{
pen (/2) (+20)
line 100 150 x 0
}
repeat x 0 200
{
pen ((*2)+20)
line 100 100 x 0
}
repeat x 0 200
{
pen ((/2)+50) (+50)
line 100 50 x 0
}
repeat x 0 5
{
Circle 50 40 x 8
}
repeat x 0 5
{
Circle 100 80 x 10
}
repeat x 0 5
{
Circle 175 60 x 5
}
repeat x 0 5
{
Circle 25 150 x 50
}
repeat x 0 5
{
Circle 150 175 x 10
}
repeat x 0 5
{
Circle 150 175 x 20
}
repeat x 0 5
{
Circle 140 125 x 15
}
repeat x 0 5
{
Circle 200 130 x 0
}
repeat x 0 5
{
Circle 125 50 x 5
}
repeat x 0 5
{
Circle 20 75 x 10
}
repeat x 0 5
{
Circle 25 100 x 5
}
repeat x 0 5
{
Circle 75 200 x 15
}

期中：數位康丁斯基

// enter programload
dbngraphics.dbn
size 400 300
paper 60 90 80
fast

//黑三角
Repeat A 155 115
{
pen 100
triangle 225 115 250 A 275 115
}
Repeat A 115 75
{
pen 100
triangle 233 75 250 A 269 75
}
Repeat A 75 33
{
pen 100
triangle 235 33 250 A 260 33
}
Repeat A 40 75
{ pen 100
triangle 60 85 40 115 A 115
}
//大橘三角
repeat A 25 150
{pen 80 40 0
triangle 90 33 25 85 A 85
}
//亮橘紅三角
Repeat A 100 110
{
pen 90 25 20
triangle 90 110 105 A 105 110
}
//黃三角
Repeat A 110 130
{
pen 255 215 0
triangle 80 130 105 A 105 130
}
//綠三角
Repeat A 150 177
{
pen 10 30 15
triangle 50 150 105 A 105 150
}
//亮橘紅三角repeat A 50 105
{
pen 90 25 20
triangle 50 150 50 177 A 177
}
//白條
repeat B 0 5
{
pen 5
line 50 (137+B) 105 (137+B)
}
//黃條
repeat B 0 8
{
pen 100 80 0
line 325 (270+B) 380 (270+B)
}
//大圓(外)
Repeat A 50 40
{
circle 310 160 A 100
}
Repeat A 43 35
{
circle 310 160 A 60
}
Repeat A 35 25
{
circle 310 160 A 40
}//紅褐三角
repeat A 225 160
{
pen 50 10 0
triangle 260 225 310 A 360 225
}//紅紫三角
Repeat A 160 25
{
pen 30 0 20
triangle 275 25 310 A 350 25
}//大圓(內)
Repeat A 25 10
{
circle 310 160 A 0
}Repeat A 10 0
{
circle 310 160 A 100
}//紅方形
repeat B 0 20
{
pen 80 5 0
line 165 (250+B) 185 (250+B)
}//右下圓弧repeat a 0 7
{
circle 90 5 (a+40) (60)
}//右下遮罩
repeat a 0 30
{
pen 60 90 80
rectangle (30+a) (0+a) (150-a) (0-a)
}//右上圓弧
repeat a 0 5
{
circle 85 265 (a+30) (0)
circle 70 255 (a+50) (50)
}//右上遮罩
repeat A 0 170
{
pen 60 90 80
triangle 125 250 170 300 A 300
}//桃紅三角Repeat A 285 101
{
pen 85 35 40
triangle 106 101 106 A 200 101
}

作業四：command square 結構綜合設計

size 200 200paper 100
command square x y s c

{pen 80 c 10line x y (x+(s/4)) (y/s)

line (x+(s/4)) (y/s) (x+s) yline (x+s) y x y}

command square2 x y s c

{pen c 80 80line (x+s) y x y

line x y (x+(s/3)) (y/s)

line (x+(s+3)) (y+s) (x+s) y}

command square3 x y s c

{pen 80 10 cline 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)}}}

repeat D 10 17

{repeat A 0 5

{repeat B 0 3

{square2 (31+(A+A)*15) (45+(B+B)*23) D (10+(A+B)*11)}}}

repeat D 10 17

{repeat A 0 4

{repeat B 0 3

{square3 (30+(A+A)*15) (28+(B+B)*23) D (10+(A+B)*11)}}}

＊作業三：使用三原型綜合設計創作

load dbngraphics.dbn
paper 100
size 250 250
fast
Repeat A 0 300
{
pen 50
Line 300 (A*4) (A*4) 0
pen 0 100 120
Line 175 (A*5) (A*5) 0
pen 0 60 80
Line 25 (A*6) (A*3) 145
pen 0
Line 50 (A*6) (A*6) 300
}
Repeat A 0 300
{
field 20 20 30 30 0
field 60 60 40 40 10
field 120 120 100 100 20
field 140 140 160 160 30
field 40 40 20 20 40
field 160 160 140 140 50
field 220 220 210 210 60
field 180 180 170 170 70
field 260 260 250 250 80
field 80 80 70 70 90
}

＊作業二：pattern設計應用

size 200 200
Repeat A 0 200{ pen 10 50 100line A A A 0
pen 20 60 90line A A A 10
pen 30 70 80line A A A 20
pen 40 80 70line A A A 30
pen 50 90 60line A A A 40
pen 60 100 50line A A A 50
pen 70 110 40line A A A 60
pen 80 120 30line A A A 70
pen 90 130 20line A A A 80
pen 100 140 10line A A A 90
pen 110 150 0line A A A 100
pen 10 50 100line 0 A A A
pen 20 60 90line 10 A A A
pen 30 70 80line 20 A A A
pen 40 80 70line 30 A A A
pen 50 90 60line 40 A A A
pen 60 100 50line 50 A A A
pen 70 110 40line 60 A A A
pen 80 120 30line 70 A A A
pen 90 130 20line 80 A A A
pen 100 140 10line 90 A A A
pen 110 150 0line 100 A A A}

repeat C 0 8
{
pen 100 50 0
line (96+C) 0 (96+C) 200
line (146+C) 0 (146+C) 200
line (196+C) 0 (196+C) 200
line 0 (196+C) 200 (196+C)
line 0 (146+C) 2000 (146+C)
line 0 (96+C) 200 (96+C)
}
repeat D 0 2
{
pen 100 0 80
line 0 (80+D) 200 (80+D)
line 0 (64+D) 200 (64+D)
line 0 (118+D) 200 (118+D)
line 0 (134+D) 200 (134+D)
line (80+D) 0 (80+D) 200
line (64+D) 0 (64+D) 200
line (118+D) 0 (118+D) 200
line (134+D) 0 (134+D) 200
}
repeat E 0 1
{
pen 40 0 10
line 0 (180+E) 200 (180+E)
line 0 (10+E) 200 (10+E)
line (180+E) 0 (180+E) 200
line (10+E) 0 (10+E) 200
}

＊作業一：名字設計

Ｍｙ　Ｎａｍｅ：涂家琪

paper 80 75 65

size 400 400
pen 50 0 0

line 150 350 150 375

line 140 350 140 375

line 130 375 160 375

line 50 50 325 50

line 75 225 125 350

line 325 225 275 350

line 125 350 275 350

line 105 300 295 300

line 90 260 310 260

line 105 260 105 150

line 140 300 140 50

line 175 200 175 260

line 175 200 215 200

pen 100

line 215 200 215 260

line 310 260 310 150

line 262 200 262 300

line 215 235 310 235

line 262 260 262 50

line 262 235 145 50

line 295 235 175 50

line 262 135 210 50

line 262 135 314 50

pen 25 20 10

line 105 150 310 150

line 105 100 175 100

line 105 50 175 50

line 195 130 227 130

line 184 110 213 110

line 140 75 210 75

＊注意事項

一、申請本課程專用Blog
1. 申請Blogger: http://www.blogger.com/start
2. 帳號統一格式設定:http:// DM-班級-學號.blogspot.com/
例如： http://DM-4A-95452135.blogspot.com/
3. 網誌標題: 例如： 4A-95452135 王智明
二、 DBN軟體
1. 下載DBN: http://dbn.media.mit.edu/
路徑: [Download DBN 3.0.1]→[Windows]→[I agree to the terms specified]
＊ 下載後 並儲存於隨身碟
2. DBN 教學課程 [DBN Wiki]
http://www.digiarts.org.tw/dbnwiki/WEB/HTML/DOKU9266.HTM?id=dbn%E6%95%99%E5%AD%B8%E8%AA%B2%E7%A8%8B