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
|
package require vtk
package require vtkinteraction
vtkMath math
math RandomSeed 22
vtkMultiBlockPLOT3DReader pl3d
pl3d SetXYZFileName "$VTK_DATA_ROOT/Data/combxyz.bin"
pl3d SetQFileName "$VTK_DATA_ROOT/Data/combq.bin"
pl3d SetScalarFunctionNumber 100
pl3d Update
set output [[pl3d GetOutput] GetBlock 0]
vtkDataSetTriangleFilter dst
dst SetInputData $output
vtkExtractUnstructuredGridPiece extract
extract SetInputConnection [dst GetOutputPort]
vtkContourFilter cf
cf SetInputConnection [extract GetOutputPort]
cf SetValue 0 0.24
vtkPolyDataNormals pdn
pdn SetInputConnection [cf GetOutputPort]
vtkPieceScalars ps
ps SetInputConnection [pdn GetOutputPort]
vtkPolyDataMapper mapper
mapper SetInputConnection [ps GetOutputPort]
mapper SetNumberOfPieces 3
vtkActor actor
actor SetMapper mapper
vtkRenderer ren
ren AddActor actor
ren ResetCamera
set camera [ren GetActiveCamera]
#$camera SetPosition 68.1939 -23.4323 12.6465
#$camera SetViewUp 0.46563 0.882375 0.0678508
#$camera SetFocalPoint 3.65707 11.4552 1.83509
#$camera SetClippingRange 59.2626 101.825
vtkRenderWindow renWin
renWin AddRenderer ren
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
iren Initialize
iren AddObserver UserEvent {wm deiconify .vtkInteract}
wm withdraw .
|
