一山還有一山

size 200 200

paper 10

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 10 14

}