diff options
Diffstat (limited to 'src/PJ_eck1.c')
| -rw-r--r-- | src/PJ_eck1.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/PJ_eck1.c b/src/PJ_eck1.c new file mode 100644 index 00000000..18524246 --- /dev/null +++ b/src/PJ_eck1.c @@ -0,0 +1,22 @@ +#ifndef lint +static const char SCCSID[]="@(#)PJ_eck1.c 4.1 94/02/15 GIE REL"; +#endif +#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) |