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




description "Demo of the box <a href=#bbBasicImageApplication>BasicImageApplication</a> : creates an interactive image thresholding application"
author "laurent.guigues@creatis.insa-lyon.fr"
category "example"

## THE APPLICATION BOX
include wxvtk/bbs/boxes/bbBasicImageApplication
new BasicImageApplication appli
set appli.WinTitle "ExampleBasicImageApplication"

## THE FILTER 
new BinaryThresholdImageFilter filter
connect appli.AlgorithmInput filter.In
connect filter.Out appli.AlgorithmOutput

## THE WINDOW FOR PARAMETERS TUNING
new LayoutLine parametersWindow
new Slider upperThresholdSlider
set upperThresholdSlider.Title "upper threshold"
set upperThresholdSlider.In 100
new Slider lowerThresholdSlider
set lowerThresholdSlider.Title "lower threshold"
set lowerThresholdSlider.In 0
connect lowerThresholdSlider.Widget parametersWindow.Widget1
connect upperThresholdSlider.Widget parametersWindow.Widget2
connect upperThresholdSlider.Out filter.UpperThreshold
connect lowerThresholdSlider.Out filter.LowerThreshold


connect parametersWindow.Widget appli.ParametersWidget
set appli.ParametersWindowHeight 200
set appli.ParametersWindowWidth 400
#set appli.Refresh Reactive

#message Process 3
## GO !
#message All 9
#graph

#message Wx 9 
exec appli
#graph