小考-格格不入

size 400 400

paper 100

fast

command rects x y w h r g b

{

pen r g brepeat w1 (-w) (w)

{

pen r g bline (x-(w1*2)) (y+h*2) (x-(w1*2)) (y-h*2)

}

}

forever

{

rects 25 25

}