Changeset 4387 for branches/1.3/gui/scripts/field.tcl

Timestamp:

Jun 16, 2014, 10:42:46 AM (10 years ago)

Author:

gah

Message:

add check for number of field points

File:

• branches/1.3/gui/scripts/field.tcl (modified) (4 diffs)

branches/1.3/gui/scripts/field.tcl

@@ -1068 +1068 @@
 # numComponents --
 #
-# Returns if the number of components in the field component.
+# Returns the number of components in the field component.
 #
 itcl::body Rappture::Field::numComponents {cname} {
@@ -1539 +1539 @@
             }
         }
-        if { $dim  != 3 } {
+        if { $dim != 3 } {
             set _dim $dim
         }
@@ -1581 +1581 @@
             set _viewer "contour"
         }
+        set numFieldValues [$v length]
+        set numComponentsPerPoint [numComponents $cname]
+        set numPoints [$mesh numpoints]
+        if { ($numPoints * $numComponentsPerPoint) != $numFieldValues } {
+            puts stderr "ERROR: Number of points in mesh and field values don't agree"
+            return 0
+        }
+
         set _comp2dims($cname) "[$mesh dimensions]D"
         set _comp2mesh($cname) [list $mesh $v]
@@ -1603 +1611 @@
             return 0
         }
+        set numFieldValues [$v length]
+        set numComponentsPerPoint [numComponents $cname]
+        set numPoints [$mesh numpoints]
+        if { ($numPoints * $numComponentsPerPoint) != $numFieldValues } {
+            puts stderr "ERROR: Number of points in mesh and field values don't agree"
+            return 0
+        }
         set _comp2dims($cname) "[$mesh dimensions]D"
         set _comp2mesh($cname) [list $mesh $v]