Changeset 1757 for branches/blt4/gui/scripts/xylegend.tcl

Timestamp:

Jun 14, 2010, 12:04:02 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]
-        blt::spline natural $x $y $xcoords $ycoords
-
-        # 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]"