2.
3.
4.
size 400 400
paper 100
fast
command rects x y w h r g b
{
pen r g b
repeat w1 0 100
{
pen r g b
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)
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)
line(y-h/2)(x-w/2)(y-h/2)(x+y/2)
line (y-h/2)(x+w/2)(y+h/2)(x+w/2)
line (y+h/2)(x+w/2)(y+h/2)(x-w/2)
line (y+h/2)(x-w/2)(y-h/2)(x-w/2)
line (x-w/2) (y+h/2) (x-w/2) (y-h/2)
}
}
forever
{
rects
沒有留言:
張貼留言