Projection de Mercator

[MetalOS]

Grace à l'aide d'un utilisateur du forum anglais voici un exemple de placement d'un point sur une carte qui utilise une projection de mercator.

Voici la carte utilisé:



Voici les limites de la carte:

Nord: 52
Ouest: -5.5
Est: 10
Sud: 40.9166

Et voici le code pour placer le point sur la carte:

Code : Tout sélectionner

EnableExplicit

Procedure.d MercatorProjection(b.d)
  ProcedureReturn(Log(Tan(#PI / 4.0 + b * #PI / 360.0)))
EndProcedure

Procedure.d MercatorScaleFactor(XSize.i, East.d, West.d)
  ProcedureReturn(XSize / (Radian(East) - Radian(West)))
EndProcedure

Procedure.d MercatorY(b.d, Scale.d, North.d) ; using Latitude
  ProcedureReturn((Scale * (MercatorProjection(North) - MercatorProjection(b))))
EndProcedure

Procedure.d MercatorX(l.d, Scale.d, West.d) ; using Longitude
  ProcedureReturn((Scale * (Radian(l) - Radian(West))))
EndProcedure


Define.i Img, ImgWidth, ImgHeight, X, Y
Define.d Latitude, Longitude, Scale


#ImgNorth = 52
#ImgWest = -5.5
#ImgEast = 10
#ImgSouth = 40.9166

;Coordonnées de Paris
Latitude = 48.853
Longitude = 2.35

UsePNGImageDecoder()

Img = LoadImage(#PB_Any, "Map.png")
If Img  
  
  ImgWidth = ImageWidth(Img)
  ImgHeight = ImageHeight(Img)
  
  Scale = MercatorScaleFactor(ImgWidth, #ImgEast, #ImgWest)
  X = MercatorX(Longitude, Scale, #ImgWest)
  Y = MercatorY(Latitude, Scale, #ImgNorth)
  
  StartDrawing(ImageOutput(Img))
  Circle(X, Y, 5, $0000FF)
  StopDrawing()
  
  OpenWindow(0, 0, 0, ImgWidth, ImgHeight, "Mercator", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ImageGadget(0, 0, 0, 0, 0, ImageID(Img))
  
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
  
EndIf

Pour créer des carte à projection de mercator vous pouvez utiliser ceci: http://gmt.soest.hawaii.edu/

Bonne utilisation

[Micoute]

Bonjour MetalOS et merci beaucoup pour ce partage.

[MetalOS]

De rien c'est un truc que je cherche à faire depuis 4 ans et c'était si simple.

[G-Rom]

Tu aurais posé la question ici je t'aurais donner la solution !
J'avais codé une application qui reproduisait en 3D toutes les villes de la terre , chaque ville était un point ( j'avais trouvé une liste sur le net de qq centaine de mo )
et je faisait tourné mon beau globe ^^

[MetalOS]

J'avais déjà posté il y à un moment sur le forum francophone. Pas grave ça permet aussi de ce creuser la tête.

[Kwai chang caine]

Impressionnant ce code, j'ai essayé avec mes coordonnées et ça marche nickel
Merci MetalOs

[MetalOS]

De rien, le plus dur et de trouver une carte perso. Je me demande si il n'est pas possible le d'utiliser ce code avec une carte Google Map dans un Web gadget.

[Kwai chang caine]

Alors la ... tu imagines que je peux pas te le dire....mais c'est super intéréssant comme sujet à l'époque ou on peux pas aller aux toilettes sans être géolocalisé

Pour ce qui est de l'utilisation avec Google Map, Goddle seul le sait

[MetalOS]

Suis les traces pour retrouver les toilettes

[Kwai chang caine]

Ou alors il faudrait installer un "Sniffer" sur la machine

[MetalOS]

Pour créer des cartes interactive ou statiques vous pouvez utiliser le logiciel Tilemill sur mapbox.

https://www.mapbox.com/tilemill/

[Kwai chang caine]

Un truc que j'ai pas compris (Etonnant non ?? )
Une fois que tu as ta carte comme la france que tu as créé, tu n'as pas besoin d'en créér d'autres ??
Juste si par exemple, tu n'as besoin que d'une carte de PARIS avec les rues et "tout le toutim" pour positionner les coordonnées GPS dessus, alors tu auras besoin de créé une nouvelle carte, c'est bien ça ??

[MetalOS]

Oui

[Kwai chang caine]

Merci METALOS

[MetalOS]

Quelqu'un sait comment faire pour calculer une distance entre deux points avec coordonnées géographique décimal ?