Cloned library of VTK-5.0.0 with extra build files for internal package management.
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.

285 lines
10 KiB

2 years ago
package require vtk
package require vtkinteraction
vtkRenderer ren1
vtkRenderWindow renWin
renWin AddRenderer ren1
vtkRenderWindowInteractor iren
iren SetRenderWindow renWin
# read data
#
vtkStructuredGridReader reader
reader SetFileName "$VTK_DATA_ROOT/Data/office.binary.vtk"
reader Update;#force a read to occur
# to add coverage for vtkMultiPartExtentTranslator
vtkMultiPartExtentTranslator translator
[reader GetOutput] SetExtentTranslator translator
set length [[reader GetOutput] GetLength]
set maxVelocity \
[[[[reader GetOutput] GetPointData] GetVectors] GetMaxNorm]
set maxTime [expr 35.0 * $length / $maxVelocity]
vtkStructuredGridGeometryFilter table1
table1 SetInputConnection [reader GetOutputPort]
table1 SetExtent 11 15 7 9 8 8
vtkPolyDataMapper mapTable1
mapTable1 SetInputConnection [table1 GetOutputPort]
mapTable1 ScalarVisibilityOff
vtkActor table1Actor
table1Actor SetMapper mapTable1
[table1Actor GetProperty] SetColor .59 .427 .392
vtkStructuredGridGeometryFilter table2
table2 SetInputConnection [reader GetOutputPort]
table2 SetExtent 11 15 10 12 8 8
vtkPolyDataMapper mapTable2
mapTable2 SetInputConnection [table2 GetOutputPort]
mapTable2 ScalarVisibilityOff
vtkActor table2Actor
table2Actor SetMapper mapTable2
[table2Actor GetProperty] SetColor .59 .427 .392
vtkStructuredGridGeometryFilter FilingCabinet1
FilingCabinet1 SetInputConnection [reader GetOutputPort]
FilingCabinet1 SetExtent 15 15 7 9 0 8
vtkPolyDataMapper mapFilingCabinet1
mapFilingCabinet1 SetInputConnection [FilingCabinet1 GetOutputPort]
mapFilingCabinet1 ScalarVisibilityOff
vtkActor FilingCabinet1Actor
FilingCabinet1Actor SetMapper mapFilingCabinet1
[FilingCabinet1Actor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter FilingCabinet2
FilingCabinet2 SetInputConnection [reader GetOutputPort]
FilingCabinet2 SetExtent 15 15 10 12 0 8
vtkPolyDataMapper mapFilingCabinet2
mapFilingCabinet2 SetInputConnection [FilingCabinet2 GetOutputPort]
mapFilingCabinet2 ScalarVisibilityOff
vtkActor FilingCabinet2Actor
FilingCabinet2Actor SetMapper mapFilingCabinet2
[FilingCabinet2Actor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf1Top
bookshelf1Top SetInputConnection [reader GetOutputPort]
bookshelf1Top SetExtent 13 13 0 4 0 11
vtkPolyDataMapper mapBookshelf1Top
mapBookshelf1Top SetInputConnection [bookshelf1Top GetOutputPort]
mapBookshelf1Top ScalarVisibilityOff
vtkActor bookshelf1TopActor
bookshelf1TopActor SetMapper mapBookshelf1Top
[bookshelf1TopActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf1Bottom
bookshelf1Bottom SetInputConnection [reader GetOutputPort]
bookshelf1Bottom SetExtent 20 20 0 4 0 11
vtkPolyDataMapper mapBookshelf1Bottom
mapBookshelf1Bottom SetInputConnection [bookshelf1Bottom GetOutputPort]
mapBookshelf1Bottom ScalarVisibilityOff
vtkActor bookshelf1BottomActor
bookshelf1BottomActor SetMapper mapBookshelf1Bottom
[bookshelf1BottomActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf1Front
bookshelf1Front SetInputConnection [reader GetOutputPort]
bookshelf1Front SetExtent 13 20 0 0 0 11
vtkPolyDataMapper mapBookshelf1Front
mapBookshelf1Front SetInputConnection [bookshelf1Front GetOutputPort]
mapBookshelf1Front ScalarVisibilityOff
vtkActor bookshelf1FrontActor
bookshelf1FrontActor SetMapper mapBookshelf1Front
[bookshelf1FrontActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf1Back
bookshelf1Back SetInputConnection [reader GetOutputPort]
bookshelf1Back SetExtent 13 20 4 4 0 11
vtkPolyDataMapper mapBookshelf1Back
mapBookshelf1Back SetInputConnection [bookshelf1Back GetOutputPort]
mapBookshelf1Back ScalarVisibilityOff
vtkActor bookshelf1BackActor
bookshelf1BackActor SetMapper mapBookshelf1Back
[bookshelf1BackActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf1LHS
bookshelf1LHS SetInputConnection [reader GetOutputPort]
bookshelf1LHS SetExtent 13 20 0 4 0 0
vtkPolyDataMapper mapBookshelf1LHS
mapBookshelf1LHS SetInputConnection [bookshelf1LHS GetOutputPort]
mapBookshelf1LHS ScalarVisibilityOff
vtkActor bookshelf1LHSActor
bookshelf1LHSActor SetMapper mapBookshelf1LHS
[bookshelf1LHSActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf1RHS
bookshelf1RHS SetInputConnection [reader GetOutputPort]
bookshelf1RHS SetExtent 13 20 0 4 11 11
vtkPolyDataMapper mapBookshelf1RHS
mapBookshelf1RHS SetInputConnection [bookshelf1RHS GetOutputPort]
mapBookshelf1RHS ScalarVisibilityOff
vtkActor bookshelf1RHSActor
bookshelf1RHSActor SetMapper mapBookshelf1RHS
[bookshelf1RHSActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf2Top
bookshelf2Top SetInputConnection [reader GetOutputPort]
bookshelf2Top SetExtent 13 13 15 19 0 11
vtkPolyDataMapper mapBookshelf2Top
mapBookshelf2Top SetInputConnection [bookshelf2Top GetOutputPort]
mapBookshelf2Top ScalarVisibilityOff
vtkActor bookshelf2TopActor
bookshelf2TopActor SetMapper mapBookshelf2Top
[bookshelf2TopActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf2Bottom
bookshelf2Bottom SetInputConnection [reader GetOutputPort]
bookshelf2Bottom SetExtent 20 20 15 19 0 11
vtkPolyDataMapper mapBookshelf2Bottom
mapBookshelf2Bottom SetInputConnection [bookshelf2Bottom GetOutputPort]
mapBookshelf2Bottom ScalarVisibilityOff
vtkActor bookshelf2BottomActor
bookshelf2BottomActor SetMapper mapBookshelf2Bottom
[bookshelf2BottomActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf2Front
bookshelf2Front SetInputConnection [reader GetOutputPort]
bookshelf2Front SetExtent 13 20 15 15 0 11
vtkPolyDataMapper mapBookshelf2Front
mapBookshelf2Front SetInputConnection [bookshelf2Front GetOutputPort]
mapBookshelf2Front ScalarVisibilityOff
vtkActor bookshelf2FrontActor
bookshelf2FrontActor SetMapper mapBookshelf2Front
[bookshelf2FrontActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf2Back
bookshelf2Back SetInputConnection [reader GetOutputPort]
bookshelf2Back SetExtent 13 20 19 19 0 11
vtkPolyDataMapper mapBookshelf2Back
mapBookshelf2Back SetInputConnection [bookshelf2Back GetOutputPort]
mapBookshelf2Back ScalarVisibilityOff
vtkActor bookshelf2BackActor
bookshelf2BackActor SetMapper mapBookshelf2Back
[bookshelf2BackActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf2LHS
bookshelf2LHS SetInputConnection [reader GetOutputPort]
bookshelf2LHS SetExtent 13 20 15 19 0 0
vtkPolyDataMapper mapBookshelf2LHS
mapBookshelf2LHS SetInputConnection [bookshelf2LHS GetOutputPort]
mapBookshelf2LHS ScalarVisibilityOff
vtkActor bookshelf2LHSActor
bookshelf2LHSActor SetMapper mapBookshelf2LHS
[bookshelf2LHSActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter bookshelf2RHS
bookshelf2RHS SetInputConnection [reader GetOutputPort]
bookshelf2RHS SetExtent 13 20 15 19 11 11
vtkPolyDataMapper mapBookshelf2RHS
mapBookshelf2RHS SetInputConnection [bookshelf2RHS GetOutputPort]
mapBookshelf2RHS ScalarVisibilityOff
vtkActor bookshelf2RHSActor
bookshelf2RHSActor SetMapper mapBookshelf2RHS
[bookshelf2RHSActor GetProperty] SetColor .8 .8 .6
vtkStructuredGridGeometryFilter window
window SetInputConnection [reader GetOutputPort]
window SetExtent 20 20 6 13 10 13
vtkPolyDataMapper mapWindow
mapWindow SetInputConnection [window GetOutputPort]
mapWindow ScalarVisibilityOff
vtkActor windowActor
windowActor SetMapper mapWindow
[windowActor GetProperty] SetColor .3 .3 .5
vtkStructuredGridGeometryFilter outlet
outlet SetInputConnection [reader GetOutputPort]
outlet SetExtent 0 0 9 10 14 16
vtkPolyDataMapper mapOutlet
mapOutlet SetInputConnection [outlet GetOutputPort]
mapOutlet ScalarVisibilityOff
vtkActor outletActor
outletActor SetMapper mapOutlet
[outletActor GetProperty] SetColor 0 0 0
vtkStructuredGridGeometryFilter inlet
inlet SetInputConnection [reader GetOutputPort]
inlet SetExtent 0 0 9 10 0 6
vtkPolyDataMapper mapInlet
mapInlet SetInputConnection [inlet GetOutputPort]
mapInlet ScalarVisibilityOff
vtkActor inletActor
inletActor SetMapper mapInlet
[inletActor GetProperty] SetColor 0 0 0
vtkStructuredGridOutlineFilter outline
outline SetInputConnection [reader GetOutputPort]
vtkPolyDataMapper mapOutline
mapOutline SetInputConnection [outline GetOutputPort]
vtkActor outlineActor
outlineActor SetMapper mapOutline
[outlineActor GetProperty] SetColor 0 0 0
# Create source for streamtubes
vtkStreamPoints streamer
streamer SetInputConnection [reader GetOutputPort]
streamer SetStartPosition 0.1 2.1 0.5
streamer SetMaximumPropagationTime 500
streamer SetTimeIncrement 0.5
streamer SetIntegrationDirectionToForward
vtkConeSource cone
cone SetResolution 8
vtkGlyph3D cones
cones SetInputConnection [streamer GetOutputPort]
cones SetSource [cone GetOutput]
cones SetScaleFactor 0.5
cones SetScaleModeToScaleByVector
vtkPolyDataMapper mapCones
mapCones SetInputConnection [cones GetOutputPort]
eval mapCones SetScalarRange [[reader GetOutput] GetScalarRange]
vtkActor conesActor
conesActor SetMapper mapCones
ren1 AddActor table1Actor
ren1 AddActor table2Actor
ren1 AddActor FilingCabinet1Actor
ren1 AddActor FilingCabinet2Actor
ren1 AddActor bookshelf1TopActor
ren1 AddActor bookshelf1BottomActor
ren1 AddActor bookshelf1FrontActor
ren1 AddActor bookshelf1BackActor
ren1 AddActor bookshelf1LHSActor
ren1 AddActor bookshelf1RHSActor
ren1 AddActor bookshelf2TopActor
ren1 AddActor bookshelf2BottomActor
ren1 AddActor bookshelf2FrontActor
ren1 AddActor bookshelf2BackActor
ren1 AddActor bookshelf2LHSActor
ren1 AddActor bookshelf2RHSActor
ren1 AddActor windowActor
ren1 AddActor outletActor
ren1 AddActor inletActor
ren1 AddActor outlineActor
ren1 AddActor conesActor
ren1 SetBackground 0.4 0.4 0.5
vtkCamera aCamera
aCamera SetClippingRange 0.7724 39
aCamera SetFocalPoint 1.14798 3.08416 2.47187
aCamera SetPosition -2.64683 -3.55525 3.55848
aCamera SetViewUp 0.0511273 0.132773 0.989827
aCamera SetViewAngle 15.5033
ren1 SetActiveCamera aCamera
renWin SetSize 500 300
iren AddObserver UserEvent {wm deiconify .vtkInteract}
iren Initialize
# interact with data
wm withdraw .