From d3506b59ebf799225600bab48e697f8ed6a2c1e9 Mon Sep 17 00:00:00 2001
From: Frank Warmerdam <warmerdam@pobox.com>
Date: Thu, 14 Sep 2006 13:10:50 +0000
Subject: Add +czech flag to control reversal of signs (bug 1133,147)

git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@1342 4e78687f-474d-0410-85f9-8d5e500ac6b2
---
 src/PJ_krovak.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src')

diff --git a/src/PJ_krovak.c b/src/PJ_krovak.c
index 0bffe188..8cdbda1f 100644
--- a/src/PJ_krovak.c
+++ b/src/PJ_krovak.c
@@ -30,6 +30,9 @@
  ******************************************************************************
  *
  * $Log$
+ * Revision 1.6  2006/09/14 13:10:50  fwarmerdam
+ * Add +czech flag to control reversal of signs (bug 1133,147)
+ *
  * Revision 1.5  2006/03/30 01:22:48  fwarmerdam
  * Removed win32 only debug hack.
  *
@@ -139,6 +142,12 @@ FORWARD(s_forward); /* spheroid */
 	xy.y = ro * cos(eps) / a;
 	xy.x = ro * sin(eps) / a;
 
+        if( !pj_param(P -> params, "tczech").i )
+	  {
+	    xy.y *= -1.0;
+	    xy.x *= -1.0;
+	  }
+
 	return (xy);
 }
 
@@ -188,6 +197,12 @@ INVERSE(s_inverse); /* spheroid */
 	xy.x=xy.y;
 	xy.y=xy0;
 
+        if( !pj_param(P -> params, "tczech").i )
+	  {
+	    xy.x *= -1.0;
+	    xy.y *= -1.0;
+	  }
+
 	ro = sqrt(xy.x * xy.x + xy.y * xy.y);
 	eps = atan2(xy.y, xy.x);
 	d = eps / sin(s0);
-- 
cgit v1.2.3