0
6 691
modifications
Modifications
Page créée avec « Projet de pointeur GPS pour piloter une caméra vers des coordonnées GPS précises '****** Calcul du cap en degrés ******* If Dist > 0 Then 'Distance précédemment cal… »
Projet de pointeur GPS
pour piloter une caméra vers des coordonnées GPS précises
'****** Calcul du cap en degrés *******
If Dist > 0 Then 'Distance précédemment calculée
Cap = (Sin(RadLat2) - Sin(RadLat1) * Cos(Dist)) / (Sin(Dist) * Cos(RadLat1)) 'Lat1 et Lat2 sont en radians
If Sin(RadLon1 - RadLon2) < 0 Then 'Lon1 et Lon2 en radians
Cap = Atn(-Cap / Sqr(-Cap * Cap + 1)) + 2 * Atn(1) 'équivalent à ArcCos
Else
If Cap > 1 Then
Cap = 0
ElseIf Cap < -1 Then
Cap = PI
Else
Cap = 2 * PI - (Atn(-Cap / Sqr(-Cap * Cap + 1)) + 2 * Atn(1))
End If
End If
Cap = Cap * cDegré 'conversion en degrés
End If
'*************************************
pour piloter une caméra vers des coordonnées GPS précises
'****** Calcul du cap en degrés *******
If Dist > 0 Then 'Distance précédemment calculée
Cap = (Sin(RadLat2) - Sin(RadLat1) * Cos(Dist)) / (Sin(Dist) * Cos(RadLat1)) 'Lat1 et Lat2 sont en radians
If Sin(RadLon1 - RadLon2) < 0 Then 'Lon1 et Lon2 en radians
Cap = Atn(-Cap / Sqr(-Cap * Cap + 1)) + 2 * Atn(1) 'équivalent à ArcCos
Else
If Cap > 1 Then
Cap = 0
ElseIf Cap < -1 Then
Cap = PI
Else
Cap = 2 * PI - (Atn(-Cap / Sqr(-Cap * Cap + 1)) + 2 * Atn(1))
End If
End If
Cap = Cap * cDegré 'conversion en degrés
End If
'*************************************