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

diff --git a/packages/demo/bbs/appli/demoPlane3Pts.bbs b/packages/demo/bbs/appli/demoPlane3Pts.bbs
index 325be85..6ad8ac6 100644
--- 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
@@ -65,17 +46,18 @@ new CommandButton execplanes
 	#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 30
-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