作業四 command square 結構綜合設計

fast
paper 80 20 30
command square x y s c
{
pen s
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 100
{
pen 10 20 30
line A 0 A 10
}
repeat A 0 100
{
pen 40 20 40
line A 90 A 100
}
repeat A 0 100
{
pen 90 10 70
line A 20 A 30
}
repeat A 0 100
{
pen 70 50 32
line A 70 A 80
}
repeat A 0 100
{
pen 50 10 60
line A 45 A 55
}
repeat A 0 9
{
repeat B 0 9
{
square (A*10+8) (B*10+2) 3 (A+B*10)
}
}
repeat A 0 9
{
repeat B 0 9
{
square (A*10+3) (B*10+3) 5 (A+B*10)
}
}