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

load dbnletters.dbn
size 300 300
fast
paper 100
repeat B 0 10

{


pen 30


line 0 (290+B) 300 (290+B)
line 0 (0+B) 300 (0+B)
line (290+B) 0 (290+B) 300
line (0+B) 0 (0+B) 300

}
repeat a 0 30

{
pen 30
line 40 (25+a) 275 (25+a)
line (40+a) 25 (40+a) 275

}
repeat c 0 25

{
pen 30
line 85 (65+c) 125 (70+c)
line (95+c) 75 (95+c) 230
line 85 (225+c) 125 (220+c)
}
repeat d 0 20

{
pen 30
line 225 (125+d) 260 (125+d)
line (205+d) 80 (220+d) 230
line (255+d) 80 (220+d) 230
}
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 400 100
{
paper 100
pen 100 100 0
set B 50
repeat A 0 100
{
same? A B
{
line A 0 A B
line (A*10) 0 (A*10) (B*10)
line (A*20) 0 (A*20) (B*20)
line (A*30) 0 (A*40) (B*30)
line (A*40) 0 (A*50) (B*15)
}
notsame? A B
{
line (A*10) 0 (A*2) (B*2)
line (A*20) 15 (A*20) (B*3)
line (A*30) 25 (A*40) (B*4)
line (A*5) 35 (A*50) (B*15)
}
}
}

作業八:

各國的互動媒體發展得很普遍
把互動媒體與公共藝術結合運用生活週遭
看的見的地方 讓人隨時都可以接觸到成為生活中的一部份
很多的設計師 運用不同的素材讓觀賞者更有興趣
台灣的互動媒體在跟國外比較有一點距離 比較不普遍
看到這麼多有關互動媒體的影片
很多想像的事都可以用互動媒體來實現

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

轉轉轉


size 300 300
paper 100
command rect x y w h c
{
pen 90 70

line (x-w/3) (y+h/3) (x-w/3) (y-h/3)

}
forever
{
rect 50 20
}

作業六: 應用 Mouse-paint

Size 300 300
Paper 10
Forever
{
set [mouse 1 mouse 2] mouse 3
}

paper 50
size 400 400
forever
{

set H
set V

pen ( 50 + ( ( (100-) /100) * ( ( - ) /4) ) )


line (H-20) (V-50) (H+50) (V-50)


}

期末1月7

箭頭

用箭頭代表向上的力量

size 400 400

paper 10

fast

command rect x y s h c

{
pen (c+10) (c-10) (c*10)
line (x+10) y (x) (y+s)
line x (y+s) (x+s) (y+s)
line (x+10) (y+s) (x+s) y
}
forever

{
same? 100
{

rect 50 20

}

}

作業五

size 400 400

paper 100


repeat x 0 400

{
pen (()*6)((%20)*10)((*10)%25)

line 200 200 400 x

line 200 200 0 x

line 200 200 x 400

line 200 200 x 0
}


repeat x 0 400

{
pen ((*10)%25)(()*5)((%5)*20)

line 200 200 400 x

line 200 200 0 x

line 200 200 x 400

line 200 200 x 0
}



repeat x 0 400

{
pen ()((*10)%15)((%20)*5)

line 300 100 400 x

line 100 100 0 x

line 100 300 x 400

line 100 100 x 0
}