# ---------------------------------------------------------------------
 #
 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
 #                        pour la SantÈ)
 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
 #
 #  This software is governed by the CeCILL-B license under French law and
 #  abiding by the rules of distribution of free software. You can  use,
 #  modify and/ or redistribute the software under the terms of the CeCILL-B
 #  license as circulated by CEA, CNRS and INRIA at the following URL
 #  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
 #  or in the file LICENSE.txt.
 #
 #  As a counterpart to the access to the source code and  rights to copy,
 #  modify and redistribute granted by the license, users are provided only
 #  with a limited warranty  and the software's author,  the holder of the
 #  economic rights,  and the successive licensors  have only  limited
 #  liability.
 #
 #  The fact that you are presently reading this means that you have had
 #  knowledge of the CeCILL-B license and that you accept its terms.
 # ------------------------------------------------------------------------ */


load std
load wx
load wxvtk 
load vtk

include wxvtk/boxes/bbIsoSurfaceWidget

define SimpleIsoSurfaceViewer wxvtk

 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 IsoSurfaceWidget 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"
 input WinDialog  main.WinDialog "Dialog mode"
 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"

 output Widget main.Widget "Widget"
 # EXECUTING THE COMPLEX BOX EXECUTES the main
 exec main
endefine