ParticleReader.tcl 930 Bytes
Newer Older
1 2
package require vtk
package require vtkinteraction
Charles Law's avatar
Charles Law committed
3 4 5 6 7 8 9 10 11 12 13 14 15


# Create the RenderWindow, Renderer and both Actors
#
vtkRenderer ren1
vtkRenderWindow renWin
    renWin AddRenderer ren1
vtkRenderWindowInteractor iren
    iren SetRenderWindow renWin


vtkParticleReader reader
  reader SetFileName "$VTK_DATA_ROOT/Data/Particles.raw"
16
  reader SetDataByteOrderToBigEndian
Charles Law's avatar
Charles Law committed
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

vtkPolyDataMapper mapper
    mapper SetInput [reader GetOutput]
    mapper SetScalarRange 4 9
    mapper SetPiece 1
    mapper SetNumberOfPieces 2
vtkActor actor
    actor SetMapper mapper
    [actor GetProperty] SetPointSize 2.5

# Add the actors to the renderer, set the background and size
#
ren1 AddActor actor
ren1 SetBackground 0 0 0
renWin SetSize 200 200

# Get handles to some useful objects
#
35
iren AddObserver UserEvent {wm deiconify .vtkInteract}
Charles Law's avatar
Charles Law committed
36 37 38 39 40 41
iren Initialize
renWin Render

# prevent the tk window from showing up then start the event loop
wm withdraw .