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.
19 lines
387 B
19 lines
387 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
|
||
|
|
|
||
|
|
vtkInteractorStyleTerrain inStyle
|
||
|
|
iren SetInteractorStyle inStyle
|
||
|
|
iren Initialize
|
||
|
|
|
||
|
|
# Test style
|
||
|
|
|
||
|
|
test_style inStyle
|