#3138 creaMaracasVisu Feature New Normal - branch vtk7itk4wx3

[creaMaracasVisu.git] / bbtk / bbs / appli / examplePlaneNPoints.bbs

diff --git a/bbtk/bbs/appli/examplePlaneNPoints.bbs b/bbtk/bbs/appli/examplePlaneNPoints.bbs
index c1b06250abf555a6db5a0d45fa541c647aa18874..28a67f675fbfd40e3020cdbc98baf2326cab7e70 100644 (file)
--- a/bbtk/bbs/appli/examplePlaneNPoints.bbs
+++ b/bbtk/bbs/appli/examplePlaneNPoints.bbs
@@ -1,85 +1,114 @@
-description " 3points -> 1-plane "
+# ----------------------------------
+# - BBTKGEditor v 1.4 BBS BlackBox Script
+# - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/examplePlaneNPoints.bbs
+# ----------------------------------
+
+# BBTK GEditor Script
+# ----------------------
+
+include std
+include itkvtk
+include wx
+include vtk
+include creaMaracasVisu
+include wxvtk
+
 author "info-dev@creatis.insa-lyon.fr"
+description " 3points -> 1-plane "
 category "example"
 
-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
+new wx:FileSelector openFileDialog
+  set openFileDialog.Wildcard "(*.mhd)|*.mhd"
+
+new vtk:MetaImageReader reader
+
+new vtk:ImagePlanes planes
+
+new creaMaracasVisu:TransferFunctionView transferfunc
+
+new creaMaracasVisu:ViewerNV viewernv
+  set viewernv.nTypeView "6 1 2 0"
+
+new creaMaracasVisu:ShowNPoints showpoints
+  set showpoints.Radio "1"
+
+new creaMaracasVisu:ImageActor imgactor
+
+new wxvtk:Viewer2D view2d
+
+new wx:CommandButton execplanes
+  set execplanes.Label "Refresh planes"
+
+new wx:LayoutLine layoutline0
+
+new wx:LayoutLine layoutline1
+
+new wx:LayoutSplit mainSplit
+  set mainSplit.Orientation "H"
+  set mainSplit.Proportion "10"
+
+new vtk:LoadHola Box12
+
+new vtk:vtkImageDataPointerRelay Box13
+
+
+connect openFileDialog.Out reader.In
+
+connect transferfunc.ColorFunction viewernv.ColorFunction
+
+connect transferfunc.WindowLevel viewernv.WindowLevel
+
+connect transferfunc.ColorLevel viewernv.ColorLevel
+
+connect showpoints.lstPointsX planes.PointsX
+
+connect showpoints.lstPointsY planes.PointsY
+
+connect showpoints.lstPointsZ planes.PointsZ
+
+connect viewernv.BoxChange showpoints.BoxExecute
+
+connect viewernv.Point showpoints.In
+
+connect viewernv.Renderer1 showpoints.Renderer
+
+connect planes.Image3Pts imgactor.In
+
+connect viewernv.Renderer1 imgactor.Renderer
+
+connect planes.Transform3Pts imgactor.Transform
+
+connect execplanes.BoxChange planes.BoxExecute
+
+connect execplanes.BoxChange view2d.BoxExecute
+
+connect execplanes.BoxChange imgactor.BoxExecute
+
 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 layoutline1.Widget mainSplit.Widget2
 
 connect planes.Image3Pts view2d.In
+
+connect Box12.Out Box13.In
+
+connect Box13.Out transferfunc.In
+
+connect Box13.Out planes.In
+
+connect Box13.Out showpoints.Image
+
+connect Box13.Out viewernv.In
+
+
+
+# Complex input ports
+exec mainSplit