[GRASS-SVN] r73049 - grass/trunk/raster/r.horizon

[svn_grass at osgeo.org]

Author: mmetz
Date: 2018-08-04 02:16:27 -0700 (Sat, 04 Aug 2018)
New Revision: 73049

Modified:
   grass/trunk/raster/r.horizon/main.c
Log:
r.horizon: allow negative angles

Modified: grass/trunk/raster/r.horizon/main.c
===================================================================
--- grass/trunk/raster/r.horizon/main.c	2018-08-03 22:06:44 UTC (rev 73048)
+++ grass/trunk/raster/r.horizon/main.c	2018-08-04 09:16:27 UTC (rev 73049)
@@ -768,7 +768,7 @@
 {
     double height;
 
-    tanh0 = 0.;
+    tanh0 = -1.0 / 0.0;  /* -inf */
     length = 0;
 
     height = searching();