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.
77 lines
2.5 KiB
77 lines
2.5 KiB
2 years ago
|
package require vtk
|
||
|
package require vtkinteraction
|
||
|
|
||
|
|
||
|
# Create the RenderWindow, Renderer and both Actors
|
||
|
#
|
||
|
vtkRenderer Ren1
|
||
|
Ren1 SetBackground 0.33 0.35 0.43
|
||
|
vtkRenderWindow renWin
|
||
|
renWin AddRenderer Ren1
|
||
|
renWin SetSize 300 300
|
||
|
vtkRenderWindowInteractor iren
|
||
|
iren SetRenderWindow renWin
|
||
|
|
||
|
vtkXMLRectilinearGridReader pvTemp59
|
||
|
pvTemp59 SetFileName "$VTK_DATA_ROOT/Data/cth.vtr"
|
||
|
pvTemp59 UpdateInformation
|
||
|
pvTemp59 SetCellArrayStatus "X Velocity" 0
|
||
|
pvTemp59 SetCellArrayStatus "Y Velocity" 0
|
||
|
pvTemp59 SetCellArrayStatus "Z Velocity" 0
|
||
|
pvTemp59 SetCellArrayStatus "Mass for Armor Plate" 0
|
||
|
pvTemp59 SetCellArrayStatus "Mass for Body, Nose" 0
|
||
|
|
||
|
vtkExtractCTHPart pvTemp79
|
||
|
pvTemp79 SetInput [pvTemp59 GetOutput 0]
|
||
|
pvTemp79 AddVolumeArrayName "Volume Fraction for Armor Plate"
|
||
|
pvTemp79 AddVolumeArrayName "Volume Fraction for Body, Nose"
|
||
|
pvTemp79 SetClipPlane {}
|
||
|
vtkLookupTable pvTemp104
|
||
|
pvTemp104 SetNumberOfTableValues 256
|
||
|
pvTemp104 SetHueRange 0.6667 0
|
||
|
pvTemp104 SetSaturationRange 1 1
|
||
|
pvTemp104 SetValueRange 1 1
|
||
|
pvTemp104 SetTableRange 0 1
|
||
|
pvTemp104 SetVectorComponent 0
|
||
|
pvTemp104 Build
|
||
|
vtkPolyDataMapper pvTemp87
|
||
|
pvTemp87 SetInput [pvTemp79 GetOutput 0]
|
||
|
pvTemp87 SetImmediateModeRendering 1
|
||
|
pvTemp87 SetScalarRange 0 1
|
||
|
pvTemp87 UseLookupTableScalarRangeOn
|
||
|
pvTemp87 SetScalarVisibility 1
|
||
|
pvTemp87 SetScalarModeToUsePointFieldData
|
||
|
pvTemp87 SelectColorArray "Part Index"
|
||
|
pvTemp87 SetLookupTable pvTemp104
|
||
|
vtkActor pvTemp88
|
||
|
pvTemp88 SetMapper pvTemp87
|
||
|
[ pvTemp88 GetProperty] SetRepresentationToSurface
|
||
|
[pvTemp88 GetProperty] SetInterpolationToGouraud
|
||
|
[pvTemp88 GetProperty] SetAmbient 0
|
||
|
[pvTemp88 GetProperty] SetDiffuse 1
|
||
|
[pvTemp88 GetProperty] SetSpecular 0
|
||
|
[pvTemp88 GetProperty] SetSpecularPower 1
|
||
|
[pvTemp88 GetProperty] SetSpecularColor 1 1 1
|
||
|
Ren1 AddActor pvTemp88
|
||
|
vtkPolyDataMapper pvTemp96
|
||
|
pvTemp96 SetInput [pvTemp79 GetOutput 1]
|
||
|
pvTemp96 SetImmediateModeRendering 1
|
||
|
pvTemp96 SetScalarRange 0 1
|
||
|
pvTemp96 UseLookupTableScalarRangeOn
|
||
|
pvTemp96 SetScalarVisibility 1
|
||
|
pvTemp96 SetScalarModeToUsePointFieldData
|
||
|
pvTemp96 SelectColorArray "Part Index"
|
||
|
pvTemp96 SetLookupTable pvTemp104
|
||
|
vtkActor pvTemp97
|
||
|
pvTemp97 SetMapper pvTemp96
|
||
|
[ pvTemp97 GetProperty] SetRepresentationToSurface
|
||
|
[pvTemp97 GetProperty] SetInterpolationToGouraud
|
||
|
[pvTemp97 GetProperty] SetAmbient 0
|
||
|
[pvTemp97 GetProperty] SetDiffuse 1
|
||
|
[pvTemp97 GetProperty] SetSpecular 0
|
||
|
[pvTemp97 GetProperty] SetSpecularPower 1
|
||
|
[pvTemp97 GetProperty] SetSpecularColor 1 1 1
|
||
|
Ren1 AddActor pvTemp97
|
||
|
|
||
|
renWin Render
|