期末考 蹈叢草叢

主題 蹈叢草叢

稻穗交織 雜草叢生

很想剝開向前走 一探究竟

蹈叢中

草叢中

網頁版

由於網頁跑很慢 所以影片就在DBN錄製...

程式碼

load dbngraphics.dbn

size 400 400

paper 80

fast

command rects x y w h c

{

pen c

repeat w (10*(-w)) (20*(w))

{

pen 40 80

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

line (x) y (x-w/2) (y-w*2)

line x (y/2) (x+w/2) (y+w*2)

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

}

}

forever

{

same? 0

{

rects (60-()) 30 (30+)

paper (/4)

}

same? 100

{

rects 10 10 (100-)

}

}