Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 19 lines (19 sloc) 0.555 kb
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(gall, "Gall (Gall Stereographic)") "\n\tCyl, Sph";
#define YF 1.70710678118654752440
#define XF 0.70710678118654752440
#define RYF 0.58578643762690495119
#define RXF 1.41421356237309504880
FORWARD(s_forward); /* spheroid */
xy.x = XF * lp.lam;
xy.y = YF * tan(.5 * lp.phi);
return (xy);
}
INVERSE(s_inverse); /* spheroid */
lp.lam = RXF * xy.x;
lp.phi = 2. * atan(xy.y * RYF);
return (lp);
}
FREEUP; if (P) pj_dalloc(P); }
ENTRY0(gall) P->es = 0.; P->inv = s_inverse; P->fwd = s_forward; ENDENTRY(P)
Something went wrong with that request. Please try again.