X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Fdemo%2Fbbs%2Fappli%2FdemoPlane3Pts.bbs;h=6ad8ac6d7f290dbfe75e2b5fa813663944569a06;hb=2441c154e1940e42455187049718d0a15d7fb81f;hp=23aa8c2f9a68c0df75fdc8e986fa07104dcbefc8;hpb=60705303d6e1ebac2defc005505c5121fbdec0d9;p=bbtk.git

diff --git a/packages/demo/bbs/appli/demoPlane3Pts.bbs b/packages/demo/bbs/appli/demoPlane3Pts.bbs
index 23aa8c2..6ad8ac6 100644
--- a/packages/demo/bbs/appli/demoPlane3Pts.bbs
+++ b/packages/demo/bbs/appli/demoPlane3Pts.bbs
@@ -1,7 +1,10 @@
-description " ? ? ? "
-author "???creatis.insa-lyon.fr"
+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
@@ -9,39 +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
@@ -61,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 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