Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (20 sloc) 0.536 kB
#define PROJ_PARMS__ \
double cosphi1;
#define PJ_LIB__
# include <projects.h>
PROJ_HEAD(wink1, "Winkel I") "\n\tPCyl., Sph.\n\tlat_ts=";
FORWARD(s_forward); /* spheroid */
xy.x = .5 * lp.lam * (P->cosphi1 + cos(lp.phi));
xy.y = lp.phi;
return (xy);
}
INVERSE(s_inverse); /* spheroid */
lp.phi = xy.y;
lp.lam = 2. * xy.x / (P->cosphi1 + cos(lp.phi));
return (lp);
}
FREEUP; if (P) pj_dalloc(P); }
ENTRY0(wink1)
P->cosphi1 = cos(pj_param(P->params, "rlat_ts").f);
P->es = 0.; P->inv = s_inverse; P->fwd = s_forward;
ENDENTRY(P)
Jump to Line
Something went wrong with that request. Please try again.