# ---------------------------------------------------------------------
 #
 # 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 "A 3D image slicer"
author "jpr@creatis.insa-lyon.fr"
category "application"

load vtk
include wxvtk
load std
load itk
include vtk
include wx
load itkvtk

//include wxvtk/boxes/bbSimpleSlicer
//include wx/boxes/LayoutX4

new LayoutX4 main
new LayoutLine upright
new LayoutLine upleft
new LayoutLine downleft

connect upright.Widget main.Widget1
connect upleft.Widget main.Widget2
connect downleft.Widget main.Widget3

load creaImageIO 
new Gimmick reader


//For 3D Viewer

new ImagePlanes planes
   connect reader.Out planes.In
   
new Viewer3D viewer
   connect planes.PlaneX viewer.Obs1
   connect planes.PlaneY viewer.Obs2
   connect planes.PlaneZ viewer.Obs3

   connect viewer.Widget main.Widget4
     
  
// For X axis
// ----------
new Viewer2D viewerUL
  set viewerUL.BoxProcessMode Always
  connect planes.ImageX viewerUL.In
   # contains only one slice
  set viewerUL.Slice 0
  connect viewerUL.Widget upleft.Widget1

//  print "planes.BoxChange $planes.BoxChange"
//  print "viewer.BoxChange $viewer.BoxChange"
  
 connect planes.BoxChange viewerUL.BoxExecute

print "===============planes.ImageX $planes.ImageX"

// For Y axis
// ----------
new Viewer2D viewerUR
  set viewerUR.BoxProcessMode Always
  connect planes.ImageY viewerUR.In
  connect viewerUR.Widget upright.Widget1
 # contains only one  slice
  set viewerUR.Slice 0
 connect planes.BoxChange viewerUR.BoxExecute 

 print "===============planes.ImageY $planes.ImageY"  
   
// For Z axis
// ----------
new Viewer2D viewerDL
  set viewerDL.BoxProcessMode Always
  connect planes.ImageZ viewerDL.In
  connect viewerDL.Widget downleft.Widget1
 # contains only one  slice
  set viewerDL.Slice 0
  connect planes.BoxChange viewerDL.BoxExecute 

 print "===============planes.ImageZ $planes.ImageZ" 
          
set main.WinTitle "Slicer"

exec main