X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Fdemo%2Fbbs%2Fappli%2FdemoPlane3Pts.bbs;h=6ad8ac6d7f290dbfe75e2b5fa813663944569a06;hb=dd84f147fb40d2d98ea5f915081c8be0352f7ed1;hp=5f8f30b8625558a9ad930b7813fb55bd7d1d5bcb;hpb=2e1f522c4615a3a0f71575ece9e053860883eeec;p=bbtk.git

diff --git a/packages/demo/bbs/appli/demoPlane3Pts.bbs b/packages/demo/bbs/appli/demoPlane3Pts.bbs
index 5f8f30b..6ad8ac6 100644
--- 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