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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
package require vtk
package require vtkinteraction
vtkRenderer ren1
vtkRenderWindow renWin
renWin SetMultiSamples 0
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
vtkSTLReader asource
asource SetFileName "$VTK_DATA_ROOT/Data/42400-IDGH.stl"
vtkPolyDataMapper dataMapper
dataMapper SetInputConnection [asource GetOutputPort]
vtkActor model
model SetMapper dataMapper
[model GetProperty] SetColor 1 0 0
model VisibilityOn
set locators "vtkPointLocator vtkCellLocator vtkOBBTree"
set i 1
foreach locator $locators {
$locator locator$i
locator$i AutomaticOff
locator$i SetMaxLevel 3
vtkSpatialRepresentationFilter boxes$i
boxes$i SetInputConnection [asource GetOutputPort]
boxes$i SetSpatialRepresentation locator$i
boxes$i SetGenerateLeaves 1
boxes$i Update
set output [[boxes$i GetOutput] GetBlock [expr [boxes$i GetMaximumLevel] + 1]]
vtkPolyDataMapper boxMapper$i
boxMapper$i SetInputData $output
vtkActor boxActor$i
boxActor$i SetMapper boxMapper$i
boxActor$i AddPosition [expr $i * 15] 0 0
ren1 AddActor boxActor$i
incr i
#}
# Add the actors to the renderer, set the background and size
#
ren1 AddActor model
ren1 SetBackground 0.1 0.2 0.4
renWin SetSize 400 160
# render the image
#
iren AddObserver UserEvent {wm deiconify .vtkInteract}
vtkCamera camera
camera SetPosition 148.579 136.352 214.961
camera SetFocalPoint 151.889 86.3178 223.333
camera SetViewAngle 30
camera SetViewUp 0 0 -1
camera SetClippingRange 1 100
ren1 SetActiveCamera camera
renWin Render
iren Initialize
# prevent the tk window from showing up then start the event loop
wm withdraw .
|
