1 files changed, 20 insertions, 0 deletions
diff --git a/src/3rdparty/proj/PJ_wink1.c b/src/3rdparty/proj/PJ_wink1.c
new file mode 100644
index 00000000..214e6f4f
--- /dev/null
+++ b/src/3rdparty/proj/PJ_wink1.c
@@ -0,0 +1,20 @@
+#define PROJ_PARMS__ \
+	double	cosphi1;
+#define PJ_LIB__
+# include	<projects.h>
+PROJ_HEAD(wink1, "Winkel I") "\n\tPCyl., Sph.\n\tlat_ts=";
+FORWARD(s_forward); /* spheroid */
+	xy.x = .5 * lp.lam * (P->cosphi1 + cos(lp.phi));
+	xy.y = lp.phi;
+	return (xy);
+}
+INVERSE(s_inverse); /* spheroid */
+	lp.phi = xy.y;
+	lp.lam = 2. * xy.x / (P->cosphi1 + cos(lp.phi));
+	return (lp);
+}
+FREEUP; if (P) pj_dalloc(P); }
+ENTRY0(wink1)
+	P->cosphi1 = cos(pj_param(P->params, "rlat_ts").f);
+	P->es = 0.; P->inv = s_inverse; P->fwd = s_forward;
+ENDENTRY(P)