Dim BallTrajectory
Sub NewtonPhysicsTick()
BallTrajectory = Atn2( xBAM.Ball.Velocity.X, xBAM.Ball.Velocity.y )
Dim ball
Set ball = xBAM.BallCloseTo(0,0)
AddDebugText "ball.Speed: " & ball.Speed
AddDebugText "xBAM.Ball.Velocity.y: " & xBAM.Ball.Velocity.y
AddDebugText "xBAM.Ball.Velocity.X: " & xBAM.Ball.Velocity.X
AddDebugText "xBAM.Ball.Position.X: " & xBAM.Ball.Position.X
AddDebugText "xBAM.Ball.Position.Y: " & xBAM.Ball.Position.Y
AddDebugText "BallTrajectory: " & BallTrajectory
End Sub
' Convert X, Y velocities to ball trajectory angle
Const RadToDeg = 57.295779513082320876798154814105
Function Atn2(x, y)
If x > 0 Then
Atn2 = Atn(y / x) * RadToDeg
ElseIf x < 0 Then
Atn2 = 180 - RadToDeg * Atn(y / -x)
ElseIf y > 0 Then
Atn2 = 90
Else
Atn2 = -90
End If
Atn2 = Atn2+90
End Function