packages/wxvtk/bbs/old/ExampleBasicImageApplication.bbs

   1  # ---------------------------------------------------------------------
   2  #
   3  # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
   4  #                        pour la SantÈ)
   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
   8  #
   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.
  15  #
  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
  20  #  liability.
  21  #
  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  # ------------------------------------------------------------------------ */
  25
  26
  27
  28
  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"
  31 category "example"
  32
  33 ## THE APPLICATION BOX
  34 include wxvtk/bbs/boxes/bbBasicImageApplication
  35 new BasicImageApplication appli
  36 set appli.WinTitle "ExampleBasicImageApplication"
  37
  38 ## THE FILTER
  39 new BinaryThresholdImageFilter filter
  40 connect appli.AlgorithmInput filter.In
  41 connect filter.Out appli.AlgorithmOutput
  42
  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
  55
  56
  57 connect parametersWindow.Widget appli.ParametersWidget
  58 set appli.ParametersWindowHeight 200
  59 set appli.ParametersWindowWidth 400
  60 #set appli.Refresh Reactive
  61
  62 #message Process 3
  63 ## GO !
  64 #message All 9
  65 #graph
  66
  67 #message Wx 9
  68 exec appli
  69 #graph
  70
  71
  72
  73