root / org.gvsig.jcrs / libjni-proj4 / src / PJ_wag7.c @ 36
History | View | Annotate | Download (542 Bytes)
1 | 36 | jjdelcerro | #ifndef lint
|
---|---|---|---|
2 | static const char SCCSID[]="@(#)PJ_wag7.c 4.1 94/02/15 GIE REL"; |
||
3 | #endif
|
||
4 | #define PJ_LIB__
|
||
5 | #include <projects.h> |
||
6 | PROJ_HEAD(wag7, "Wagner VII") "\n\tMisc Sph, no inv."; |
||
7 | FORWARD(s_forward); /* sphere */
|
||
8 | double theta, ct, D;
|
||
9 | |||
10 | theta = asin(xy.y = 0.90630778703664996 * sin(lp.phi)); |
||
11 | xy.x = 2.66723 * (ct = cos(theta)) * sin(lp.lam /= 3.); |
||
12 | xy.y *= 1.24104 * (D = 1/(sqrt(0.5 * (1 + ct * cos(lp.lam))))); |
||
13 | xy.x *= D; |
||
14 | return (xy);
|
||
15 | } |
||
16 | FREEUP; if (P) pj_dalloc(P); }
|
||
17 | ENTRY0(wag7) P->fwd = s_forward; P->inv = 0; P->es = 0.; ENDENTRY(P) |