Changeset 5195 for trunk/gui/scripts/vtkvolumeviewer.tcl
- Timestamp:
- Apr 6, 2015, 10:14:09 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkvolumeviewer.tcl
r5194 r5195 83 83 private variable _volcomponents ; # Array of components found 84 84 private variable _componentsList ; # List of component names 85 private variable _cname2style86 85 private variable _cname2transferFunction 87 86 private variable _cname2defaultcolormap … … 141 140 private variable _arcball "" 142 141 private variable _dlist "" ; # list of data objects 143 private variable _obj2datasets144 142 private variable _obj2ovride ; # maps dataobj => style override 145 143 private variable _datasets ; # contains all the dataobj-component … … 883 881 # disconnected -- no more data sitting on server 884 882 array unset _datasets 885 array unset _data886 883 array unset _colormaps 887 884 array unset _dataset2style 888 array unset _obj2datasets 889 890 array unset _cname2style 885 891 886 array unset _parsedFunction 892 887 array unset _cname2transferFunction … … 1036 1031 set _first $dataobj 1037 1032 } 1038 set _obj2datasets($dataobj) ""1039 1033 foreach comp [$dataobj components] { 1040 1034 set tag $dataobj-$comp … … 1065 1059 SetObjectStyle $dataobj $comp 1066 1060 } 1067 lappend _obj2datasets($dataobj) $tag1068 1061 if { [info exists _obj2ovride($dataobj-raise)] } { 1069 1062 SendCmd "volume visible 1 $tag" … … 2622 2615 } 2623 2616 set _dataset2style($tag) $cname 2624 lappend _style2datasets($cname) $tag2625 2617 2626 2618 return $cname
Note: See TracChangeset
for help on using the changeset viewer.