Changeset 1929 for trunk/gui/scripts/field2dresult.tcl
- Timestamp:
- Oct 22, 2010 4:06:10 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/field2dresult.tcl
r1854 r1929 53 53 itcl::body Rappture::Field2DResult::constructor {args} { 54 54 array set flags { 55 55 -mode auto 56 56 } 57 57 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 76 77 78 79 60 switch -- $flags(-mode) { 61 "auto" - "heightmap" { 62 itk_component add renderer { 63 Rappture::HeightmapViewer $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 # can't connect to rendering farm? then fall back to older viewer 77 if {![$itk_component(renderer) isconnected]} { 78 #destroy $itk_component(renderer) 79 } 80 80 } 81 81 82 82 if {![info exists itk_component(renderer)]} { 83 84 85 86 83 itk_component add renderer { 84 Rappture::ContourResult $itk_interior.ren 85 } 86 pack $itk_component(renderer) -expand yes -fill both 87 87 } 88 88 eval itk_initialize $args
Note: See TracChangeset
for help on using the changeset viewer.