PageRenderTime 24ms CodeModel.GetById 16ms app.highlight 5ms RepoModel.GetById 1ms app.codeStats 0ms

/Proj4/PJ_larr.c

http://github.com/route-me/route-me
C | 15 lines | 15 code | 0 blank | 0 comment | 1 complexity | 01e5a2d039a2cc4e4fc4ac4e88b809f5 MD5 | raw file
 1#ifndef lint
 2static const char SCCSID[]="@(#)PJ_larr.c	4.1	94/02/15	GIE	REL";
 3#endif
 4#define PROJ_PARMS__
 5#define PJ_LIB__
 6#include	"projects.h"
 7PROJ_HEAD(larr, "Larrivee") "\n\tMisc Sph, no inv.";
 8#define SIXTH .16666666666666666
 9FORWARD(s_forward); /* sphere */
10	xy.x = 0.5 * lp.lam * (1. + sqrt(cos(lp.phi)));
11	xy.y = lp.phi / (cos(0.5 * lp.phi) * cos(SIXTH * lp.lam));
12	return (xy);
13}
14FREEUP; if (P) pj_dalloc(P); }
15ENTRY0(larr) P->fwd = s_forward; P->inv = 0; P->es = 0.; ENDENTRY(P)