EVOLUTION-MANAGER

Edit File: wag7.cpp

#define PJ_LIB__ #include <math.h> #include "proj.h" #include "proj_internal.h" PROJ_HEAD(wag7, "Wagner VII") "\n\tMisc Sph, no inv"; static PJ_XY wag7_s_forward (PJ_LP lp, PJ *P) { /* Spheroidal, forward */ PJ_XY xy = {0.0, 0.0}; double theta, ct, D; (void) P; /* Shut up compiler warnnings about unused P */ theta = asin (xy.y = 0.90630778703664996 * sin(lp.phi)); xy.x = 2.66723 * (ct = cos (theta)) * sin (lp.lam /= 3.); xy.y *= 1.24104 * (D = 1/(sqrt (0.5 * (1 + ct * cos (lp.lam))))); xy.x *= D; return (xy); } PJ *PROJECTION(wag7) { P->fwd = wag7_s_forward; P->inv = nullptr; P->es = 0.; return P; }