期末考-壞舊的公寓

size 400 400

paper 100

fast

command rect x y w h c

{

pen 10 80

line (x-w) (y-h) (x+w) (y-h)

line (x+w) (y-h) (x+w) (y+h)

line (x+w/2) (y+h/2) (x-w/2) (y+h/2)

line (x-w/2) (y+h/2) (x-w/2) (y-h/2)

}

forever

{

rect 50 20

}