1#Region "Angle/Radian Conversions"   ...
2
3
4    ''' <summary>
5    ''' Converts Degree angles numbers in Radian angle format
6    ''' </summary>
7    ''' <param name="degrees"></param>
8    ''' <returns>Radian angle</returns>
9    ''' <remarks>Manditory because vb math lib defaults to Radians, however our mesurments are in Degree's</remarks>
10    Public Function DegreesToRadians(ByVal degrees As Double) As Double
11        DegreesToRadians = degrees / 57.29578
12    End Function
13
14    ''' <summary>
15    ''' Converts Radian angles to Degree angles
16    ''' </summary>
17    ''' <param name="radians"></param>
18    ''' <returns>Degree Angle</returns>
19    ''' <remarks></remarks>
20    Public Function RadiansToDegrees(ByVal radians As Double) As Double
21        RadiansToDegrees = radians * 57.29578
22    End Function
23#End Region