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

load std
load vtk
load wx
load maracasvisu

new LayoutLine  sizerA
new LayoutSplit mainSplit
new ViewerMPR mpr
new MetaImageReader  reader
new CommandButton commandButton
  set commandButton.In "exec surface"
  set commandButton.Label "RUN"
new IsoSurfaceExtractor  surface
  set surface.Opacity 0.8
new Slider sliderIsovalue
  set sliderIsovalue.In 600
  set sliderIsovalue.Max 5000
  set sliderIsovalue.ChangeResolution true


include  std/boxes/bbPrependPackageDataPath.bbs
new PrependPackageDataPath prependDatapath 
  set prependDatapath.In "vtk/hola.mhd" 
  connect prependDatapath.Out reader.In 

connect reader.Out mpr.In

connect sizerA.Widget					mainSplit.Widget1
connect mpr.Widget					mainSplit.Widget2
connect commandButton.Widget		sizerA.Widget1 
connect sliderIsovalue.Widget			sizerA.Widget2 

connect reader.Out surface.In
connect sliderIsovalue.Out surface.Isovalue
connect mpr.Renderer surface.Renderer

exec mainSplit