1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package require vtk
package require vtkinteraction
package require vtktesting
# Load base (spike and test)
source [file join [file dirname [info script]] TestStyleBase.tcl]
source [file join [file dirname [info script]] TestStyleBaseSpike.tcl]
# Set interactor style
vtkInteractorStyleSwitch inStyle
iren SetInteractorStyle inStyle
iren Initialize
# Switch to Trackball+Camera mode
iren SetKeyEventInformation 0 0 t 0 0
iren InvokeEvent "CharEvent"
iren SetKeyEventInformation 0 0 c 0 0
iren InvokeEvent "CharEvent"
# Test style
test_style [inStyle GetCurrentStyle]
|
