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