作業四：command square-出口

程式碼：

size 220 220
paper 100

command square x y s c
{
pen c
line x 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 0 10
{
repeat B 0 10
{
square (10+(A+A)*15) (10+(B+B)*15) 25 ((A+B)*8)
}
}
repeat A 4 0
{
repeat B 4 0
{
square (25+(A+A)*15) (25+(B+B)*15) 25 ((A+B)*7)
}
}


command square2 x y s c
{
pen 100 10 c
line x y (x+(s/2)) (y+s)
line (x+(s/2)) (y+s) (x+s) y
line (x+s) y (x+(s/2)) (y-s)
line (x+(s/2)) (y-s) x y
}
repeat D 10 17
{
repeat A 0 5
{
repeat B 0 3
{
square (15+(A+A)*15) (12+(B+B)*23) D (10+(A+B)*11)
}
}
}