// Position de la Tour Eiffel
// --------------------------
gPosition est une geoPosition
gPosition.Latitude = 48.85837
gPosition.Longitude = 2.294481

// Affichage du cercle
// -------------------
nRayon est un entier = 500 // Rayon du cercle en mètres (autour de la Tour Eiffel)
cCercle est un CarteCercle
cCercle.Centre = gPosition
cCercle.Rayon = nRayon
CarteAjouteForme(Carte1,cCercle)

// Calcul la zone à afficher (zoom automatique)
// -------------------------------------------------
// Explication rapide :
// La Terre fait en moyenne 1 degré de latitude (soit environ 111 320 mètres.)
// Si on avance de 500m (rayon du cercle) vers le nord, il faut donc ajouter 500/111320 (soit environ 0,00449 degrés à la latitude).
// Pour la longitude, il faut corriger avec le cosinus de la latitude (46 degré en moyenne pour la France)
// Par conséquent, si on avance de 500m (rayon du cercle) vers le sud, il faut donc ajouter 500/(111320*Cos(46)) (soit environ 0,00695 degrés à la longitude)
gPosNO est une geoPosition
gPosSE est une geoPosition
gPosNO.Latitude = (gPosition.Latitude+(nRayon/111320))
gPosNO.Longitude = (gPosition.Longitude-(nRayon/(111320*Cosinus(46))))
gPosSE.Latitude = (gPosition.Latitude-(nRayon/111320))
gPosSE.Longitude = (gPosition.Longitude+(nRayon/(111320*Cosinus(46))))
CarteAfficheZone(Carte1,gPosNO,gPosSE)