2010年1月17日 星期日

作業七:應用Mouse 1-2-3配合Time4--->創作






程式碼:

size 250 250
paper 50
fast

command rects x y w h r g b
{
pen r g b
repeat w1 20 50
{
pen r g b
line (x+(w1/2)) (y-h/2) (x+(w1/2)) (y+h/2)
line (x-(w1/2)) (y+h/2) (x-(w1/2)) (y-h/2)
}
}

forever
{
rects 10 20

沒有留言:

張貼留言