blob: dfb455e03cdf908da8ef10cb4b6568c6bd4c7a7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#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->ctx, P->params, "rlat_ts").f);
P->es = 0.; P->inv = s_inverse; P->fwd = s_forward;
ENDENTRY(P)
|
