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

[svn_grass at osgeo.org]

Author: neteler
Date: 2008-12-23 06:25:56 -0500 (Tue, 23 Dec 2008)
New Revision: 35002

Modified:
   grass/trunk/raster/r.horizon/main.c
Log:
write history files

Modified: grass/trunk/raster/r.horizon/main.c
===================================================================
--- grass/trunk/raster/r.horizon/main.c	2008-12-23 11:17:00 UTC (rev 35001)
+++ grass/trunk/raster/r.horizon/main.c	2008-12-23 11:25:56 UTC (rev 35002)
@@ -159,7 +159,6 @@
 {
     double xcoord, ycoord;
 
-
     struct GModule *module;
     struct
     {
@@ -1062,7 +1061,6 @@
     int hor_numrows = m - (buffer_s + buffer_n);
     int hor_numcols = n - (buffer_e + buffer_w);
 
-    /*      char shad_filename[256]; */
     int arrayNumInt;
     double dfr_rad;
 
@@ -1135,6 +1133,8 @@
 	sprintf(formatString, "%%s_%%0%dd", numDigits);
 
 	for (k = 0; k < arrayNumInt; k++) {
+	   struct History history; 
+
 	    if (step != 0.0)
 		sprintf(shad_filename, formatString, horizon, k);
 	    angle = (single_direction * deg2rad) + (dfr_rad * k);
@@ -1263,6 +1263,12 @@
 		if (G_set_window(&new_cellhd) == -1)
 		    exit(0);
 	    }
+
+	    G_short_history(shad_filename, "raster", &history);
+	    G_command_history(&history);
+	    G_write_history(shad_filename, &history);
+
+
 	}
 
     }