Use chooser in example

diff --git a/packages/demo/bbs/appli/demoPlane3Pts.bbs b/packages/demo/bbs/appli/demoPlane3Pts.bbs
index 325be853c3e8ecf3e0b791cad1f6227c8ca96efb..086d8127033a18a1695511bab37e41092aed42f6 100644 (file)
--- a/packages/demo/bbs/appli/demoPlane3Pts.bbs
+++ b/packages/demo/bbs/appli/demoPlane3Pts.bbs
@@ -1,8 +1,9 @@
-description " ? ? ? "
+description " How to choose points in a 3D image "
 author "davila at creatis.insa-lyon.fr"
 category "demo"
 
 // See also examplePlane3Pts.bbs
+// To know how to read more images.
 
 include vtk/boxes/bbLoadHola
 load vtk
@@ -11,41 +12,21 @@ load creaMaracasVisu
 load std
 load wx
 
-new LoadHola image
+new LoadHola reader
 
-/*
-new FileSelector openFileDialog
-  set openFileDialog.Wildcard  "(*.mhd)|*.mhd"
-new MetaImageReader image
-   connect openFileDialog.Out image.In
-*/ 
-  
 new ImagePlanes planes
-connect image.Out planes.In
-
-#new Viewer3D viewer
-
-#connect planes.PlaneX viewer.Obs1
-#connect planes.PlaneY viewer.Obs2
-#connect planes.PlaneZ viewer.Obs3
-#connect planes.Plane3Pts viewer.Obs4
-#set viewer.WinTitle "Show N Points"
-#set viewer.WinWidth 350
-#set viewer.WinHeight 400
+connect reader.Out planes.In
 
 new ViewerNV viewernv
        #set viewernv.nTypeView "6 1 2 0"
        set viewernv.nTypeView "6"
-       connect image.Out viewernv.In
+       connect reader.Out viewernv.In
 
 new ShowNPoints showpoints
-       connect image.Out showpoints.Image
+       connect reader.Out showpoints.Image
        connect showpoints.lstPointsX planes.PointsX
        connect showpoints.lstPointsY planes.PointsY
        connect showpoints.lstPointsZ planes.PointsZ
-       #set planes.PointsX "10 10 50"
-       #set planes.PointsY "10 50 20"
-       #set planes.PointsZ "10 10 30"
        connect viewernv.BoxChange showpoints.BoxExecute
        connect viewernv.Point showpoints.In
        connect viewernv.Renderer1 showpoints.Renderer

diff --git a/packages/demo/bbs/appli/examplePlane3Pts.bbs b/packages/demo/bbs/appli/examplePlane3Pts.bbs
new file mode 100644 (file)
index 0000000..104b5d1
--- /dev/null
+++ b/packages/demo/bbs/appli/examplePlane3Pts.bbs
@@ -0,0 +1,81 @@
+description " How to choose points in a 3D image "
+author "davila at creatis.insa-lyon.fr"
+category "example"
+
+load vtk
+load wxvtk
+load creaMaracasVisu
+load std
+load wx
+load creaImageIO
+
+# Use new box (choose the way you want to select images)
+# -----------------------------------------------------
+new ImagesReader chooser
+
+# Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
+# WARNING : File names alphabetical order is suposed to be meaningful ...
+
+new ConcatImages reader
+   connect chooser.Out reader.In
+  
+new ImagePlanes planes
+connect reader.Out planes.In
+
+#new Viewer3D viewer
+
+#connect planes.PlaneX viewer.Obs1
+#connect planes.PlaneY viewer.Obs2
+#connect planes.PlaneZ viewer.Obs3
+#connect planes.Plane3Pts viewer.Obs4
+#set viewer.WinTitle "Show N Points"
+#set viewer.WinWidth 350
+#set viewer.WinHeight 400
+
+new ViewerNV viewernv
+       #set viewernv.nTypeView "6 1 2 0"
+       set viewernv.nTypeView "6"
+       connect reader.Out viewernv.In
+
+new ShowNPoints showpoints
+       connect reader.Out showpoints.Image
+       connect showpoints.lstPointsX planes.PointsX
+       connect showpoints.lstPointsY planes.PointsY
+       connect showpoints.lstPointsZ planes.PointsZ
+       #set planes.PointsX "10 10 50"
+       #set planes.PointsY "10 50 20"
+       #set planes.PointsZ "10 10 30"
+       connect viewernv.BoxChange showpoints.BoxExecute
+       connect viewernv.Point showpoints.In
+       connect viewernv.Renderer1 showpoints.Renderer
+       set showpoints.Radio 1
+
+new ImageActor imgactor
+       connect planes.Image3Pts imgactor.In
+       connect viewernv.Renderer1 imgactor.Renderer
+       connect planes.Transform3Pts imgactor.Transform
+
+new Viewer2D view2d
+new CommandButton execplanes
+       set execplanes.Label "Refresh planes"
+       connect execplanes.BoxChange planes.BoxExecute  
+       connect execplanes.BoxChange view2d.BoxExecute  
+       connect execplanes.BoxChange imgactor.BoxExecute
+       #connect execplanes.BoxChange viewer.BoxExecute 
+
+new LayoutLine layoutline0
+connect showpoints.Widget layoutline0.Widget1
+connect execplanes.Widget layoutline0.Widget2
+
+new LayoutLine layoutline1
+connect viewernv.Widget layoutline1.Widget1
+
+new LayoutSplit mainSplit
+set mainSplit.Orientation H
+set mainSplit.Proportion 30
+connect layoutline0.Widget mainSplit.Widget1
+connect layoutline1.Widget mainSplit.Widget2
+
+exec mainSplit
+
+connect planes.Image3Pts view2d.In