diff options
| author | Frank Warmerdam <warmerdam@pobox.com> | 2011-03-15 18:16:10 +0000 |
|---|---|---|
| committer | Frank Warmerdam <warmerdam@pobox.com> | 2011-03-15 18:16:10 +0000 |
| commit | 7327ac23c34e92debfd8ef21c872559eb26b16c3 (patch) | |
| tree | c269fd02ae2de624f76530b92a10ba0ecd854fde /src/proj_etmerc.c | |
| parent | c174749873eaa0143e96d89138b47fc1e3a15a6d (diff) | |
| download | PROJ-7327ac23c34e92debfd8ef21c872559eb26b16c3.tar.gz PROJ-7327ac23c34e92debfd8ef21c872559eb26b16c3.zip | |
fix up a few items for windows
git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@1985 4e78687f-474d-0410-85f9-8d5e500ac6b2
Diffstat (limited to 'src/proj_etmerc.c')
| -rw-r--r-- | src/proj_etmerc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/proj_etmerc.c b/src/proj_etmerc.c index 4b42f23a..3a389600 100644 --- a/src/proj_etmerc.c +++ b/src/proj_etmerc.c @@ -145,7 +145,7 @@ FORWARD(e_forward); /* ellipsoid */ Cn = atan2(sin_Cn, cos_Ce*cos_Cn); Ce = atan2(sin_Ce*cos_Cn, hypot(sin_Cn, cos_Cn*cos_Ce)); /* compl. sph. N, E -> ell. norm. N, E */ - Ce = log(tan(M_PI_4 + Ce*0.5)); + Ce = log(tan(FORTPI + Ce*0.5)); Cn += clenS(P->gtu, 5, 2.*Cn, 2.*Ce, &dCn, &dCe); Ce += dCe; if (FABS(Ce) <= 2.623395162778) { @@ -168,7 +168,7 @@ INVERSE(e_inverse); /* ellipsoid */ /* norm. N, E -> compl. sph. LAT, LNG */ Cn += clenS(P->utg, 5, 2.*Cn, 2.*Ce, &dCn, &dCe); Ce += dCe; - Ce = 2.0*(atan(exp(Ce)) - M_PI_4); + Ce = 2.0*(atan(exp(Ce)) - FORTPI); /* compl. sph. LAT -> Gaussian LAT, LNG */ #ifdef _GNU_SOURCE sincos(Cn, &sin_Cn, &cos_Cn); |