- Timestamp:
- Apr 6, 2015, 10:14:09 AM (10 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/flowvisviewer.tcl
r5188 r5195 749 749 array set style [lindex [$dataobj components -style $cname] 0] 750 750 set cmap [ColorsToColormap $style(-color)] 751 set _cname2defaultcolormap($cname) $cmap752 751 set _settings($cname-colormap) $style(-color) 753 752 } -
trunk/gui/scripts/mapviewer.tcl
r5188 r5195 133 133 134 134 private variable _dlist ""; # list of data objects 135 private variable _obj2datasets136 135 private variable _obj2ovride; # maps dataobj => style override 137 136 private variable _layers; # Contains the names of all the … … 1225 1224 set haveTerrain 0 1226 1225 foreach dataobj [get -objects] { 1227 set _obj2datasets($dataobj) ""1228 1226 foreach layer [$dataobj layers] { 1229 1227 array unset info … … 1247 1245 set haveTerrain 1 1248 1246 } 1249 lappend _obj2datasets($dataobj) $layer1250 1247 # FIXME: This is overriding all layers' initial visibility setting 1251 1248 if { [info exists _obj2ovride($dataobj-raise)] } { -
trunk/gui/scripts/nanovisviewer.tcl
r5188 r5195 141 141 ;# to volumes in the server 142 142 private variable _recvdDatasets; # list of data objs to send to server 143 private variable _dataset2style; # maps dataobj-component to transfunc144 143 private variable _style2datasets; # maps tf back to list of 145 144 # dataobj-components using the tf. … … 156 155 private variable _volcomponents ;# Array of components found 157 156 private variable _componentsList ;# Array of components found 158 private variable _cname2style159 157 private variable _cname2transferFunction 160 158 private variable _cname2defaultcolormap … … 540 538 set _dlist [lreplace $_dlist $pos $pos] 541 539 array unset _obj2ovride $dataobj-* 542 array unset _dataset2style $dataobj-*543 540 set changed 1 544 541 } … … 1435 1432 -command [itcl::code $this updateTransferFunctions]] 1436 1433 } 1437 set _dataset2style($tag) $cname1438 1434 lappend _style2datasets($cname) $tag 1439 1435 return $cname -
trunk/gui/scripts/vtkglyphviewer.tcl
r5188 r5195 113 113 114 114 private variable _dlist "" ; # list of data objects 115 private variable _obj2datasets116 115 private variable _obj2ovride ; # maps dataobj => style override 117 116 private variable _datasets ; # contains all the dataobj-component … … 122 121 # heightmaps displayed. 123 122 private variable _currentColormap "" 124 125 private variable _dataset2style ;# maps dataobj-component to transfunc126 123 127 124 private variable _click ; # info used for rotate operations … … 838 835 array unset _data 839 836 array unset _colormaps 840 array unset _dataset2style841 array unset _obj2datasets842 837 } 843 838 … … 972 967 set _first $dataobj 973 968 } 974 set _obj2datasets($dataobj) ""975 969 foreach comp [$dataobj components] { 976 970 set tag $dataobj-$comp … … 1001 995 SetObjectStyle $dataobj $comp 1002 996 } 1003 lappend _obj2datasets($dataobj) $tag1004 997 if { [info exists _obj2ovride($dataobj-raise)] } { 1005 998 # Setting dataset visible enables outline -
trunk/gui/scripts/vtkheightmapviewer.tcl
r5188 r5195 114 114 private variable _arcball "" 115 115 private variable _dlist "" ; # list of data objects 116 private variable _obj2datasets117 116 private variable _obj2ovride ; # maps dataobj => style override 118 117 private variable _comp2scale; # maps dataset to the heightmap scale. … … 812 811 # disconnected -- no more data sitting on server 813 812 array unset _datasets 814 array unset _data815 813 array unset _colormaps 816 array unset _obj2datasets817 814 global readyForNextFrame 818 815 set readyForNextFrame 1 … … 972 969 set _first $dataobj 973 970 } 974 set _obj2datasets($dataobj) ""975 971 foreach comp [$dataobj components] { 976 972 set tag $dataobj-$comp … … 1001 997 SetObjectStyle $dataobj $comp 1002 998 } 1003 lappend _obj2datasets($dataobj) $tag1004 999 if { [info exists _obj2ovride($dataobj-raise)] } { 1005 1000 # Setting dataset visible enables outline -
trunk/gui/scripts/vtkimageviewer.tcl
r5188 r5195 110 110 private variable _arcball "" 111 111 private variable _dlist "" ; # list of data objects 112 private variable _obj2datasets113 112 private variable _obj2ovride ; # maps dataobj => style override 114 113 private variable _datasets ; # contains all the dataobj-component … … 802 801 # disconnected -- no more data sitting on server 803 802 array unset _datasets 804 array unset _data805 803 array unset _colormaps 806 array unset _obj2datasets807 804 global readyForNextFrame 808 805 set readyForNextFrame 1 … … 950 947 set _first $dataobj 951 948 } 952 set _obj2datasets($dataobj) ""953 949 foreach comp [$dataobj components] { 954 950 set tag $dataobj-$comp … … 979 975 SetObjectStyle $dataobj $comp 980 976 } 981 lappend _obj2datasets($dataobj) $tag982 977 if { [info exists _obj2ovride($dataobj-raise)] } { 983 978 # Setting dataset visible enables outline -
trunk/gui/scripts/vtkisosurfaceviewer.tcl
r5188 r5195 129 129 130 130 private variable _dlist "" ; # list of data objects 131 private variable _obj2datasets132 131 private variable _obj2ovride ; # maps dataobj => style override 133 132 private variable _datasets ; # contains all the dataobj-component … … 139 138 private variable _currentColormap "" 140 139 private variable _currentNumContours -1 141 142 private variable _dataset2style ;# maps dataobj-component to transfunc143 140 144 141 private variable _click ; # info used for rotate operations … … 948 945 # disconnected -- no more data sitting on server 949 946 array unset _datasets 950 array unset _data951 947 array unset _colormaps 952 array unset _dataset2style953 array unset _obj2datasets954 948 } 955 949 … … 1084 1078 SetCurrentFieldName $dataobj 1085 1079 } 1086 set _obj2datasets($dataobj) ""1087 1080 foreach comp [$dataobj components] { 1088 1081 set tag $dataobj-$comp … … 1113 1106 SetObjectStyle $dataobj $comp 1114 1107 } 1115 lappend _obj2datasets($dataobj) $tag1116 1108 if { [info exists _obj2ovride($dataobj-raise)] } { 1117 1109 SendCmd "contour3d visible 1 $tag" -
trunk/gui/scripts/vtkmeshviewer.tcl
r5188 r5195 101 101 private variable _arcball "" 102 102 private variable _dlist ""; # list of data objects 103 private variable _obj2datasets104 103 private variable _obj2ovride; # maps dataobj => style override 105 104 private variable _datasets; # contains all the dataobj-component 106 105 # datasets in the server 107 private variable _dataset2style; # maps dataobj-component to transfunc108 private variable _style2datasets; # maps tf back to list of109 # dataobj-components using the tf.110 106 private variable _click; # info used for rotate operations 111 107 private variable _limits; # autoscale min/max for all axes … … 712 708 # disconnected -- no more data sitting on server 713 709 array unset _datasets 714 array unset _data715 710 global readyForNextFrame 716 711 set readyForNextFrame 1 … … 838 833 set _first $dataobj 839 834 } 840 set _obj2datasets($dataobj) ""841 835 set tag $dataobj 842 836 if { ![info exists _datasets($tag)] } { … … 869 863 SetObjectStyle $dataobj 870 864 } 871 lappend _obj2datasets($dataobj) $tag872 865 if { [info exists _obj2ovride($dataobj-raise)] } { 873 866 SendCmd "dataset visible 1 $tag" -
trunk/gui/scripts/vtkstreamlinesviewer.tcl
r5184 r5195 116 116 117 117 private variable _dlist "" ; # list of data objects 118 private variable _obj2datasets119 118 private variable _obj2ovride ; # maps dataobj => style override 120 119 private variable _datasets ; # contains all the dataobj-component … … 852 851 # disconnected -- no more data sitting on server 853 852 array unset _datasets 854 array unset _data855 853 array unset _colormaps 856 854 array unset _seeds 857 855 array unset _dataset2style 858 array unset _obj2datasets859 856 } 860 857 … … 983 980 set _first $dataobj 984 981 } 985 set _obj2datasets($dataobj) ""986 982 foreach comp [$dataobj components] { 987 983 set tag $dataobj-$comp … … 1012 1008 SetObjectStyle $dataobj $comp 1013 1009 } 1014 lappend _obj2datasets($dataobj) $tag1015 1010 if { [info exists _obj2ovride($dataobj-raise)] } { 1016 1011 SendCmd "dataset visible 1 $tag" -
trunk/gui/scripts/vtksurfaceviewer.tcl
r5188 r5195 112 112 113 113 private variable _dlist "" ; # list of data objects 114 private variable _obj2datasets115 114 private variable _obj2ovride ; # maps dataobj => style override 116 115 private variable _datasets ; # contains all the dataobj-component … … 122 121 private variable _currentColormap "" 123 122 private variable _currentNumContours -1 124 125 private variable _dataset2style ;# maps dataobj-component to transfunc126 123 127 124 private variable _click ; # info used for rotate operations … … 791 788 # disconnected -- no more data sitting on server 792 789 array unset _datasets 793 array unset _data794 790 array unset _colormaps 795 array unset _dataset2style796 array unset _obj2datasets797 791 } 798 792 … … 929 923 SetCurrentFieldName $dataobj 930 924 } 931 set _obj2datasets($dataobj) ""932 925 foreach comp [$dataobj components] { 933 926 set tag $dataobj-$comp … … 958 951 SetObjectStyle $dataobj $comp 959 952 } 960 lappend _obj2datasets($dataobj) $tag961 953 if { [info exists _obj2ovride($dataobj-raise)] } { 962 954 SendCmd "polydata visible 1 $tag" -
trunk/gui/scripts/vtkviewer.tcl
r5184 r5195 126 126 private variable _arcball "" 127 127 private variable _dlist ""; # list of data objects 128 private variable _obj2datasets129 128 private variable _obj2ovride; # maps dataobj => style override 130 129 private variable _datasets; # contains all the dataobj-component … … 133 132 # in the server. 134 133 private variable _dataset2style; # maps dataobj-component to transfunc 135 private variable _style2datasets; # maps tf back to list of136 # dataobj-components using the tf.137 134 private variable _click; # info used for rotate operations 138 135 private variable _limits; # autoscale min/max for all axes … … 927 924 # disconnected -- no more data sitting on server 928 925 array unset _datasets 929 array unset _data930 926 array unset _colormaps 931 927 global readyForNextFrame … … 1055 1051 set _first $dataobj 1056 1052 } 1057 set _obj2datasets($dataobj) ""1058 1053 foreach comp [$dataobj components] { 1059 1054 set tag $dataobj-$comp … … 1087 1082 SetObjectStyle $dataobj $comp 1088 1083 } 1089 lappend _obj2datasets($dataobj) $tag1090 1084 set type [$dataobj type $comp] 1091 1085 if { [info exists _obj2ovride($dataobj-raise)] } { -
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.