La linea segue il puntatore del mouse
|
1 2 3 4 5 6 7 8 9 10 11 |
GraphicsWindow.MouseMove=MouseMosso xC=GraphicsWindow.Width/2 yC=GraphicsWindow.Height/2 Sub MouseMosso x=GraphicsWindow.MouseX y=GraphicsWindow.MouseY GraphicsWindow.Clear() GraphicsWindow.DrawLine(xC,yC, x,y) Program.Delay(25) Endsub |
E disegna un mirino
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
w=GraphicsWindow.Width h=GraphicsWindow.Height GraphicsWindow.MouseMove=MouseMosso r1=10 d1=2*r1 r2=20 d2=2*r2 Sub MouseMosso x=GraphicsWindow.MouseX y=GraphicsWindow.MouseY GraphicsWindow.Title="x=" + x + ", y=" + y GraphicsWindow.Clear() GraphicsWindow.DrawLine(0,y, w,y) GraphicsWindow.DrawLine(x,0, x,h) GraphicsWindow.DrawEllipse(x-r1, y-r1, d1,d1) GraphicsWindow.DrawEllipse(x-r2, y-r2, d2,d2) Program.Delay(25) Endsub |