size 400 400
paper 0
fast
command rect x y w h c
{
pen 100
line (x-w/x) (y-h/x) (x+w/x) (y-h/x)
line (x+w/w) (y-h/w) (x+w/w) (y+h/w)
line (x+w/y) (y+h/y) (x-w/y) (y+h/y)
line (x-w/h) (y+h/h) (x-w/h) (y-h/h)
}
forever
{
rect 50 20
}




沒有留言:
張貼留言