【作業七】 Mouse-1-2-3 &Time 4-迴旋樓梯

利用作業四來做延伸
size 200 400
paper 100
fast

command rect x y w h c
{
pen ＜time 4>＜time 1>＜time 3>
line x y x (y+c)
line x (y+h) (x+y) (y+h)
line (x+w) (y+h) (x+w) y
line (x+w) y x y
}


forever
{
rect＜mouse 1>＜ mouse 2> 20 80 ＜time 4>

}


作業七的延伸