作業柒:燈紅酒綠

size 400 400
paper 100 80 80
fast
command rect x y w h c
{
pen (c) (h) (h)
line x y (x+w) (y+w)
line x y (x-w) (y+w)
line x y (x+w) (y-w)
line x y (x-w) (y-w)

}

forever
{
rect (60-()) 30 ()
}