Changeset 1759 for branches/blt4

Timestamp:

Jun 14, 2010 12:57:46 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/xylegend.tcl (modified) (1 diff)

branches/blt4/gui/scripts/xylegend.tcl

@@ -474 +474 @@
     $sum length [$xcoords length]
 
-        foreach node $nodes {
-            set elem [$_tree label $node]
-            $x set [GetData $elem -x]
-            $y set [GetData $elem -y]
-            if { [catch {
-                blt::spline natural $x $y $xcoords $ycoords
-            }] != 0 } {
-            }
-            # Sum the interpolated y-coordinate values.
-            $sum expr "$sum + $ycoords" 
-        }
-        blt::vector destroy $x $y
-    }
+    foreach node $nodes {
+        set elem [$_tree label $node]
+        $x set [GetData $elem -x]
+        $y set [GetData $elem -y]
+        if { [catch {
+            blt::spline natural $x $y $xcoords $ycoords
+        }] != 0 } {
+        }
+        # Sum the interpolated y-coordinate values.
+        $sum expr "$sum + $ycoords" 
+    }
+    blt::vector destroy $x $y
+
     # Get the average
     $sum expr "$sum / [llength $elements]"