WORK4-使用command square 結構綜合!?

請看圖

作品名稱:這次怎麼做這麼久?~阿呆

請看程式碼

load dbngraphics.dbn

size 300 300

fast
Repeat a 0 300

{

pen 80 (a*120)(a-50*2)

line 0 a 300 a

}
size 300 300
command box x y s p

{

pen (p/2) 80 50
circle (x+s) y (y/2) x
}

repeat A 10 0

{

repeat B 0 10

{

box ((A+A)*15) (10+(B+B)*15) (20*2) (20*B)

box ((B-B)/15) (10-(A-A)/15) (20/2) (20/A)

}

}

請看影片