Move to "toolsbbtk" boxes that shouldn't be in "CreaMiniTool"

[bbtk.git] / packages / demo / bbs / appli / demoPlane3Pts.bbs

diff --git a/packages/demo/bbs/appli/demoPlane3Pts.bbs b/packages/demo/bbs/appli/demoPlane3Pts.bbs
index 5f8f30b8625558a9ad930b7813fb55bd7d1d5bcb..6ad8ac6d7f290dbfe75e2b5fa813663944569a06 100644 (file)
--- a/packages/demo/bbs/appli/demoPlane3Pts.bbs
+++ b/packages/demo/bbs/appli/demoPlane3Pts.bbs
@@ -1,3 +1,10 @@
+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
 load wxvtk
@@ -5,40 +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
@@ -49,7 +37,6 @@ new ImageActor imgactor
        connect viewernv.Renderer1 imgactor.Renderer
        connect planes.Transform3Pts imgactor.Transform
 
-       
 new Viewer2D view2d
 new CommandButton execplanes
        set execplanes.Label "Refresh planes"
@@ -57,22 +44,21 @@ new CommandButton execplanes
        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
+   connect showpoints.Widget layoutline0.Widget1
+   connect execplanes.Widget layoutline0.Widget2
 
 new LayoutLine layoutline1
-connect viewernv.Widget layoutline1.Widget1
+   connect viewernv.Widget layoutline1.Widget1
 
 new LayoutSplit mainSplit
-set mainSplit.Orientation H
-set mainSplit.Proportion 10
-connect layoutline0.Widget mainSplit.Widget1
-connect layoutline1.Widget mainSplit.Widget2
-
+   set mainSplit.WinWidth 1500
+   set mainSplit.Orientation H
+   set mainSplit.Proportion 15
+   connect layoutline0.Widget mainSplit.Widget1
+   connect layoutline1.Widget mainSplit.Widget2
 
 exec mainSplit
 
-
-connect planes.Image3Pts view2d.In
\ No newline at end of file
+connect planes.Image3Pts view2d.In