📄 pj_eqc.c
字号:
#ifndef lintstatic const char SCCSID[]="@(#)PJ_eqc.c 4.1 94/02/15 GIE REL";#endif#define PROJ_PARMS__ \ double rc;#define PJ_LIB__# include <projects.h>PROJ_HEAD(eqc, "Equidistant Cylindrical (Plate Caree)") "\n\tCyl, Sph\n\tlat_ts=";FORWARD(s_forward); /* spheroid */ xy.x = P->rc * lp.lam; xy.y = lp.phi; return (xy);}INVERSE(s_inverse); /* spheroid */ lp.phi = xy.y; lp.lam = xy.x / P->rc; return (lp);}FREEUP; if (P) pj_dalloc(P); }ENTRY0(eqc) if ((P->rc = cos(pj_param(P->params, "rlat_ts").f)) <= 0.) E_ERROR(-24); P->inv = s_inverse; P->fwd = s_forward; P->es = 0.;ENDENTRY(P)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -