2 author "davila at creatis.insa-lyon.fr"
5 // See also examplePlane3Pts.bbs
7 include vtk/boxes/bbLoadHola
17 new FileSelector openFileDialog
18 set openFileDialog.Wildcard "(*.mhd)|*.mhd"
19 new MetaImageReader image
20 connect openFileDialog.Out image.In
23 new ImagePlanes planes
24 connect image.Out planes.In
28 #connect planes.PlaneX viewer.Obs1
29 #connect planes.PlaneY viewer.Obs2
30 #connect planes.PlaneZ viewer.Obs3
31 #connect planes.Plane3Pts viewer.Obs4
32 #set viewer.WinTitle "Show N Points"
33 #set viewer.WinWidth 350
34 #set viewer.WinHeight 400
37 #set viewernv.nTypeView "6 1 2 0"
38 set viewernv.nTypeView "6"
39 connect image.Out viewernv.In
41 new ShowNPoints showpoints
42 connect image.Out showpoints.Image
43 connect showpoints.lstPointsX planes.PointsX
44 connect showpoints.lstPointsY planes.PointsY
45 connect showpoints.lstPointsZ planes.PointsZ
46 #set planes.PointsX "10 10 50"
47 #set planes.PointsY "10 50 20"
48 #set planes.PointsZ "10 10 30"
49 connect viewernv.BoxChange showpoints.BoxExecute
50 connect viewernv.Point showpoints.In
51 connect viewernv.Renderer1 showpoints.Renderer
52 set showpoints.Radio 1
54 new ImageActor imgactor
55 connect planes.Image3Pts imgactor.In
56 connect viewernv.Renderer1 imgactor.Renderer
57 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
71 new LayoutLine layoutline1
72 connect viewernv.Widget layoutline1.Widget1
74 new LayoutSplit mainSplit
75 set mainSplit.Orientation H
76 set mainSplit.Proportion 30
77 connect layoutline0.Widget mainSplit.Widget1
78 connect layoutline1.Widget mainSplit.Widget2
82 connect planes.Image3Pts view2d.In