blob: 4b566993b75b29c4d7bde884cccb50243b09e80f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#ifndef lint
static const char SCCSID[]="@(#)PJ_mpoly.c 4.1 94/05/22 GIE REL";
#endif
#define PROJ_PARMS__ \
double rho_0;
#define PJ_LIB__
#include <projects.h>
PROJ_HEAD(mpoly, "Modified Polyconic")
"\n\tPolyconic, Sph\n\tlat_1= and lat_2= lotsa";
FORWARD(s_forward); /* spheroid */
return (xy);
}
INVERSE(s_inverse); /* ellipsoid & spheroid */
return (lp);
}
FREEUP; if (P) pj_dalloc(P); }
ENTRY0(mpoly)
P->fwd = s_forward;
P->inv = s_inverse;
P->es = 0;
ENDENTRY(P)
|
