- Timestamp:
- Mar 22, 2013, 11:57:29 AM (12 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkheightmapviewer.tcl
r3547 r3550 910 910 set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)] 911 911 $_arcball quaternion $q 912 if {$_settings(isHeightmap) } { 913 if { $_view(ortho)} { 914 SendCmd "camera mode ortho" 915 } else { 916 SendCmd "camera mode persp" 917 } 918 SendCmd "camera reset" 912 if {$_settings(isHeightmap) } { 913 if { $_view(ortho)} { 914 SendCmd "camera mode ortho" 915 } else { 916 SendCmd "camera mode persp" 917 } 919 918 DoRotate 920 } 919 SendCmd "camera reset" 920 } 921 921 PanCamera 922 922 StopBufferingCommands … … 1044 1044 set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)] 1045 1045 $_arcball quaternion $q 1046 if {$_settings(isHeightmap) } { 1047 if { $_view(ortho)} { 1048 SendCmd "camera mode ortho" 1049 } else { 1050 SendCmd "camera mode persp" 1051 } 1052 SendCmd "camera reset" 1046 if {$_settings(isHeightmap) } { 1047 if { $_view(ortho)} { 1048 SendCmd "camera mode ortho" 1049 } else { 1050 SendCmd "camera mode persp" 1051 } 1053 1052 DoRotate 1054 } 1053 SendCmd "camera reset" 1054 } 1055 1055 PanCamera 1056 1056 InitSettings axisXGrid axisYGrid axisZGrid \ … … 1154 1154 set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)] 1155 1155 $_arcball quaternion $q 1156 SendCmd "camera reset"1157 1156 if {$_settings(isHeightmap) } { 1158 1157 DoRotate 1159 1158 } 1159 SendCmd "camera reset" 1160 1160 } 1161 1161 } … … 1504 1504 } 1505 1505 ResetAxes 1506 SendCmd "camera reset"1507 1506 if { $bool } { 1508 1507 set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)] … … 1514 1513 bind $c <ButtonRelease-1> {} 1515 1514 } 1515 SendCmd "camera reset" 1516 1516 # Fix the mouse bindings for rotation/panning and the 1517 1517 # camera mode. Ideally we'd create a bindtag for these. -
trunk/gui/scripts/vtkisosurfaceviewer.tcl
r3548 r3550 1157 1157 set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)] 1158 1158 $_arcball quaternion $q 1159 DoRotate 1159 1160 SendCmd "camera reset" 1160 DoRotate1161 1161 } 1162 1162 } -
trunk/gui/scripts/vtkstreamlinesviewer.tcl
r3534 r3550 1184 1184 ypan 0 1185 1185 } 1186 SendCmd "camera reset all"1187 1186 if { $_first != "" } { 1188 1187 set location [$_first hints camera] … … 1194 1193 $_arcball quaternion $q 1195 1194 DoRotate 1195 SendCmd "camera reset" 1196 1196 } 1197 1197 } -
trunk/gui/scripts/vtkviewer.tcl
r3539 r3550 1033 1033 ypan 0 1034 1034 } 1035 SendCmd "camera reset all"1036 1035 if { $_first != "" } { 1037 1036 set location [$_first hints camera] … … 1043 1042 $_arcball quaternion $q 1044 1043 DoRotate 1044 SendCmd "camera reset" 1045 1045 } 1046 1046 }
Note: See TracChangeset
for help on using the changeset viewer.