2008-12-16 課堂練習

size 200 200
paper 10
fast
command rects x y w h r g b{
pen r g b
repeat w1 (-w) (w)
{
pen r g b
line (x+(w1/2)) (y-h/2) (x+(w1/2)) (y+h/2)
}
}
forever
{
rects 10 14
}// enter program