diff options
| author | Thomas Knudsen <busstoptaktik@users.noreply.github.com> | 2017-11-15 09:03:39 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-11-15 09:03:39 +0100 |
| commit | 7aeb1fb3aaf5a7c14ba2a0513d5eca13a9ddd9d0 (patch) | |
| tree | ed3f73269f5da4fa0b241323b5d70041f0c8389a /src/PJ_lcc.c | |
| parent | 06b2f944d7844bb898ace8a7973f9182aa2234b1 (diff) | |
| download | PROJ-7aeb1fb3aaf5a7c14ba2a0513d5eca13a9ddd9d0.tar.gz PROJ-7aeb1fb3aaf5a7c14ba2a0513d5eca13a9ddd9d0.zip | |
Support numerical factors only (#664)
* Support numerical factors only
* Make sure h positive. Improve some comments
* Let pole overshoot check have effect even for geocentric latitudes
* Factor-typological constants, now all returning false, for backwards compatibility
Diffstat (limited to 'src/PJ_lcc.c')
| -rw-r--r-- | src/PJ_lcc.c | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/PJ_lcc.c b/src/PJ_lcc.c index bc02667a..a24d5ac0 100644 --- a/src/PJ_lcc.c +++ b/src/PJ_lcc.c @@ -73,21 +73,6 @@ static LP e_inverse (XY xy, PJ *P) { /* Ellipsoidal, inverse */ return lp; } -static void special(LP lp, PJ *P, struct FACTORS *fac) { - struct pj_opaque *Q = P->opaque; - double rho; - if (fabs(fabs(lp.phi) - M_HALFPI) < EPS10) { - if ((lp.phi * Q->n) <= 0.) return; - rho = 0.; - } else - rho = Q->c * (Q->ellips ? pow(pj_tsfn(lp.phi, sin(lp.phi), - P->e), Q->n) : pow(tan(M_FORTPI + .5 * lp.phi), -Q->n)); - fac->code |= IS_ANAL_HK + IS_ANAL_CONV; - fac->k = fac->h = P->k0 * Q->n * rho / - pj_msfn(sin(lp.phi), cos(lp.phi), P->es); - fac->conv = Q->n * lp.lam; -} - PJ *PROJECTION(lcc) { double cosphi, sinphi; @@ -139,7 +124,6 @@ PJ *PROJECTION(lcc) { P->inv = e_inverse; P->fwd = e_forward; - P->spc = special; return P; } |