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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
package require vtk
package require vtkinteraction
if { [ info command vtkMesaRenderer ] != "" } {
vtkGraphicsFactory _graphics_fact
_graphics_fact SetUseMesaClasses 1
_graphics_fact Delete
}
# create a rendering window and renderer
vtkRenderer Ren1
Ren1 SetBackground .5 .8 1
vtkRenderWindow renWin
renWin AddRenderer Ren1
renWin SetSize 300 300
puts $myProcId
if { $myProcId > 0 } {
renWin SetPosition [expr $myProcId * 350] 0
renWin OffScreenRenderingOn
}
# camera parameters
set camera [Ren1 GetActiveCamera]
$camera SetPosition 199.431 196.879 15.7781
$camera SetFocalPoint 33.5 33.5 33.5
$camera SetViewUp 0.703325 -0.702557 0.108384
$camera SetViewAngle 30
$camera SetClippingRange 132.14 361.741
vtkPDataSetReader ironProt0
ironProt0 SetFileName "$VTK_DATA_ROOT/Data/ironProt.vtk"
vtkPOutlineFilter Geometry4
Geometry4 SetInputConnection [ironProt0 GetOutputPort]
vtkPolyDataMapper Mapper4
Mapper4 SetInputConnection [Geometry4 GetOutputPort]
Mapper4 SetImmediateModeRendering 0
Mapper4 SetScalarRange 0 1
Mapper4 SetScalarVisibility 0
Mapper4 SetScalarModeToDefault
vtkActor Actor4
Actor4 SetMapper Mapper4
[Actor4 GetProperty] SetRepresentationToSurface
[Actor4 GetProperty] SetInterpolationToGouraud
[Actor4 GetProperty] SetColor 1 1 1
Ren1 AddActor Actor4
vtkLineSource probeLine
probeLine SetPoint1 0 67 10
probeLine SetPoint2 67 0 50
probeLine SetResolution 500
vtkMPIController controler
vtkPProbeFilter Probe0
Probe0 SetSourceConnection [ironProt0 GetOutputPort]
Probe0 SetInputConnection [ probeLine GetOutputPort]
Probe0 SetController controler
vtkTubeFilter Tuber0
Tuber0 SetInputConnection [Probe0 GetOutputPort]
Tuber0 SetNumberOfSides 10
Tuber0 SetCapping 0
Tuber0 SetRadius 1
Tuber0 SetVaryRadius 1
Tuber0 SetRadiusFactor 10
Tuber0 Update
vtkPolyDataMapper Mapper6
Mapper6 SetInputConnection [Tuber0 GetOutputPort]
Mapper6 SetImmediateModeRendering 0
Mapper6 SetScalarRange 0 228
Mapper6 SetScalarVisibility 1
Mapper6 SetScalarModeToUsePointFieldData
Mapper6 ColorByArrayComponent {scalars} -1
Mapper6 UseLookupTableScalarRangeOn
vtkActor Actor6
Actor6 SetMapper Mapper6
[Actor6 GetProperty] SetRepresentationToSurface
[Actor6 GetProperty] SetInterpolationToGouraud
Ren1 AddActor Actor6
if { $numProcs > 1 } {
compManager SetRenderWindow renWin
compManager InitializePieces
}
renWin SetWindowName "Process $myProcId"
wm withdraw .
if { $numProcs < 2 } {
renWin Render
}
|
