Changeset 3016 for branches/blt4

Timestamp:

May 23, 2012, 10:40:11 AM (12 years ago)

Author:

gah

Message:

fix for histogram index

File:

• branches/blt4/gui/scripts/histogramresult.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/histogramresult.tcl

@@ -731 +731 @@
             } else {
                 set r [blt::vector expr {max($xv) - min($xv)}]
-                set z [expr {$r / ([$xv length]-1) * 0.8}]
+                set length [$xv length]
+                if { $length > 1 } {
+                    set z [expr {$r / ([$xv length]-1) * 0.8}]
+                } else {
+                    set z 1
+                }
                 set elem "elem[incr count]"
                 set _elem2dataobj($elem) $dataobj
@@ -1590 +1595 @@
     # Determine the element name from the value
     set index [expr round($value)]
-    if { [info exists _xlabels($index)] } {
-        return $_xlabels($index)
-    } 
+    set d [expr abs($value - $index)]
+    # Ignore values that aren't close to the integer value
+    if { $d < 0.00000001 } {
+        if { [info exists _xlabels($index)] } {
+            return $_xlabels($index)
+        } 
+    }
     return " "
 }