作業拾

主題:羽毛










size 400 400
paper 100
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)

}

forever
{
same? 100
{
rect (60-()) 30 ()
}
same? 100
{
paper 100
}
}