X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;ds=sidebyside;f=bbtk%2Fbbs%2Fappli%2FExamplePlaneNPoints.bbs;fp=bbtk%2Fbbs%2Fappli%2FExamplePlaneNPoints.bbs;h=67a1c613581598a356c276b925a5e9d093d2971d;hb=e6818a793155537435d026929e1049c214247aa3;hp=0000000000000000000000000000000000000000;hpb=897a0bac598efea92fed1b94f4eeaa8adb337757;p=creaMaracasVisu.git

diff --git a/bbtk/bbs/appli/ExamplePlaneNPoints.bbs b/bbtk/bbs/appli/ExamplePlaneNPoints.bbs
new file mode 100644
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