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

size 400 400

paper 100

fast

command rect x y a b c

{

pen c ((y/5)-(c)) (y+c)

line x y (x+(a*1)) (y-a)

line x (y-a) (x+(a*4)) (y+a)

line x (y+(a*2)) (x-(a*3)) y

line x (y-(a*3)) (x+(a*2)) (y+a)

}


forever

{

rect 2 5 ()

}