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
29 #set viewernv.nTypeView "6 1 2 0"
30 set viewernv.nTypeView "6"
31 connect image.Out viewernv.In
34 new ShowNPoints showpoints
35 connect image.Out showpoints.Image
36 connect showpoints.lstPointsX planes.PointsX
37 connect showpoints.lstPointsY planes.PointsY
38 connect showpoints.lstPointsZ planes.PointsZ
39 #set planes.PointsX "10 10 50"
40 #set planes.PointsY "10 50 20"
41 #set planes.PointsZ "10 10 30"
42 connect viewernv.BoxChange showpoints.BoxExecute
43 connect viewernv.Point showpoints.In
44 connect viewernv.Renderer1 showpoints.Renderer
45 set showpoints.Radio 1
47 new ImageActor imgactor
48 connect planes.Image3Pts imgactor.In
49 connect viewernv.Renderer1 imgactor.Renderer
50 connect planes.Transform3Pts imgactor.Transform
54 new CommandButton execplanes
55 set execplanes.Label "Refresh planes"
56 connect execplanes.BoxChange planes.BoxExecute
57 connect execplanes.BoxChange view2d.BoxExecute
58 connect execplanes.BoxChange imgactor.BoxExecute
59 #connect execplanes.BoxChange viewer.BoxExecute
61 new LayoutLine layoutline0
62 connect showpoints.Widget layoutline0.Widget1
63 connect execplanes.Widget layoutline0.Widget2
65 new LayoutLine layoutline1
66 connect viewernv.Widget layoutline1.Widget1
68 new LayoutSplit mainSplit
69 set mainSplit.Orientation H
70 set mainSplit.Proportion 10
71 connect layoutline0.Widget mainSplit.Widget1
72 connect layoutline1.Widget mainSplit.Widget2
78 connect planes.Image3Pts view2d.In