Il peut être intéressant d'afficher dans vos applications des cartes provennant de GoogleMap. Pour tout ce qui est vue web, l'API de google permet de réaliser facilement des application interactives, si vous voulez par contre obtenir l'adresse des images à afficher l'affaire se complique! Les images de GoogleMap ne sont pas référencées en utilisant le système GPS latitude/longitude mais pas une projection de Mercator x/y.

L'URL à utiliser pour accéder aux fichiers d'images est de la forme :


Les paramètres sont les suivants : v=w2.61 spécifie la version de l'API google à utiliser, x & y spécifient les coordonnées de la carte, zoom spécifie le niveau de zoom à appliquer ( Actuellement de 1 à 18 ). Le calcul de x & y dépendra de la valeur de zoom. La version actuelle est de w2.61, il est possible qu'elle soit ammenée à changer.

Le niveau de zoom définit le nombre d'images par niveau via une formule simple : tiles = Math.pow(2, 2*(18-zoom)). Au premier niveau, il n'y aura qu'une image, au second 4 images, au troisième 16... Toutes les images possèdent la même taille : 256x256 pixels ce qui rends leur utilisation beaucoup plus simple.

Fonction pour convertir de latitude / longitude en système Mercator : Private Function GetXYFromLatLon(ByVal Lat As Decimal, ByVal Lon As Decimal, _ ByVal zoomLevel As Integer) As Point Dim x As Integer Dim ty As Decimal Dim y As Integer Lon = Lon + 180 x = Int((Lon / 360) * 131072) x = x >> zoomLevel Lat = Lat / 180 * Math.PI ty = Math.PI - 0.5 * Math.Log((1 + Math.Sin(Lat)) / (1 - Math.Sin(Lat))) y = Int((ty / 2 / Math.PI) * 131072) y = y >> zoomLevel GetXYFromLatLon.X = x GetXYFromLatLon.Y = y End Function Fonction pour convertir du système Mercator en latitude / longitude : Public Structure Point_Decimal Dim X As Decimal Dim Y As Decimal End Structure Private Function GetLatLonFromXY(ByVal X As Integer, ByVal Y As Integer, _ ByVal zoomLevel As Integer, ByVal XOffset As Integer, ByVal YOffset As _ Integer) As Point_Decimal Dim zl As Integer = 17 - zoomLevel Dim DegreePerPixel = 360 / (1 << (zl + 8)) Dim Lon As Decimal = XOffset * DegreePerPixel + X * (360 / (1 << zl)) Lon = Lon - 180 Dim iY As Decimal = Y iY = iY + YOffset / 256 iY = iY / (1 << zl) iY = iY * (2 * Math.PI) iY = Math.PI - iY Dim LatRad As Decimal = 2 * Math.Atan(Math.Exp(iY)) Dim Lat As Decimal = LatRad * (180 / Math.PI) - 90 GetLatLonFromXY.X = Lat GetLatLonFromXY.Y = Lon End Function En utilisant ces fonctions il est facile d'identifier la carte à télécharger et à afficher dans vos applications !

Commentaires  | Ajouter un commentaire

-

Rechercher sur internet  ?  | Rechercher!

Trackback

Utilisez le lien http://www.sunyday.net/trackback-Convertir-des-coordonnees-GPS-en-Mercator-pour-GoogleMap pour faire un trackback vers cette article depuis votre site web. Les trackbacks sont soumis à une approbation mutuelle et susceptibles d'être supprimés si jugés indésirables.