Changeset 1525 for trunk/gui/scripts/unirect2d.tcl

Timestamp:

Jun 17, 2009 4:18:02 AM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/unirect2d.tcl (modified) (5 diffs)

trunk/gui/scripts/unirect2d.tcl

@@ -19 +19 @@
 
 itcl::class Rappture::Unirect2d {
-    constructor {xmlobj field cname} { # defined below }
+    constructor {xmlobj field cname {extents 1}} { # defined below }
     destructor { # defined below }
 
@@ -31 +31 @@
     private method GetSize { obj path varName }
 
-    private variable _axisOrder  "x y"
-    private variable _xMax 0
-    private variable _xMin 0
-    private variable _xNum 0
-    private variable _yMax 0
-    private variable _yMin 0
-    private variable _yNum 0
-    private variable _values "";        # BLT vector containing the z-values 
+    private variable _axisOrder "x y"
+    private variable _xMax      0
+    private variable _xMin      0
+    private variable _xNum      0
+    private variable _yMax      0
+    private variable _yMin      0
+    private variable _yNum      0
+    private variable _compNum   1
+    private variable _values    "";     # BLT vector containing the z-values 
     private variable _hints
 }
@@ -45 +46 @@
 # Constructor
 # ----------------------------------------------------------------------
-itcl::body Rappture::Unirect2d::constructor {xmlobj field cname} {
+itcl::body Rappture::Unirect2d::constructor {xmlobj field cname {extents 1}} {
     if {![Rappture::library isvalid $xmlobj]} {
         error "bad value \"$xmlobj\": should be Rappture::library"
@@ -58 +59 @@
     GetValue $m "yaxis.max" _yMax
     GetSize $m "yaxis.numpoints" _yNum
-    
+    set _compNum $extents
     foreach {key path} {
         group   about.group
@@ -97 +98 @@
     }
     $_values set $values
+    set n [expr $_xNum * $_yNum * $_compNum]
+    if { [$_values length] != $n } {
+        error "wrong \# of values in \"$cname.values\": expected $n values"
+    }
 }