GPSPointer

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 '*************************************