]> Creatis software - creaMaracasVisu.git/blobdiff - bbtk/bbs/appli/examplePlaneNPoints.bbs
no message
[creaMaracasVisu.git] / bbtk / bbs / appli / examplePlaneNPoints.bbs
index 0f686b41059ec4db96876c391b6cdf497cc8728d..9dcbe7a2eb47b0b1ee6f38a146bfddd15afe40c1 100644 (file)
@@ -1,8 +1,7 @@
-description " 3pionts -> 1-planne "
+description " 3points -> 1-plane "
 author "info-dev@creatis.insa-lyon.fr"
 category "example"
 
-
 include vtk/boxes/bbLoadHola
 load vtk
 load wxvtk
@@ -10,15 +9,15 @@ 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 MetaImageReader reader
+   connect openFileDialog.Out reader.In
    
 new ImagePlanes planes
-connect image.Out planes.In
+connect reader.Out planes.In
 
 #new Viewer3D viewer
 
@@ -31,19 +30,18 @@ connect image.Out planes.In
 #set viewer.WinHeight 400
 
 new TransferFunctionView transferfunc
-       connect image.Out transferfunc.In
+       connect reader.Out transferfunc.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
        connect transferfunc.ColorFunction viewernv.ColorFunction
        connect transferfunc.WindowLevel viewernv.WindowLevel
-       connect transferfunc.ColorLevel viewernv.ColorLevel
-       
+       connect transferfunc.ColorLevel viewernv.ColorLevel     
        
 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
@@ -60,7 +58,6 @@ new ImageActor imgactor
        connect viewernv.Renderer1 imgactor.Renderer
        connect planes.Transform3Pts imgactor.Transform
 
-       
 new Viewer2D view2d
 new CommandButton execplanes
        set execplanes.Label "Refresh planes"
@@ -74,7 +71,6 @@ connect showpoints.Widget layoutline0.Widget1
 connect execplanes.Widget layoutline0.Widget2
 connect transferfunc.Widget layoutline0.Widget3
 
-
 new LayoutLine layoutline1
 connect viewernv.Widget layoutline1.Widget1
 
@@ -84,8 +80,6 @@ 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
+connect planes.Image3Pts view2d.In