diff options
Diffstat (limited to 'src/PJ_larr.c')
| -rw-r--r-- | src/PJ_larr.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/PJ_larr.c b/src/PJ_larr.c new file mode 100644 index 00000000..f44eab9f --- /dev/null +++ b/src/PJ_larr.c @@ -0,0 +1,15 @@ +#ifndef lint +static const char SCCSID[]="@(#)PJ_larr.c 4.1 94/02/15 GIE REL"; +#endif +#define PROJ_PARMS__ +#define PJ_LIB__ +#include <projects.h> +PROJ_HEAD(larr, "Larrivee") "\n\tMisc Sph, no inv."; +#define SIXTH .16666666666666666 +FORWARD(s_forward); /* sphere */ + xy.x = 0.5 * lp.lam * (1. + sqrt(cos(lp.phi))); + xy.y = lp.phi / (cos(0.5 * lp.phi) * cos(SIXTH * lp.lam)); + return (xy); +} +FREEUP; if (P) pj_dalloc(P); } +ENTRY0(larr) P->fwd = s_forward; P->inv = 0; P->es = 0.; ENDENTRY(P) |