← Back to branch summary

~ubuntu-branches/ubuntu/utopic/vtk6/utopic

« back to all changes in this revision

Viewing changes to IO/EnSight/Testing/Tcl/EnSight6Elements.tcl

  • Committer: Package Import Robot
  • Author(s): Anton Gladky
  • Date: 2014-01-07 21:26:32 UTC
  • Revision ID: package-import@ubuntu.com-20140107212632-vzwzmu3oyc3obmsg
Tags: upstream-6.0.0
Import upstream version 6.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
IO/EnSight/Testing/Tcl/EnSight6Elements.tcl
 
1
package require vtk
 
2
package require vtkinteraction
 
3
 
 
4
# create a rendering window and renderer
 
5
vtkRenderer ren1
 
6
vtkRenderWindow renWin
 
7
    renWin AddRenderer ren1
 
8
    renWin StereoCapableWindowOn
 
9
vtkRenderWindowInteractor iren
 
10
    iren SetRenderWindow renWin
 
11
 
 
12
vtkGenericEnSightReader reader
 
13
# Make sure all algorithms use the composite data pipeline
 
14
vtkCompositeDataPipeline cdp
 
15
reader SetDefaultExecutivePrototype cdp
 
16
cdp Delete
 
17
    reader SetCaseFileName "$VTK_DATA_ROOT/Data/EnSight/elements6.case"
 
18
 
 
19
vtkGeometryFilter geom
 
20
    geom SetInputConnection [reader GetOutputPort]
 
21
 
 
22
vtkArrayCalculator calc
 
23
    calc SetInputConnection [geom GetOutputPort]
 
24
    calc SetAttributeModeToUsePointData
 
25
    calc SetFunction "pointCVectors_r . pointCVectors_i + pointScalars"
 
26
    calc AddScalarArrayName "pointScalars" 0
 
27
    calc AddVectorArrayName "pointCVectors_r" 0 1 2
 
28
    calc AddVectorArrayName "pointCVectors_i" 0 1 2
 
29
    calc SetResultArrayName "test"
 
30
 
 
31
vtkHierarchicalPolyDataMapper mapper
 
32
    mapper SetInputConnection [calc GetOutputPort]
 
33
    mapper SetColorModeToMapScalars
 
34
    mapper SetScalarModeToUsePointFieldData
 
35
    mapper ColorByArrayComponent "test" 0
 
36
    mapper SetScalarRange 0 36000
 
37
 
 
38
vtkActor actor
 
39
    actor SetMapper mapper
 
40
 
 
41
# assign our actor to the renderer
 
42
ren1 AddActor actor
 
43
 
 
44
# enable user interface interactor
 
45
iren AddObserver UserEvent {wm deiconify .vtkInteract}
 
46
iren Initialize
 
47
 
 
48
renWin Render
 
49
 
 
50
# prevent the tk window from showing up then start the event loop
 
51
wm withdraw .
 
52
 
 
53
reader SetDefaultExecutivePrototype {}