2013-03: Graphical 2
Write a program with an arrow that rotates to always point towards the mouse.
Scrivi un programma con una freccia rivolta sempre verso il puntatore del mouse
Soluzione
Da revisionare
La freccia segue il puntatore del mouse
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
GraphicsWindow.BackgroundColor="black" GraphicsWindow.PenColor="blue" GraphicsWindow.BrushColor="blue" GraphicsWindow.PenWidth=5 xc=GraphicsWindow.Width/2 yc=GraphicsWindow.Height/2 GraphicsWindow.MouseMove=OnMouseMove angoloFreccia=5/6*Math.Pi baseFreccia=30 Sub OnMouseMove xm=GraphicsWindow.MouseX ym=GraphicsWindow.MouseY dx=xm-xc dy=ym-yc angolo=Math.arctan(-dy/dx) If(dx >= 0) Then c1=xm+baseFreccia*Math.Cos(angolo+angoloFreccia) s1=ym-baseFreccia*Math.Sin(angolo+angoloFreccia) s2=xm+baseFreccia*Math.Cos(angolo-angoloFreccia) s2=ym-baseFreccia*Math.Sin(angolo-angoloFreccia) Else c1=xm-baseFreccia*Math.Cos(angolo+angoloFreccia) s1=ym+baseFreccia*Math.Sin(angolo+angoloFreccia) c2=xm-baseFreccia*Math.Cos(angolo-angoloFreccia) s2=ym+baseFreccia*Math.Sin(angolo-angoloFreccia) EndIf GraphicsWindow.Clear() GraphicsWindow.DrawLine(xc,yc,xm,ym) GraphicsWindow.DrawTriangle(c1,s1,c2,s2,xm,ym) Program.Delay(50) EndSub |