1package require vtk
2package require vtkinteraction
3
4# Create the RenderWindow, Renderer and both Actors
5#
6vtkRenderer ren1
7vtkRenderWindow renWin
8    renWin AddRenderer ren1
9vtkRenderWindowInteractor iren
10    iren SetRenderWindow renWin
11
12# read data
13#
14vtkMultiBlockPLOT3DReader pl3d
15    pl3d SetXYZFileName "$VTK_DATA_ROOT/Data/combxyz.bin"
16    pl3d SetQFileName "$VTK_DATA_ROOT/Data/combq.bin"
17    pl3d SetScalarFunctionNumber 100
18    pl3d SetVectorFunctionNumber 202
19    pl3d Update
20    set output [[pl3d GetOutput] GetBlock 0]
21
22# planes to connect
23vtkStructuredGridGeometryFilter plane1
24    plane1 SetInputData $output
25    plane1 SetExtent 20 20 0 100 0 100
26vtkPolyDataConnectivityFilter conn
27    conn SetInputConnection [plane1 GetOutputPort]
28    conn ScalarConnectivityOn
29    conn SetScalarRange 0.19 0.25
30    conn Update
31    conn Print
32
33vtkPolyDataMapper plane1Map
34    plane1Map SetInputConnection [conn GetOutputPort]
35    eval plane1Map SetScalarRange [$output GetScalarRange]
36vtkActor plane1Actor
37    plane1Actor SetMapper plane1Map
38    [plane1Actor GetProperty] SetOpacity 0.999
39
40# outline
41vtkStructuredGridOutlineFilter outline
42    outline SetInputData $output
43vtkPolyDataMapper outlineMapper
44    outlineMapper SetInputConnection [outline GetOutputPort]
45vtkActor outlineActor
46    outlineActor SetMapper outlineMapper
47    set outlineProp [outlineActor GetProperty]
48    eval $outlineProp SetColor 0 0 0
49
50# Add the actors to the renderer, set the background and size
51#
52ren1 AddActor outlineActor
53ren1 AddActor plane1Actor
54ren1 SetBackground 1 1 1
55renWin SetSize 300 300
56
57vtkCamera cam1
58  cam1 SetClippingRange 14.29 63.53
59  cam1 SetFocalPoint 8.58522 1.58266 30.6486
60  cam1 SetPosition 37.6808 -20.1298 35.4016
61  cam1 SetViewAngle 30
62  cam1 SetViewUp -0.0566235 0.140504 0.98846
63ren1 SetActiveCamera cam1
64
65iren Initialize
66
67# render the image
68#
69iren AddObserver UserEvent {wm deiconify .vtkInteract}
70
71# prevent the tk window from showing up then start the event loop
72wm withdraw .
73
74
75
76