作業10

city

size 200 200
paper 100
fast
pen 0
line 80 0 80 200
line 80 100 140 100
line 140 100 140 0
line 140 155 200 155
line 140 155 140 0
line 110 185 110 100
line 110 185 150 185
line 150 185 150 155

command rects x y w h r g b
{
pen r g b
repeat w1 (-w) (w)
{
pen r g b
line (x+(w1/4)) (y-h/4) (x+(w1/4)) (y+h/4)
}
}
forever
{
rects 20 30
}