From: guigues <guigues>
Date: Thu, 6 Mar 2008 13:04:25 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: r0.6.1~141
X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=commitdiff_plain;h=799a0b98a917868c5edafaa57ac91ce640e15b4d;p=bbtk.git

*** empty log message ***
---

diff --git a/packages/wxvtk/bbs/appli/ExampleSimpleIsoSurfaceViewer.bbs b/packages/wxvtk/bbs/appli/ExampleSimpleIsoSurfaceViewer.bbs
new file mode 100644
index 0000000..6141f90
--- /dev/null
+++ b/packages/wxvtk/bbs/appli/ExampleSimpleIsoSurfaceViewer.bbs
@@ -0,0 +1,18 @@
+description "Example of the box <a href=#SimpleIsoSurfaceViewer>SimpleIsoSurfaceViewer</a>."
+author "laurent.guigues@creatis.insa-lyon.fr"
+category "example"
+
+include vtk/boxes/bbLoadHola
+include wxvtk/boxes/bbSimpleIsoSurfaceViewer
+
+new LoadHola image
+new SimpleIsoSurfaceViewer viewer
+connect image.Out viewer.In
+
+load std
+set viewer.WinTitle "ExampleSimpleIsoSurfaceViewer"
+set viewer.WinWidth 350
+set viewer.WinHeight 400
+
+exec viewer
+
diff --git a/packages/wxvtk/bbs/boxes/bbSimpleIsoSurfaceViewer.bbs b/packages/wxvtk/bbs/boxes/bbSimpleIsoSurfaceViewer.bbs
new file mode 100644
index 0000000..5d38329
--- /dev/null
+++ b/packages/wxvtk/bbs/boxes/bbSimpleIsoSurfaceViewer.bbs
@@ -0,0 +1,47 @@
+load std
+load wx
+load wxvtk 
+load vtk
+
+include wxvtk/boxes/bbIsoSurfaceWithControls
+
+define SimpleIsoSurfaceViewer
+
+ description "Simple viewer of an iso-surface of an image"
+ author "laurent.guigues@creatis.insa-lyon.fr"
+ category "viewer"
+
+ new LayoutSplit main
+ new Viewer3D viewer
+
+ new IsoSurfaceWithControls surface
+
+ set surface.Isovalue 10
+ set surface.Title "Surface"
+ set surface.Vertical 0
+
+ connect viewer.Widget main.Widget1
+ connect surface.Widget main.Widget2 
+
+ # WE NEED A MultipleInputs BOX TO CONNECT BOTH 
+ # surface.BoxChange AND THE INPUT BoxExecute 
+ # OF THE COMPLEX BOX TO viewer.BoxExecute
+ new MultipleInputs refresh
+
+  
+ connect surface.Out viewer.In1
+ connect surface.BoxChange refresh.In1
+ connect refresh.Out viewer.BoxExecute
+
+ set main.Proportion 80
+
+ input In surface.In "Input image"
+ output Widget main.Widget "Widget"
+ input WinTitle main.WinTitle "Title of the window"
+ input WinWidth main.WinWidth "Width of the window"
+ input WinHeight main.WinHeight "Height of the window"
+ input BoxExecute refresh.In2 "Execute the box"
+
+ # EXECUTING THE COMPLEX BOX EXECUTES the main
+ exec main
+endefine