You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
94 lines
2.4 KiB
94 lines
2.4 KiB
package require vtk
|
|
|
|
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 SetSource [ironProt0 GetOutput]
|
|
Probe0 SetInput [ probeLine GetOutput ]
|
|
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
|
|
}
|
|
|
|
|