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

春天


大海


布丁


梯田
size 200 200
paper 0 50 0
command square x y s c
{
pen (2*(c)) (3*c) (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 5
{
repeat B 0 5
{
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)
}
}