作業四：command square 結構綜合設計

size 200 200paper 100
command square x y s c

{pen 80 c 10line x y (x+(s/4)) (y/s)

line (x+(s/4)) (y/s) (x+s) yline (x+s) y x y}

command square2 x y s c

{pen c 80 80line (x+s) y x y

line x y (x+(s/3)) (y/s)

line (x+(s+3)) (y+s) (x+s) y}

command square3 x y s c

{pen 80 10 cline 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)}}}

repeat D 10 17

{repeat A 0 5

{repeat B 0 3

{square2 (31+(A+A)*15) (45+(B+B)*23) D (10+(A+B)*11)}}}

repeat D 10 17

{repeat A 0 4

{repeat B 0 3

{square3 (30+(A+A)*15) (28+(B+B)*23) D (10+(A+B)*11)}}}