作業7:應用 Mouse-1-2-3 配合Time 4

程式碼:

size 400 400

paper 10

fast

command rect x y w h c

{

pen c 10 40

line (x-w/3) (y-h/2) (x+w/2) (y-h/2)

line (x+w/3) (y-h/2) (x+w/2) (y+h/2)

line (x+w/3) (y+h/2) (x-w/2) (y+h/2)

line (x-w/3) (y+h/2) (x-w/2) (y-h/2)

}

forever

{

rect 20 20

}