blob: 5f6f1bb182c9172b7b2fe5b8a832372d1ff18655 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#define PJ_LIB__
#include <projects.h>
PROJ_HEAD(wag7, "Wagner VII") "\n\tMisc Sph, no inv.";
FORWARD(s_forward); /* sphere */
double theta, ct, D;
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);
}
FREEUP; if (P) pj_dalloc(P); }
ENTRY0(wag7) P->fwd = s_forward; P->inv = 0; P->es = 0.; ENDENTRY(P)
|
