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

load dbnletters.dbn

size 300 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? 結構式 配合其它的指令創作

{
paper 0
pen 20 10
set B 35
repeat A 0 100
{
same? A 30
{
line A 0 A B
line (A*20) 20 (A*2) (B*2)
line (A*30) 40 (A*3) (B*3)
line (A*40) 60 (A*4) (B*4)
line (A*50) 80 (A*5) (B*5)

}
notsame? A B
{
line (A*20) 0 (A*2) (B*9)
line (A*30) 5 (A*3) (B*8)
line (A*40) 10 (A*4) (B*6)
line (A*50) 15 (A*5) (B*5)
line (A*60) 20 (A*6) (B*4)
line (A*70) 25 (A*7) (B*3)
line (A*80) 30 (A*8) (B*2)
line (A*90) 35 (A*9) (B*1)

}
}
}

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

size 400 400
paper 100
fast

command rect x y w h c

{
pen 20 30
line (x-w/3) (y-h/3) (x+w/3) (y-h/3)
line (x+w/2) (y-h/2) (x+w/2) (y+h/2)
line (x+w/2) (y+h/2) (x+w/2) (y+h/2)
line (x-w/2) (y+h/2) (x-w/2) (y-h/2)
}


forever
{
rect 30 20
}

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

期末考

1.拉斯維加斯的格子- 雀躍的拉斯維加斯，改變以往大家對蘇格蘭格子的既定印象，只有紅黑交錯，這次加上五顏六色，彷彿置身拉斯維加斯的不夜城


2.
3.


4.
size 400 400

paper 100

fast

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

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

}
}
forever
{

rects 10 400
}




我有在網頁上做喔