[GRASS-SVN] r35144 - grass/branches/develbranch_6/visualization/nviz/scripts

[svn_grass at osgeo.org]

Author: cmbarton
Date: 2009-01-01 12:42:48 -0500 (Thu, 01 Jan 2009)
New Revision: 35144

Modified:
   grass/branches/develbranch_6/visualization/nviz/scripts/widgets.tcl
Log:
Fix to permit 3D points to be loaded from the command line without first loading a surface.

Modified: grass/branches/develbranch_6/visualization/nviz/scripts/widgets.tcl
===================================================================
--- grass/branches/develbranch_6/visualization/nviz/scripts/widgets.tcl	2009-01-01 17:41:47 UTC (rev 35143)
+++ grass/branches/develbranch_6/visualization/nviz/scripts/widgets.tcl	2009-01-01 17:42:48 UTC (rev 35144)
@@ -324,6 +324,19 @@
 		set text_side left
 		set orient h
 	}
+    
+    # permits loading of 3D points without surface
+    if {$name == "height" && $curr == inf} {
+        set from 10000
+        set to 0
+        set curr 5000
+    }
+    if {$name == "z-exag" && $from == 0.0 && $to == 0.0 && $curr == 0.0 } {
+        set from 10.0 
+        set to 0.0 
+        set curr 1.000000
+    }
+        
 	#calculate number length for digits var
 	set num [llength [split [expr int($curr * 1)] ""]]
 	if {$num == 1} {