blob: b0b43da5ff4ae482234203cb2b9005b3fbee42c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#define PJ_LIB__
#include <projects.h>
PROJ_HEAD(eck1, "Eckert I") "\n\tPCyl., Sph.";
#define FC .92131773192356127802
#define RP .31830988618379067154
FORWARD(s_forward); /* spheroid */
(void) P;
xy.x = FC * lp.lam * (1. - RP * fabs(lp.phi));
xy.y = FC * lp.phi;
return (xy);
}
INVERSE(s_inverse); /* spheroid */
(void) P;
lp.phi = xy.y / FC;
lp.lam = xy.x / (FC * (1. - RP * fabs(lp.phi)));
return (lp);
}
FREEUP; if (P) pj_dalloc(P); }
ENTRY0(eck1)
P->es = 0.; P->inv = s_inverse; P->fwd = s_forward;
ENDENTRY(P)
|
