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
|
package require vtk
package require vtkinteraction
# create a rendering window and renderer
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
renWin StereoCapableWindowOn
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
vtkEnSightMasterServerReader reader
reader SetCaseFileName "$VTK_DATA_ROOT/Data/EnSight/elements.sos"
reader SetCurrentPiece 0
reader Update
vtkGeometryFilter geom0
geom0 SetInputConnection [reader GetOutputPort]
vtkGeometryFilter geom1
geom1 SetInput [reader GetOutput 1]
vtkPolyDataMapper mapper0
mapper0 SetInputConnection [geom0 GetOutputPort]
mapper0 SetColorModeToMapScalars
mapper0 SetScalarModeToUsePointFieldData
mapper0 ColorByArrayComponent "pointScalars" 0
mapper0 SetScalarRange 0 112
vtkPolyDataMapper mapper1
mapper1 SetInputConnection [geom1 GetOutputPort]
mapper1 SetColorModeToMapScalars
mapper1 SetScalarModeToUsePointFieldData
mapper1 ColorByArrayComponent "pointScalars" 0
mapper1 SetScalarRange 0 112
vtkActor actor0
actor0 SetMapper mapper0
vtkActor actor1
actor1 SetMapper mapper1
# assign our actor to the renderer
ren1 AddActor actor0
ren1 AddActor actor1
# enable user interface interactor
iren AddObserver UserEvent {wm deiconify .vtkInteract}
iren Initialize
# prevent the tk window from showing up then start the event loop
wm withdraw .
|
