From 565a4bd035b9d4a83955808efef20f1d8dfa24cf Mon Sep 17 00:00:00 2001
From: Frank Warmerdam <warmerdam@pobox.com>
Date: Thu, 18 Mar 1999 16:34:52 +0000
Subject: New

git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@776 4e78687f-474d-0410-85f9-8d5e500ac6b2
---
 src/PJ_mill.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/PJ_mill.c

(limited to 'src/PJ_mill.c')

diff --git a/src/PJ_mill.c b/src/PJ_mill.c
new file mode 100644
index 00000000..a9e40a74
--- /dev/null
+++ b/src/PJ_mill.c
@@ -0,0 +1,18 @@
+#ifndef lint
+static const char SCCSID[]="@(#)PJ_mill.c	4.1	94/02/15	GIE	REL";
+#endif
+#define PJ_LIB__
+# include	<projects.h>
+PROJ_HEAD(mill, "Miller Cylindrical") "\n\tCyl, Sph";
+FORWARD(s_forward); /* spheroid */
+	xy.x = lp.lam;
+	xy.y = log(tan(FORTPI + lp.phi * .4)) * 1.25;
+	return (xy);
+}
+INVERSE(s_inverse); /* spheroid */
+	lp.lam = xy.x;
+	lp.phi = 2.5 * (atan(exp(.8 * xy.y)) - FORTPI);
+	return (lp);
+}
+FREEUP; if (P) pj_dalloc(P); }
+ENTRY0(mill) P->es = 0.; P->inv = s_inverse; P->fwd = s_forward; ENDENTRY(P)
-- 
cgit v1.2.3