load dbnletters.dbn
size 300 300
fastpaper 100
number keycheck
{
set keyvalue 0
repeat p 1 26
{
same? 100
{
set keyvalue p
}
}
value (keyvalue)
}
set k 0forever{
pen (/2) (/2)
set k
letter k ((/12)*12+2) ((/12)*12+2)
notsmaller? k 26 { set k 0
}
}

作業九：應用 判斷 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
}