Changeset 893 for trunk/gui/scripts/sequenceresult.tcl

Timestamp:

Feb 16, 2008, 10:56:42 PM (16 years ago)

Author:

dkearney

Message:

added 2D fields to the list of objects that can be visualized in a sequence, even though it is usually painfully slow right now.
also added some error checking for field objects with multiple components, all components need to be of the same dimensions to be visualized in a sequence.

File:

• trunk/gui/scripts/sequenceresult.tcl (modified) (1 diff)

trunk/gui/scripts/sequenceresult.tcl

@@ -428 +428 @@
             }
             ::Rappture::Field {
-                Rappture::Field3DResult $viewer
+                set dimensions ""
+                set dim ""
+                foreach dim [$dataobj components -dimensions] {
+                    # check to see if the dimensions are the same
+                    # for all elements of the field. i dont think
+                    # we can display fields of differing dimensions
+                    # within the same field object.
+                    if {"" != $dimensions} {
+                        if {$dimensions != $dim} {
+                            error "don't know how to view sequences of $type\
+                                with dimensions as follows:\
+                                [$dataobj components -dimensions]"
+                        }
+                    } else {
+                        set dimensions $dim
+                    }
+                }
+                switch -- $dimensions {
+                    2D {
+                        Rappture::Field2DResult $viewer
+                    }
+                    3D {
+                        Rappture::Field3DResult $viewer
+                    }
+                    default {
+                        error "don't know how to view sequences of $type\
+                            with $dimensions dimensions"
+                    }
+                }
                 pack $viewer -expand yes -fill both
             }