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

description "creaMaracasVisu::SegmentationConnectivity box example. "
category "example"
author "eduardo.davila@creatis.insa-lyon.fr"


load std
include vtk
load wx
load creaMaracasVisu

new LayoutLine sizerA
new LayoutSplit mainSplit

#new ViewerNV mpr
#  set mpr.nTypeView  "2 5"
new ViewerMPR mpr

new MetaImageReader reader
new CommandButton commandButton
  set commandButton.In "exec segmentationconnectivity; exec surface"
  set commandButton.Label "RUN"

new SegmentationConnectivity segmentationconnectivity
new IsoSurfaceExtractor surface
  set surface.Opacity "0.8"
  set surface.Isovalue "100"
new ConcatStrings concatstringsThreshold
  set concatstringsThreshold.In2  " "

new SliderMinMax sliderThreshold
  set sliderThreshold.Orientation 1
  set sliderThreshold.InW 300
  set sliderThreshold.InH 80
  set sliderThreshold.InMax 6000
  set sliderThreshold.InMin 0
  set sliderThreshold.InMaxShow 6000
  set sliderThreshold.InMinShow 1200
  set sliderThreshold.ShowActual false
new OutputText  staticTextThreshold
  set staticTextThreshold.In "Threshold"

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 staticTextThreshold.Widget		sizerA.Widget1
connect sliderThreshold.Widget			sizerA.Widget2
connect commandButton.Widget		sizerA.Widget3

connect reader.Out segmentationconnectivity.In
connect mpr.Renderer surface.Renderer

connect segmentationconnectivity.Out surface.In
connect mpr.Point segmentationconnectivity.PositionXYZ

connect sliderThreshold.OutStart concatstringsThreshold.In1
connect sliderThreshold.OutEnd concatstringsThreshold.In3

connect concatstringsThreshold.Out segmentationconnectivity.ThresholdMinMax


#graph CURRENT 0
#graph

print $prependDatapath.Out$
print "   ueueueueueu    "

exec mainSplit