2010年1月6日 星期三

影片

(他用ie執行會變得很lag,在dbn上面不會)

不能看的話 請老師連結到無名小站

http://www.wretch.cc/album/show.php?i=loveduck520&b=22&f=1712349539&p=0

期末-上下搖旗

主題:上下搖旗



靜態圖片:






動態影片:

在另一個文章裡



程式碼:

size 400 400
paper 90
fast
command rects x y w h c
{
pen c 50 90
repeat w ((-w)) (0*(w))
{
pen c
line (x+h) (y-w) (x+y) (y+h/9)
line (x+(h)) (y-(w)) (x+(h)) (y+(3*w))
}
}
forever
{
same? 0
{
rects 60 60 (100-

2009年12月19日 星期六

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



size 400 400

forever

{

paper 90 50 70

pen 30

set B 15

repeat A 20 50

{

same? A B

{

line A 90 A B

line (A*2) 50 (A*2) (B*2)

line (A*3) 0 (A*3) (B*3)

line (A*4) 0 (A*4) (B*4)

line (A*5) 0 (A*5) (B*5)

}

notsame? A B

{

line (A*4) 10 (A*4) (B*4)

line (A*5) 15 (A*5) (B*5)

line (A*6) 20 (A*6) (B*6)

line (A*7) 25 (A*7) (B*7)

line (A*8) 30 (A*8) (B*8)

line (A*9) 35 (A*9) (B*9)

line (A*10) 40 (A*10) (B*10)

line (A*11) 45 (A*11) (B*11)

}

}

}