You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
573 B
27 lines
573 B
2 years ago
|
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 Joystick+Actor mode
|
||
|
|
|
||
|
|
iren SetKeyEventInformation 0 0 j 0 0
|
||
|
|
iren InvokeEvent "CharEvent"
|
||
|
|
|
||
|
|
iren SetKeyEventInformation 0 0 a 0 0
|
||
|
|
iren InvokeEvent "CharEvent"
|
||
|
|
|
||
|
|
# Test style
|
||
|
|
|
||
|
|
test_style [inStyle GetCurrentStyle]
|