[GRASS-SVN] r35004 - grass/branches/releasebranch_6_4/raster/r.horizon

[svn_grass at osgeo.org]

Author: neteler
Date: 2008-12-23 06:27:23 -0500 (Tue, 23 Dec 2008)
New Revision: 35004

Modified:
   grass/branches/releasebranch_6_4/raster/r.horizon/main.c
Log:
write history files (merge from trunk, r35002)

Modified: grass/branches/releasebranch_6_4/raster/r.horizon/main.c
===================================================================
--- grass/branches/releasebranch_6_4/raster/r.horizon/main.c	2008-12-23 11:26:13 UTC (rev 35003)
+++ grass/branches/releasebranch_6_4/raster/r.horizon/main.c	2008-12-23 11:27:23 UTC (rev 35004)
@@ -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);
+
+
 	}
 
     }