1 description " How to choose points in a 3D image "
2 author "davila at creatis.insa-lyon.fr"
12 # Use new box (choose the way you want to select images)
13 # -----------------------------------------------------
14 new ImagesChooserDialogBox chooser
16 # Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
17 # WARNING : File names alphabetical order is suposed to be meaningful ...
19 new ConcatImages reader
20 connect chooser.Out reader.In
22 new ImagePlanes planes
23 connect reader.Out planes.In
27 #connect planes.PlaneX viewer.Obs1
28 #connect planes.PlaneY viewer.Obs2
29 #connect planes.PlaneZ viewer.Obs3
30 #connect planes.Plane3Pts viewer.Obs4
31 #set viewer.WinTitle "Show N Points"
32 #set viewer.WinWidth 350
33 #set viewer.WinHeight 400
36 #set viewernv.nTypeView "6 1 2 0"
37 set viewernv.nTypeView "6"
38 connect reader.Out viewernv.In
40 new ShowNPoints showpoints
41 connect reader.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
59 new CommandButton execplanes
60 set execplanes.Label "Refresh planes"
61 connect execplanes.BoxChange planes.BoxExecute
62 connect execplanes.BoxChange view2d.BoxExecute
63 connect execplanes.BoxChange imgactor.BoxExecute
64 #connect execplanes.BoxChange viewer.BoxExecute
66 new LayoutLine layoutline0
67 connect showpoints.Widget layoutline0.Widget1
68 connect execplanes.Widget layoutline0.Widget2
70 new LayoutLine layoutline1
71 connect viewernv.Widget layoutline1.Widget1
73 new LayoutSplit mainSplit
74 set mainSplit.Orientation H
75 set mainSplit.Proportion 30
76 connect layoutline0.Widget mainSplit.Widget1
77 connect layoutline1.Widget mainSplit.Widget2
81 connect planes.Image3Pts view2d.In