Changeset 1463 for trunk/gui/scripts/field2dresult.tcl

Timestamp:

May 19, 2009 6:47:11 PM (15 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/field2dresult.tcl

@@ -55 +55 @@
     }
     array set flags $args
-    if { $flags(-mode) == "heightmap" } {
-        set servers [Rappture::VisViewer::GetServerList "nanovis"]
-        if { $servers == "" } {
-            error "No nanovis servers available"
+    set servers [Rappture::VisViewer::GetServerList "nanovis"]
+    if {"" != $servers && $flags(-mode) != "vtk"} {
+        switch -- $flags(-mode) {
+            "auto" - "heightmap" {
+                itk_component add renderer {
+                    Rappture::HeightmapViewer $itk_interior.ren $servers
+                }
+            }
+            "flowvis" {
+                itk_component add renderer {
+                    Rappture::FlowvisViewer $itk_interior.ren $servers
+                }
+            }
+            default {
+                puts stderr "unknown render mode \"$flags(-mode)\""
+            }
+        }               
+        pack $itk_component(renderer) -expand yes -fill both
+        # can't connect to rendering farm?  then fall back to older viewer
+        if {![$itk_component(renderer) isconnected]} {
+            destroy $itk_component(renderer)
         }
-        itk_component add renderer {
-            Rappture::HeightmapViewer $itk_interior.ren $servers
-        }
-        pack $itk_component(renderer) -expand yes -fill both
-    } else {
+    } 
+
+    if {![info exists itk_component(renderer)]} {
         itk_component add renderer {
             Rappture::ContourResult $itk_interior.ren