Vai al contenuto

Mirino

  • Senza categoria

Il mirino segue il puntatore del mouse

GraphicsWindow.BackgroundColor="Black"
w =GraphicsWindow.Width
h =GraphicsWindow.Height
r1=10
d1=2*r1
r2=20
d2=2*r2

While "true"
   wm=GraphicsWindow.MouseX
   hm=GraphicsWindow.MouseY 
   GraphicsWindow.Clear()
   GraphicsWindow.PenColor="white"
   GraphicsWindow.DrawLine( 0, hm, w, hm)
   GraphicsWindow.DrawLine(wm, 0, wm, h) 
   GraphicsWindow.PenColor="gray"
   GraphicsWindow.DrawEllipse(wm-r2, hm-r2, d2, d2)
   GraphicsWindow.DrawEllipse(wm-r1, hm-r1, d1, d1)
   Program.Delay(50)
EndWhile

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.