packages/toolsbbtk/bbs/boxes/bbSlidersForSize.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 # - BBTKGEditor v 1.2 BBS BlackBox Script (Complex Box)
  29 # - /home/jpr/Creatis/All/creatools_source/bbtk/packages/toolsbbtk/bbs/boxes/bbSlidersForSize.bbs
  30 # ----------------------------------
  31
  32 include std
  33 include itkvtk
  34 include itk
  35 include std
  36 include wx
  37
  38 define SlidersForSize toolsbbtk
  39
  40 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  41 description "Display 6 sliders for sizes of 3D image"
  42
  43 category "complex box, widget"
  44
  45 new ImageProperties mc
  46
  47 new GetVectorIntElement gveX
  48   set gveX.I "0"
  49
  50 new GetVectorIntElement gveY
  51   set gveY.I "1"
  52
  53 new GetVectorIntElement gveZ
  54   set gveZ.I "2"
  55
  56 new MagicBox mb
  57
  58 new Slider xMin
  59   set xMin.In 0
  60   set xMin.Label "1"
  61   set xMin.Min "0"
  62   set xMin.Title "XMin"
  63
  64 new Slider xMax
  65   set xMax.Label "1"
  66   set xMax.Min "0"
  67   set xMax.Title "XMax"
  68
  69 new Slider yMin
  70   set yMin.In 0
  71   set yMin.Label "1"
  72   set yMin.Min "0"
  73   set yMin.Title "YMin"
  74
  75 new Slider yMax
  76   set yMax.Label "1"
  77   set yMax.Min "0"
  78   set yMax.Title "YMax"
  79
  80 new Slider zMin
  81   set zMin.In 0
  82   set zMin.Label "1"
  83   set zMin.Min "0"
  84   set zMin.Title "ZMin"
  85
  86 new Slider zMax
  87   set zMax.Label "1"
  88   set zMax.Min "0"
  89   set zMax.Title "ZMax"
  90
  91 new MultipleInputs mi1
  92
  93 new LayoutLine Box13
  94
  95 new Add Box14
  96   set Box14.In2 -1
  97
  98 new Add Box15
  99   set Box15.In2 -1
 100
 101 new Add Box16
 102   set Box16.In2 -1
 103
 104
 105 connect mc.Size gveX.In
 106 connect mc.Size gveY.In
 107 connect mc.Size gveZ.In
 108 connect gveX.Out xMin.Max
 109 connect mb.Out xMin.ReactiveOnTrack
 110 connect mb.Out xMax.ReactiveOnTrack
 111 connect gveY.Out yMin.Max
 112 connect mb.Out yMin.ReactiveOnTrack
 113 connect mb.Out yMax.ReactiveOnTrack
 114 connect mb.Out zMin.ReactiveOnTrack
 115 connect xMin.BoxChange mi1.In1
 116 connect xMax.BoxChange mi1.In2
 117 connect yMin.BoxChange mi1.In3
 118 connect yMax.BoxChange mi1.In4
 119 connect zMin.BoxChange mi1.In5
 120 connect gveZ.Out zMin.Max
 121 connect xMin.Widget Box13.Widget1
 122 connect xMax.Widget Box13.Widget2
 123 connect yMin.Widget Box13.Widget3
 124 connect yMax.Widget Box13.Widget4
 125 connect zMin.Widget Box13.Widget5
 126 connect zMax.Widget Box13.Widget6
 127 connect mb.Out zMax.ReactiveOnTrack
 128 connect gveX.Out Box16.In1
 129 connect Box15.Out yMax.Max
 130 connect gveY.Out Box15.In1
 131 connect gveZ.Out Box14.In1
 132 connect Box15.Out yMax.In
 133 connect Box16.Out xMax.In
 134 connect Box16.Out xMax.Max
 135 connect Box14.Out zMax.In
 136 connect Box14.Out zMax.Max
 137 connect zMax.BoxChange mi1.In6
 138
 139
 140 # Complex input ports
 141 input In mc.In " "
 142 input ReactiveOnTrack mb.In " "
 143
 144 # Complex output ports
 145 output XMin xMin.Out " "
 146 output XMax xMax.Out " "
 147 output YMin yMin.Out " "
 148 output YMax yMax.Out " "
 149 output ZMin zMin.Out " "
 150 output ZMax zMax.Out " "
 151 output Wigdet Box13.Widget " "
 152 output BoxChange mi1.BoxChange " "
 153
 154 endefine