Disegna una linea a ogni clic del mouse.
|
1 2 3 4 5 6 7 8 |
GraphicsWindow.MouseDown=TiraLinea Turtle.Speed=8 Turtle.Show() Sub TiraLinea x=GraphicsWindow.MouseX y=GraphicsWindow.MouseY Turtle.MoveTo(x, y) EndSub |
Disegna una linea a ogni clic del mouse.
|
1 2 3 4 5 6 7 8 |
GraphicsWindow.MouseDown=TiraLinea Turtle.Speed=8 Turtle.Show() Sub TiraLinea x=GraphicsWindow.MouseX y=GraphicsWindow.MouseY Turtle.MoveTo(x, y) EndSub |