1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
package require vtk
# create a rendering window
vtkRenderWindow renWin
renWin SetMultiSamples 0
renWin SetSize 200 200
vtkRTAnalyticSource wavelet
wavelet SetWholeExtent -100 100 -100 100 0 0
wavelet SetCenter 0 0 0
wavelet SetMaximum 255
wavelet SetStandardDeviation .5
wavelet SetXFreq 60
wavelet SetYFreq 30
wavelet SetZFreq 40
wavelet SetXMag 10
wavelet SetYMag 18
wavelet SetZMag 5
wavelet SetSubsampleRate 1
vtkWarpTo warp
warp SetInputConnection [wavelet GetOutputPort]
warp SetScaleFactor 0
warp SetPosition 0 0 0
vtkDataSetMapper mapper
mapper SetInputConnection [warp GetOutputPort]
mapper SetScalarRange 75 290
vtkActor actor
actor SetMapper mapper
vtkRenderer renderer
renderer AddActor actor
renderer ResetCamera
renWin AddRenderer renderer
warp SetScaleFactor 0.25
warp SetPosition 75 75 0
warp Update
|
