- Timestamp:
- Nov 17, 2014 6:54:47 AM (9 years ago)
- Location:
- branches/1.3
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
-
branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl
r4736 r4746 990 990 # Reset the camera and other view parameters 991 991 $_arcball quaternion [ViewToQuaternion] 992 InitSettings -ortho 992 993 DoRotate 993 994 PanCamera 994 995 set _first "" 995 InitSettings -xgrid -ygrid -zgrid -axismode \ 996 -axesvisible -axislabels -axisminorticks -ortho 996 InitSettings -background \ 997 -xgrid -ygrid -zgrid -axismode \ 998 -axesvisible -axislabels -axisminorticks 997 999 #SendCmd "axis lformat all %g" 998 1000 StopBufferingCommands … … 2190 2192 2191 2193 SendCmd "cutplane add $tag" 2194 SendCmd "cutplane color [Color2RGB $itk_option(-plotforeground)] $tag" 2192 2195 SendCmd "cutplane visible $style(-cutplanesvisible) $tag" 2193 2196 -
branches/1.3/gui/scripts/vtkvolumeviewer.tcl
r4743 r4746 954 954 } 955 955 DoRotate 956 InitSettings -volumeoutline -background \ 956 PanCamera 957 set _first "" 958 InitSettings -background \ 957 959 -xgrid -ygrid -zgrid -axisflymode \ 958 960 -axesvisible -axislabels -axisminorticks 959 PanCamera960 }961 962 SendCmd "imgflush"961 StopBufferingCommands 962 SendCmd "imgflush" 963 StartBufferingCommands 964 } 963 965 set _first "" 964 966 … … 1047 1049 InitSettings -volumepalette \ 1048 1050 -volumematerial \ 1049 -volume opacity -volumequality-volumevisible \1051 -volumelighting -volumeopacity -volumequality -volumeoutline -volumevisible \ 1050 1052 -cutplanesvisible \ 1051 1053 -xcutplaneposition -ycutplaneposition -zcutplaneposition \ … … 1053 1055 1054 1056 if { $_reset } { 1055 InitSettings -volumelighting1056 1057 Zoom reset 1057 1058 set _reset 0 … … 2095 2096 array set styles [$dataobj style $cname] 2096 2097 set _settings(-volumelighting) $styles(-lighting) 2098 set _settings(-volumeopacity) [expr $styles(-opacity) * 100.0] 2097 2099 set _settings(-volumeoutline) $styles(-outline) 2098 set _settings(-volumeopacity) [expr $styles(-opacity) * 100.0]2099 2100 set _settings(-volumevisible) $styles(-visible) 2100 2101 2101 2102 SendCmd "outline add $tag" 2103 SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag" 2102 2104 SendCmd "outline visible $styles(-outline) $tag" 2103 2105 2104 2106 SendCmd "$_cutplaneCmd add $tag" 2107 SendCmd "$_cutplaneCmd color [Color2RGB $itk_option(-plotforeground)] $tag" 2105 2108 SendCmd "$_cutplaneCmd visible 0 $tag" 2106 2109
Note: See TracChangeset
for help on using the changeset viewer.