# ---------------------------------------------------------------------
#
# 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)
# - /home/jpr/Creatis/All/creatools_source/bbtk/packages/toolsbbtk/bbs/boxes/bbSlidersForSize.bbs
# ----------------------------------

include std
include itkvtk
include itk
include std
include wx

define SlidersForSize toolsbbtk

author "jean-pierre.roux@creatis.univ-lyon1.fr"
description "Display 6 sliders for sizes of 3D image"

category "complex box, widget"

new ImageProperties mc

new GetVectorIntElement gveX
  set gveX.I "0"

new GetVectorIntElement gveY
  set gveY.I "1"

new GetVectorIntElement gveZ
  set gveZ.I "2"

new MagicBox mb

new Slider xMin
  set xMin.In 0
  set xMin.Label "1"
  set xMin.Min "0"
  set xMin.Title "XMin"

new Slider xMax
  set xMax.Label "1"
  set xMax.Min "0"
  set xMax.Title "XMax"

new Slider yMin
  set yMin.In 0
  set yMin.Label "1"
  set yMin.Min "0"
  set yMin.Title "YMin"

new Slider yMax
  set yMax.Label "1"
  set yMax.Min "0"
  set yMax.Title "YMax"

new Slider zMin
  set zMin.In 0
  set zMin.Label "1"
  set zMin.Min "0"
  set zMin.Title "ZMin"

new Slider zMax
  set zMax.Label "1"
  set zMax.Min "0"
  set zMax.Title "ZMax"

new MultipleInputs mi1

new LayoutLine Box13

new Add Box14
  set Box14.In2 -1

new Add Box15
  set Box15.In2 -1

new Add Box16
  set Box16.In2 -1


connect mc.Size gveX.In
connect mc.Size gveY.In
connect mc.Size gveZ.In
connect gveX.Out xMin.Max
connect mb.Out xMin.ReactiveOnTrack
connect mb.Out xMax.ReactiveOnTrack
connect gveY.Out yMin.Max
connect mb.Out yMin.ReactiveOnTrack
connect mb.Out yMax.ReactiveOnTrack
connect mb.Out zMin.ReactiveOnTrack
connect xMin.BoxChange mi1.In1
connect xMax.BoxChange mi1.In2
connect yMin.BoxChange mi1.In3
connect yMax.BoxChange mi1.In4
connect zMin.BoxChange mi1.In5
connect gveZ.Out zMin.Max
connect xMin.Widget Box13.Widget1
connect xMax.Widget Box13.Widget2
connect yMin.Widget Box13.Widget3
connect yMax.Widget Box13.Widget4
connect zMin.Widget Box13.Widget5
connect zMax.Widget Box13.Widget6
connect mb.Out zMax.ReactiveOnTrack
connect gveX.Out Box16.In1
connect Box15.Out yMax.Max
connect gveY.Out Box15.In1
connect gveZ.Out Box14.In1
connect Box15.Out yMax.In
connect Box16.Out xMax.In
connect Box16.Out xMax.Max
connect Box14.Out zMax.In
connect Box14.Out zMax.Max
connect zMax.BoxChange mi1.In6


# Complex input ports
input In mc.In " "
input ReactiveOnTrack mb.In " "

# Complex output ports
output XMin xMin.Out " "
output XMax xMax.Out " "
output YMin yMin.Out " "
output YMax yMax.Out " "
output ZMin zMin.Out " "
output ZMax zMax.Out " "
output Wigdet Box13.Widget " "
output BoxChange mi1.BoxChange " "

endefine