blob: 9b31b09568e1e42a51072e8a35ebe7f93b626e95 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#define PJ_LIB__
#include <projects.h>
PROJ_HEAD(eck1, "Eckert I") "\n\tPCyl., Sph.";
#define FC .92131773192356127802
#define RP .31830988618379067154
FORWARD(s_forward); /* spheroid */
xy.x = FC * lp.lam * (1. - RP * fabs(lp.phi));
xy.y = FC * lp.phi;
return (xy);
}
INVERSE(s_inverse); /* spheroid */
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)
|
