'--------------------------------------------------------
Math = CSng(SData(0))
If Math > 6# Then
SData(0) = Math - 6#
End If
If Math < -6# Then
SData(0) = (Math + 6#)
SData(0) = CSng(SData(0)) - (CSng(SData(0)) * 2)
End If
SData(0) = SData(0) * 57.2957795130823
SData(0) = Format(SData(0), "0.000000")
'Rotation 2 / 3
'--------------------------------------------------------
Math = CSng(SData(1))
If Math > 6# Then
SData(1) = Math - 6#
End If
If Math < -6# Then
SData(1) = (Math + 6#)
SData(10) = CSng(SData(1)) - (CSng(SData(1)) * 2)
End If
SData(1) = SData(1) * 57.2957795130823
SData(1) = Format(SData(1), "0.000000")
'Rotation 3 / 3
'--------------------------------------------------------
Math = CSng(SData(2))
If Math > 6# Then
SData(2) = Math - 6#
End If
If Math < -6# Then
SData(2) = (Math + 6#)
SData(2) = CSng(SData(0)) - (CSng(SData(0)) * 2)
End If
SData(2) = SData(2) * 57.2957795130823
SData(2) = Format(SData(2), "0.000000")