作業5 : 新版萬花筒

size 400 400
paper 100

command rect x y w h c
{
pen ((%12)*10) ((%10)*15)

line (x+w/2) (y-h/2) (x+w/2) (y+h/2)

line (x-w/2) (y+h/2) (x-w/2) (y-h/2)

pen ((%12)*10) ((%10)*15)

line (x-w/2) (y-h/2) (x+w/2) (y-h/2)

line (x+w/2) (y+h/2) (x-w/2) (y+h/2)
}

repeat v1 0 400
{
rect 200 200 v1 v1
}