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.
214 lines
6.2 KiB
214 lines
6.2 KiB
2 years ago
|
package require vtk
|
||
|
|
package require vtkinteraction
|
||
|
|
|
||
|
|
# create pipeline
|
||
|
|
#
|
||
|
|
vtkPLOT3DReader pl3d
|
||
|
|
pl3d SetXYZFileName "$VTK_DATA_ROOT/Data/combxyz.bin"
|
||
|
|
pl3d SetQFileName "$VTK_DATA_ROOT/Data/combq.bin"
|
||
|
|
pl3d SetScalarFunctionNumber 100
|
||
|
|
pl3d SetVectorFunctionNumber 202
|
||
|
|
pl3d Update
|
||
|
|
|
||
|
|
# create three line probes
|
||
|
|
vtkLineSource line
|
||
|
|
line SetResolution 30
|
||
|
|
|
||
|
|
vtkTransform transL1
|
||
|
|
transL1 Translate 3.7 0.0 28.37
|
||
|
|
transL1 Scale 5 5 5
|
||
|
|
transL1 RotateY 90
|
||
|
|
vtkTransformPolyDataFilter tf
|
||
|
|
tf SetInputConnection [line GetOutputPort]
|
||
|
|
tf SetTransform transL1
|
||
|
|
vtkProbeFilter probe
|
||
|
|
probe SetInputConnection [tf GetOutputPort]
|
||
|
|
probe SetSource [pl3d GetOutput]
|
||
|
|
|
||
|
|
vtkTransform transL2
|
||
|
|
transL2 Translate 9.2 0.0 31.20
|
||
|
|
transL2 Scale 5 5 5
|
||
|
|
transL2 RotateY 90
|
||
|
|
vtkTransformPolyDataFilter tf2
|
||
|
|
tf2 SetInputConnection [line GetOutputPort]
|
||
|
|
tf2 SetTransform transL2
|
||
|
|
vtkProbeFilter probe2
|
||
|
|
probe2 SetInputConnection [tf2 GetOutputPort]
|
||
|
|
probe2 SetSource [pl3d GetOutput]
|
||
|
|
|
||
|
|
vtkTransform transL3
|
||
|
|
transL3 Translate 13.27 0.0 33.40
|
||
|
|
transL3 Scale 4.5 4.5 4.5
|
||
|
|
transL3 RotateY 90
|
||
|
|
vtkTransformPolyDataFilter tf3
|
||
|
|
tf3 SetInputConnection [line GetOutputPort]
|
||
|
|
tf3 SetTransform transL3
|
||
|
|
vtkProbeFilter probe3
|
||
|
|
probe3 SetInputConnection [tf3 GetOutputPort]
|
||
|
|
probe3 SetSource [pl3d GetOutput]
|
||
|
|
|
||
|
|
vtkAppendPolyData appendF
|
||
|
|
appendF AddInput [probe GetPolyDataOutput]
|
||
|
|
appendF AddInput [probe2 GetPolyDataOutput]
|
||
|
|
appendF AddInput [probe3 GetPolyDataOutput]
|
||
|
|
vtkTubeFilter tuber
|
||
|
|
tuber SetInputConnection [appendF GetOutputPort]
|
||
|
|
tuber SetRadius 0.1
|
||
|
|
vtkPolyDataMapper lineMapper
|
||
|
|
lineMapper SetInputConnection [tuber GetOutputPort]
|
||
|
|
vtkActor lineActor
|
||
|
|
lineActor SetMapper lineMapper
|
||
|
|
|
||
|
|
# probe the line and plot it
|
||
|
|
vtkGlyphSource2D triangle
|
||
|
|
triangle SetGlyphTypeToTriangle
|
||
|
|
vtkGlyphSource2D cross
|
||
|
|
cross SetGlyphTypeToCross
|
||
|
|
vtkXYPlotActor xyplot
|
||
|
|
xyplot AddInput [probe GetOutput]
|
||
|
|
xyplot AddInput [probe2 GetOutput]
|
||
|
|
xyplot AddInput [probe3 GetOutput]
|
||
|
|
[xyplot GetPositionCoordinate] SetValue 0.0 0.5 0
|
||
|
|
[xyplot GetPosition2Coordinate] SetValue 1.0 0.5 0;#relative to Position
|
||
|
|
xyplot SetXValuesToValue
|
||
|
|
xyplot SetPointComponent 0 2
|
||
|
|
xyplot SetPointComponent 1 2
|
||
|
|
xyplot SetPointComponent 2 2
|
||
|
|
xyplot LogxOn
|
||
|
|
xyplot SetNumberOfXLabels 6
|
||
|
|
xyplot SetTitle "Pressure vs. Log10 Probe Z-Value"
|
||
|
|
xyplot SetXTitle ""
|
||
|
|
xyplot SetYTitle "P"
|
||
|
|
|
||
|
|
xyplot PlotCurveLinesOn
|
||
|
|
xyplot PlotCurvePointsOn
|
||
|
|
|
||
|
|
xyplot SetPlotLines 0 1
|
||
|
|
xyplot SetPlotLines 1 0
|
||
|
|
xyplot SetPlotLines 2 1
|
||
|
|
|
||
|
|
xyplot SetPlotPoints 0 0
|
||
|
|
xyplot SetPlotPoints 1 1
|
||
|
|
xyplot SetPlotPoints 2 1
|
||
|
|
|
||
|
|
[xyplot GetProperty] SetColor 0 0 0
|
||
|
|
|
||
|
|
[xyplot GetProperty] SetLineWidth 1
|
||
|
|
|
||
|
|
[xyplot GetProperty] SetPointSize 3
|
||
|
|
|
||
|
|
xyplot SetPlotSymbol 2 [triangle GetOutput]
|
||
|
|
xyplot SetPlotColor 2 0 0 1
|
||
|
|
xyplot SetGlyphSize 0.025
|
||
|
|
|
||
|
|
# Set text prop color (same color for backward compat with test)
|
||
|
|
# Assign same object to all text props
|
||
|
|
set tprop [xyplot GetTitleTextProperty]
|
||
|
|
eval $tprop SetColor [[xyplot GetProperty] GetColor]
|
||
|
|
xyplot SetAxisTitleTextProperty $tprop
|
||
|
|
xyplot SetAxisLabelTextProperty $tprop
|
||
|
|
|
||
|
|
xyplot SetLabelFormat "%-#6.2f"
|
||
|
|
|
||
|
|
#Okay exercise data object stuff
|
||
|
|
vtkDataSetToDataObjectFilter ds2do
|
||
|
|
ds2do SetInputConnection [probe GetOutputPort]
|
||
|
|
vtkDataSetToDataObjectFilter ds2do2
|
||
|
|
ds2do2 SetInputConnection [probe GetOutputPort]
|
||
|
|
vtkDataSetToDataObjectFilter ds2do3
|
||
|
|
ds2do3 SetInputConnection [probe GetOutputPort]
|
||
|
|
vtkXYPlotActor xyplot3
|
||
|
|
xyplot3 AddDataObjectInput [ds2do GetOutput]
|
||
|
|
xyplot3 SetDataObjectXComponent 0 2
|
||
|
|
xyplot3 SetDataObjectYComponent 0 5
|
||
|
|
xyplot3 SetPlotColor 0 1 0 0
|
||
|
|
xyplot3 SetPlotLabel 0 "Mx"
|
||
|
|
xyplot3 AddDataObjectInput [ds2do2 GetOutput]
|
||
|
|
xyplot3 SetDataObjectXComponent 1 2
|
||
|
|
xyplot3 SetDataObjectYComponent 1 6
|
||
|
|
xyplot3 SetPlotColor 1 0 1 0
|
||
|
|
xyplot3 SetPlotLabel 1 "My"
|
||
|
|
xyplot3 AddDataObjectInput [ds2do3 GetOutput]
|
||
|
|
xyplot3 SetDataObjectXComponent 2 2
|
||
|
|
xyplot3 SetDataObjectYComponent 2 7
|
||
|
|
xyplot3 SetPlotColor 2 0 0 1
|
||
|
|
xyplot3 SetPlotLabel 2 "Mz"
|
||
|
|
[xyplot3 GetPositionCoordinate] SetValue 0.0 0.0 0
|
||
|
|
[xyplot3 GetPosition2Coordinate] SetValue 1.0 0.5 0;#relative to Position
|
||
|
|
xyplot3 SetXValuesToValue
|
||
|
|
xyplot3 SetNumberOfXLabels 6
|
||
|
|
xyplot3 SetTitle "Momentum Component vs. Log10 Probe Z-Value"
|
||
|
|
xyplot3 SetXTitle "Log10 Probe Z-Value"
|
||
|
|
xyplot3 SetYTitle "M"
|
||
|
|
|
||
|
|
[xyplot3 GetProperty] SetColor 0 0 1
|
||
|
|
[xyplot3 GetProperty] SetPointSize 5
|
||
|
|
|
||
|
|
xyplot3 PlotCurveLinesOn
|
||
|
|
xyplot3 PlotCurvePointsOn
|
||
|
|
|
||
|
|
xyplot3 SetPlotLines 0 1
|
||
|
|
xyplot3 SetPlotLines 1 0
|
||
|
|
xyplot3 SetPlotLines 2 1
|
||
|
|
|
||
|
|
xyplot3 SetPlotPoints 0 0
|
||
|
|
xyplot3 SetPlotPoints 1 1
|
||
|
|
xyplot3 SetPlotPoints 2 1
|
||
|
|
|
||
|
|
xyplot3 LogxOn
|
||
|
|
|
||
|
|
# Set text prop color (same color for backward compat with test)
|
||
|
|
# Assign same object to all text props
|
||
|
|
set tprop [xyplot3 GetTitleTextProperty]
|
||
|
|
eval $tprop SetColor [[xyplot3 GetProperty] GetColor]
|
||
|
|
xyplot3 SetAxisTitleTextProperty $tprop
|
||
|
|
xyplot3 SetAxisLabelTextProperty $tprop
|
||
|
|
|
||
|
|
[xyplot3 GetYAxisActor2D] SetLabelFormat "%4.f"
|
||
|
|
[xyplot3 GetXAxisActor2D] SetLabelFormat "%-#6.2f"
|
||
|
|
|
||
|
|
# draw an outline
|
||
|
|
vtkStructuredGridOutlineFilter outline
|
||
|
|
outline SetInputConnection [pl3d GetOutputPort]
|
||
|
|
vtkPolyDataMapper outlineMapper
|
||
|
|
outlineMapper SetInputConnection [outline GetOutputPort]
|
||
|
|
vtkActor outlineActor
|
||
|
|
outlineActor SetMapper outlineMapper
|
||
|
|
[outlineActor GetProperty] SetColor 0 0 0
|
||
|
|
|
||
|
|
# Create graphics stuff
|
||
|
|
#
|
||
|
|
vtkRenderer ren1
|
||
|
|
vtkRenderer ren2
|
||
|
|
vtkRenderWindow renWin
|
||
|
|
renWin AddRenderer ren1
|
||
|
|
renWin AddRenderer ren2
|
||
|
|
vtkRenderWindowInteractor iren
|
||
|
|
iren SetRenderWindow renWin
|
||
|
|
|
||
|
|
ren1 SetBackground 0.6784 0.8471 0.9020
|
||
|
|
ren1 SetViewport 0 0 .5 1
|
||
|
|
ren1 AddActor outlineActor
|
||
|
|
ren1 AddActor lineActor
|
||
|
|
|
||
|
|
ren2 SetBackground 1 1 1
|
||
|
|
ren2 SetViewport 0.5 0.0 1.0 1.0
|
||
|
|
ren2 AddActor2D xyplot
|
||
|
|
ren2 AddActor2D xyplot3
|
||
|
|
renWin SetSize 790 400
|
||
|
|
|
||
|
|
set cam1 [ren1 GetActiveCamera]
|
||
|
|
$cam1 SetClippingRange 3.95297 100
|
||
|
|
$cam1 SetFocalPoint 8.88908 0.595038 29.3342
|
||
|
|
$cam1 SetPosition -12.3332 31.7479 41.2387
|
||
|
|
$cam1 SetViewUp 0.060772 -0.319905 0.945498
|
||
|
|
iren Initialize
|
||
|
|
renWin Render
|
||
|
|
|
||
|
|
# render the image
|
||
|
|
#
|
||
|
|
iren AddObserver UserEvent {wm deiconify .vtkInteract}
|
||
|
|
|
||
|
|
# prevent the tk window from showing up then start the event loop
|
||
|
|
wm withdraw .
|