*** empty log message ***

diff --git a/bbtk/bbs/appli/ExamplePlaneNPoints.bbs b/bbtk/bbs/appli/ExamplePlaneNPoints.bbs
new file mode 100644 (file)
index 0000000..67a1c61
--- /dev/null
+++ b/bbtk/bbs/appli/ExamplePlaneNPoints.bbs
@@ -0,0 +1,86 @@
+include vtk/boxes/bbLoadHola
+load vtk
+load wxvtk
+load creaMaracasVisu
+load std
+load wx
+
+//new LoadHola image
+
+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
+
+new TransferFunctionView transferfunc
+       connect image.Out transferfunc.In
+
+new ViewerNV viewernv
+       set viewernv.nTypeView "6 1 2 0"
+       #set viewernv.nTypeView "6"
+       connect image.Out viewernv.In
+       connect transferfunc.ColorFunction viewernv.ColorFunction
+       connect transferfunc.WindowLevel viewernv.WindowLevel
+       connect transferfunc.ColorLevel viewernv.ColorLevel
+       
+       
+new ShowNPoints showpoints
+       connect image.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
+connect transferfunc.Widget layoutline0.Widget3
+
+
+new LayoutLine layoutline1
+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
+
+
+exec mainSplit
+
+
+connect planes.Image3Pts view2d.In
\ No newline at end of file