Retrouver un vector3 à partir de la longitude et latitude et d'un rayon

Contenu du snippet

Bon voila j'ai passé 3h à trouver ce code et à le tester il fonctionne: Pour ceux qui se lancent dans la 3D voici une fonction pour retrouver un vector3 à partir d'une position 3D, d'une longitude, d'une latitude et d'un rayon.

Source / Exemple :


Function retrouver_xyz(ByVal origine As Vector3, ByVal longitude As Single, ByVal latitude As Single, ByVal rayon As Single)
        latitude = Math.PI * latitude / 180
        longitude = Math.PI * longitude / 180
        Dim x, y, z As Decimal
        x = origine.X + rayon * Math.Cos(latitude) * Math.Cos(longitude)
        y = origine.Y + rayon * Math.Sin(latitude)
        z = origine.Z + rayon * Math.Cos(latitude) * Math.Sin(longitude)
        Return New Vector3(x, y, z)
    End Function

Conclusion :


Je rappelle que le moteur XNA 3D est parfaitement utilisable en Vbnet voir les cours d'Alan Phipps:
http://www.alanphipps.com/VisualBasicdotNET-XNA.html

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.