summaryrefslogtreecommitdiff
path: root/src/3rdparty/proj/PJ_urmfps.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/3rdparty/proj/PJ_urmfps.c')
-rw-r--r--src/3rdparty/proj/PJ_urmfps.c40
1 files changed, 0 insertions, 40 deletions
diff --git a/src/3rdparty/proj/PJ_urmfps.c b/src/3rdparty/proj/PJ_urmfps.c
deleted file mode 100644
index 4a4f31a9..00000000
--- a/src/3rdparty/proj/PJ_urmfps.c
+++ /dev/null
@@ -1,40 +0,0 @@
-#define PROJ_PARMS__ \
- double n, C_y;
-#define PJ_LIB__
-#include <projects.h>
-PROJ_HEAD(urmfps, "Urmaev Flat-Polar Sinusoidal") "\n\tPCyl, Sph.\n\tn=";
-PROJ_HEAD(wag1, "Wagner I (Kavraisky VI)") "\n\tPCyl, Sph.";
-#define C_x 0.8773826753
-#define Cy 1.139753528477
-FORWARD(s_forward); /* sphere */
- lp.phi = aasin(P->n * sin(lp.phi));
- xy.x = C_x * lp.lam * cos(lp.phi);
- xy.y = P->C_y * lp.phi;
- return (xy);
-}
-INVERSE(s_inverse); /* sphere */
- xy.y /= P->C_y;
- lp.phi = aasin(sin(xy.y) / P->n);
- lp.lam = xy.x / (C_x * cos(xy.y));
- return (lp);
-}
-FREEUP; if (P) pj_dalloc(P); }
- static PJ *
-setup(PJ *P) {
- P->C_y = Cy / P->n;
- P->es = 0.;
- P->inv = s_inverse;
- P->fwd = s_forward;
- return P;
-}
-ENTRY0(urmfps)
- if (pj_param(P->params, "tn").i) {
- P->n = pj_param(P->params, "dn").f;
- if (P->n <= 0. || P->n > 1.)
- E_ERROR(-40)
- } else
- E_ERROR(-40)
-ENDENTRY(setup(P))
-ENTRY0(wag1)
- P->n = 0.8660254037844386467637231707;
-ENDENTRY(setup(P))