# ---------------------------------------------------------------------
#
# 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 wxvtk
load maracasvisu


new PlotterView pw
set pw.InX " 20 100 200 300 400 500"
set pw.InY " 100 700 100 300 400 500"

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

new HistogramView hw
connect reader.Out hw.In

new TransferFunctionView tfw
connect reader.Out tfw.In

new ViewerMPR mpr
connect reader.Out mpr.In

## surface
new IsoSurfaceExtractor  surface1 
  connect reader.Out surface1.In 
  set surface1.Isovalue 200 
  set surface1.Opacity 0.5 
  set surface1.Colour "1.0, 0.0, 0.0" 

new IsoSurfaceExtractor  surface2 
  connect reader.Out surface2.In 
  set surface2.Isovalue 100 
  set surface2.Opacity 1 
  set surface2.Colour "1.0, 1.0, 0.5" 

new Viewer3D viewer3d 
  connect surface1.Out viewer3d.In1  
  connect surface2.Out viewer3d.In2





new LayoutSplit sDown
  set sDown.Orientation H
  connect viewer3d.Widget	sDown.Widget1
  connect mpr.Widget		sDown.Widget2
new LayoutSplit sUpL
  set sUpL.Orientation H
  connect pw.Widget		sUpL.Widget1
  connect hw.Widget		sUpL.Widget2

new LayoutSplit sUp
  set sUp.Orientation H
  connect tfw.Widget		sUp.Widget1
  connect sUpL.Widget	sUp.Widget2

new LayoutSplit main
  set main.Orientation V
  connect sUp.Widget		main.Widget1
  connect sDown.Widget	main.Widget2

exec main