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

2 files changed, 22 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 014467db..0bec93ab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-09-14  Frank Warmerdam  <warmerdam@pobox.com>
+
+	* src/PJ_krovak.c: Add +czech flag to apply non-useful sign reversal
+	that someone once apparently thought was a good idea.  By default work
+	like folks want.  Contributed by Martin Landa and Radim Blazek. 
+	Bug 1133, and 147.
+
 2006-07-07  Frank Warmerdam  <warmerdam@pobox.com>
 
 	* Added esri.extra and other.extra to distributed and installed files
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);