# ---------------------------------------------------------------------
 #
 # 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.
 # ------------------------------------------------------------------------ */


# ----------------------------------
# - BBTKGEditor v 1.2 BBS BlackBox Script (Complex Box)
# - /Users/davila/Creatis/All3/creatools_source/bbtk/packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs
# ----------------------------------

include std
include itkvtk
include wx
include vtk
include std

define IsoSurfaceWidget wxvtk

author "laurent.guigues@creatis.insa-lyon.fr"
description "Image iso-surface extractor (vtk"

category "image;mesh;widget;viewer"

new LayoutLine controls
  set controls.Orientation "HORIZONTAL"

new LayoutLine sliders

new IsoSurfaceExtractor surface

new Slider isovalue
  set isovalue.Max 5000
  set isovalue.Title "Isovalue"

new Slider opacity
  set opacity.In "100"
  set opacity.Max "100"
  set opacity.Min "0"
  set opacity.Title "Opacity"

new LayoutLine colourFrame
  set colourFrame.WinTitle "Colour"

new ColourSelectorButton colour

new MultipleInputs refresh

new Div div
  set div.In2 "100"


connect sliders.Widget controls.Widget1
connect colourFrame.Widget controls.Widget2
connect colour.Widget colourFrame.Widget1
connect isovalue.Widget sliders.Widget1
connect opacity.Widget sliders.Widget2
connect isovalue.Out surface.Isovalue
connect opacity.Out div.In1
connect div.Out surface.Opacity
connect colour.Out surface.Colour
connect isovalue.BoxChange refresh.In1
connect opacity.BoxChange refresh.In2
connect colour.BoxChange refresh.In3
connect refresh.Out surface.BoxExecute


# Complex input ports
input Title controls.WinTitle " "
input Opacity opacity.In " "
input Isovalue isovalue.In " "
input Colour colour.In " "
input Vertical controls.Orientation " "
input BoxExecute refresh.In4 " "
input vtkRenderer surface.Renderer " "
input In surface.In " "
input maxIsovalue isovalue.Max " "

# Complex output ports
output Out surface.Out " "
output BoxChange refresh.Out " "
output Widget controls.Widget " "

endefine