作業四: 使用command square 結構綜合設計

size 200 200
paper 100
command square x y s c
{
pen (c+5) (c-10) (c*10)
line (x+10) y (x) (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 5 0
{
repeat B 5 0
{
square (25+(A+B)*15) (25+(B+2)*15) 25 ((A+B)*9)
}
}

repeat A 0 5
{
repeat B 0 5
{
square (10+(A+B)*15) (10+(B+2)*15) 25 ((A+B)*8)
}
}
repeat A 5 0
{
repeat B 5 0
{
square (25+(A+B)*15) (25+(B+2)*15) 25 ((A+B)*7)
}
}

repeat A 5 0
{
repeat B 5 0
{
square (25+(A)*15) (25+(B+2)*15) 25 ((A+B)*6)
}
}