1 # ---------------------------------------------------------------------
3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
5 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
6 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
7 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
9 # This software is governed by the CeCILL-B license under French law and
10 # abiding by the rules of distribution of free software. You can use,
11 # modify and/ or redistribute the software under the terms of the CeCILL-B
12 # license as circulated by CEA, CNRS and INRIA at the following URL
13 # http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
14 # or in the file LICENSE.txt.
16 # As a counterpart to the access to the source code and rights to copy,
17 # modify and redistribute granted by the license, users are provided only
18 # with a limited warranty and the software's author, the holder of the
19 # economic rights, and the successive licensors have only limited
22 # The fact that you are presently reading this means that you have had
23 # knowledge of the CeCILL-B license and that you accept its terms.
24 # ------------------------------------------------------------------------ */
29 description "Demo of the box <a href=#bbBasicImageApplication>BasicImageApplication</a> : creates an interactive image thresholding application"
30 author "laurent.guigues@creatis.insa-lyon.fr"
33 ## THE APPLICATION BOX
34 include wxvtk/bbs/boxes/bbBasicImageApplication
35 new BasicImageApplication appli
36 set appli.WinTitle "ExampleBasicImageApplication"
39 new BinaryThresholdImageFilter filter
40 connect appli.AlgorithmInput filter.In
41 connect filter.Out appli.AlgorithmOutput
43 ## THE WINDOW FOR PARAMETERS TUNING
44 new LayoutLine parametersWindow
45 new Slider upperThresholdSlider
46 set upperThresholdSlider.Title "upper threshold"
47 set upperThresholdSlider.In 100
48 new Slider lowerThresholdSlider
49 set lowerThresholdSlider.Title "lower threshold"
50 set lowerThresholdSlider.In 0
51 connect lowerThresholdSlider.Widget parametersWindow.Widget1
52 connect upperThresholdSlider.Widget parametersWindow.Widget2
53 connect upperThresholdSlider.Out filter.UpperThreshold
54 connect lowerThresholdSlider.Out filter.LowerThreshold
57 connect parametersWindow.Widget appli.ParametersWidget
58 set appli.ParametersWindowHeight 200
59 set appli.ParametersWindowWidth 400
60 #set appli.Refresh Reactive