[GRASS-SVN] r63611 - grass-addons/grass7/imagery/i.theilsen

[svn_grass at osgeo.org]

Author: ychemin
Date: 2014-12-19 05:09:11 -0800 (Fri, 19 Dec 2014)
New Revision: 63611

Modified:
   grass-addons/grass7/imagery/i.theilsen/main.c
Log:
Fixed colour palette

Modified: grass-addons/grass7/imagery/i.theilsen/main.c
===================================================================
--- grass-addons/grass7/imagery/i.theilsen/main.c	2014-12-19 10:41:51 UTC (rev 63610)
+++ grass-addons/grass7/imagery/i.theilsen/main.c	2014-12-19 13:09:11 UTC (rev 63611)
@@ -197,7 +197,7 @@
     }
     if( ts_max > 0.0 ){
         val1 = 0.0;
-        val2 = 900.0;
+        val2 = ts_max;
         /*val2 = ceil(ts_max);*/
         Rast_add_d_color_rule(&val1,255,255,255,&val2,0,0,255,&colors);
     }
@@ -211,7 +211,7 @@
     Rast_init_colors(&colors);
     val1 = mk_min;
     val2 = ceil(mk_max);
-    Rast_add_d_color_rule(&val1,0,0,0,&val2,255,255,255,&colors);
+    Rast_add_d_color_rule(&val1,255,0,0,&val2,255,255,0,&colors);
     Rast_write_colors(out1->answer, G_mapset(), &colors);
     /* Metadata */
     Rast_short_history(out1->answer, "raster", &history);