Changeset 885 for trunk/gui/scripts/field.tcl

Timestamp:

Feb 14, 2008, 9:43:54 AM (17 years ago)

Author:

gah

Message:

fixes for isosurfaces, added experimental <opendx> tag handler

File:

• trunk/gui/scripts/field.tcl (modified) (2 diffs)

trunk/gui/scripts/field.tcl

@@ -532 +532 @@
         } elseif {[$_field element $cname.vtk] != ""} {
             set type "vtk"
+        } elseif {[$_field element $cname.opendx] != ""} {
+            set type "opendx"
         } elseif {[$_field element $cname.dx] != ""} {
             set type "dx"
@@ -693 +695 @@
             set _comp2style($cname) [$_field get $cname.style]
             incr _counter
+        } elseif {$type == "opendx"} {
+            #
+            # HACK ALERT!  Extract gzipped, base64-encoded OpenDX
+            # data.  Assume that it's 3D.  Pass it straight
+            # off to the NanoVis visualizer.
+            #
+            set _comp2dims($cname) "3D"
+            set data [$_field get -decode yes $cname.opendx]
+            set data [Rappture::encoding::decode -as zb64 $data]
+
+            global fcount
+            if { ![info exists fcount] } {
+                set fcount 0
+            }
+            incr fcount
+            set f [open "opendx-$fcount.dx" "w"]
+            puts $f $data
+            close $f
+
+            set data "<ODX>$data"
+            set data [Rappture::encoding::encode -as zb64 $data]
+            set _comp2dx($cname) $data
+            set _comp2style($cname) [$_field get $cname.style]
+            incr _counter
         }
     }