From b66f416f71338f5681535efc94c0effcb92ae9c4 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 30 Dec 2020 15:50:27 +0000
Subject: [PATCH] LazMapViewer: Simplify calculation of earth eccentricity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7951 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/lazmapviewer/source/mvengine.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/components/lazmapviewer/source/mvengine.pas b/components/lazmapviewer/source/mvengine.pas
index 60c85373c..1e24b3674 100644
--- a/components/lazmapviewer/source/mvengine.pas
+++ b/components/lazmapviewer/source/mvengine.pas
@@ -27,8 +27,7 @@ const
   EARTH_EQUATORIAL_RADIUS = 6378137;
   EARTH_POLAR_RADIUS = 6356752.3142;
   EARTH_CIRCUMFERENCE = 2 * pi * EARTH_EQUATORIAL_RADIUS;
-  EARTH_ECCENTRICITY = sqrt(1-( exp(2*ln(EARTH_POLAR_RADIUS)) / exp(2*ln(EARTH_EQUATORIAL_RADIUS))));
-    // power() doesn't work in interface
+  EARTH_ECCENTRICITY = sqrt(1 - sqr(EARTH_POLAR_RADIUS / EARTH_EQUATORIAL_RADIUS));
 
 type
   TDrawTileEvent = Procedure (const TileId: TTileId; X,Y: integer;