Changeset 1929 for trunk/gui/scripts/field3dresult.tcl
- Timestamp:
- Oct 22, 2010, 4:06:10 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/field3dresult.tcl
r1854 r1929 52 52 itcl::body Rappture::Field3DResult::constructor {args} { 53 53 array set flags { 54 54 -mode auto 55 55 } 56 56 array set flags $args … … 58 58 set servers [Rappture::VisViewer::GetServerList "nanovis"] 59 59 if {"" != $servers && $flags(-mode) != "vtk"} { 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 60 switch -- $flags(-mode) { 61 "auto" - "nanovis" { 62 itk_component add renderer { 63 Rappture::NanovisViewer $itk_interior.ren $servers 64 } 65 } 66 "flowvis" { 67 itk_component add renderer { 68 Rappture::FlowvisViewer $itk_interior.ren $servers 69 } 70 } 71 default { 72 puts stderr "unknown render mode \"$flags(-mode)\"" 73 } 74 } 75 pack $itk_component(renderer) -expand yes -fill both 76 76 77 78 79 80 77 # can't connect to rendering farm? then fall back to older viewer 78 if {![$itk_component(renderer) isconnected]} { 79 destroy $itk_component(renderer) 80 } 81 81 } 82 82 83 83 if {![info exists itk_component(renderer)]} { 84 85 86 87 84 itk_component add renderer { 85 Rappture::ContourResult $itk_interior.ren 86 } 87 pack $itk_component(renderer) -expand yes -fill both 88 88 } 89 89
Note: See TracChangeset
for help on using the changeset viewer.