1 include vtk/boxes/bbLoadHola
10 new FileSelector openFileDialog
11 set openFileDialog.Wildcard "(*.mhd)|*.mhd"
12 new MetaImageReader image
13 connect openFileDialog.Out image.In
15 new ImagePlanes planes
16 connect image.Out planes.In
20 #connect planes.PlaneX viewer.Obs1
21 #connect planes.PlaneY viewer.Obs2
22 #connect planes.PlaneZ viewer.Obs3
23 #connect planes.Plane3Pts viewer.Obs4
24 #set viewer.WinTitle "Show N Points"
25 #set viewer.WinWidth 350
26 #set viewer.WinHeight 400
28 new TransferFunctionView transferfunc
29 connect image.Out transferfunc.In
32 set viewernv.nTypeView "6 1 2 0"
33 #set viewernv.nTypeView "6"
34 connect image.Out viewernv.In
35 connect transferfunc.ColorFunction viewernv.ColorFunction
36 connect transferfunc.WindowLevel viewernv.WindowLevel
37 connect transferfunc.ColorLevel viewernv.ColorLevel
40 new ShowNPoints showpoints
41 connect image.Out showpoints.Image
42 connect showpoints.lstPointsX planes.PointsX
43 connect showpoints.lstPointsY planes.PointsY
44 connect showpoints.lstPointsZ planes.PointsZ
45 #set planes.PointsX "10 10 50"
46 #set planes.PointsY "10 50 20"
47 #set planes.PointsZ "10 10 30"
48 connect viewernv.BoxChange showpoints.BoxExecute
49 connect viewernv.Point showpoints.In
50 connect viewernv.Renderer1 showpoints.Renderer
51 set showpoints.Radio 1
53 new ImageActor imgactor
54 connect planes.Image3Pts imgactor.In
55 connect viewernv.Renderer1 imgactor.Renderer
56 connect planes.Transform3Pts imgactor.Transform
60 new CommandButton execplanes
61 set execplanes.Label "Refresh planes"
62 connect execplanes.BoxChange planes.BoxExecute
63 connect execplanes.BoxChange view2d.BoxExecute
64 connect execplanes.BoxChange imgactor.BoxExecute
65 #connect execplanes.BoxChange viewer.BoxExecute
67 new LayoutLine layoutline0
68 connect showpoints.Widget layoutline0.Widget1
69 connect execplanes.Widget layoutline0.Widget2
70 connect transferfunc.Widget layoutline0.Widget3
73 new LayoutLine layoutline1
74 connect viewernv.Widget layoutline1.Widget1
76 new LayoutSplit mainSplit
77 set mainSplit.Orientation H
78 set mainSplit.Proportion 10
79 connect layoutline0.Widget mainSplit.Widget1
80 connect layoutline1.Widget mainSplit.Widget2
86 connect planes.Image3Pts view2d.In