# ---------------------------------------------------------------------
 #
 # 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 "Reads and image file / stack of image files, writes it as a MHD file"
author "jpr@creatis.insa-lyon.fr"
category "tool, read/write"

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

new LayoutLine  main

# Use new box (choose the way you want to select images)
# -----------------------------------------------------
load creaImageIO
//new ImagesChooserDialogBox chooser
new ImagesChooserDialogBox reader

# Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
# WARNING : File names alphabetical order is suposed to be meaningful ...

//new ConcatImages reader
//   connect chooser.OutImages reader.In


new CommandButton cb1
   set cb1.Label "1) Select File"
   set cb1.WinDialog true
   connect cb1.Widget main.Widget1
 
connect cb1.BoxChange reader.BoxExecute

new SimpleSlicer slc
   set slc.Orientation 2
   set slc.SliderReactiveOnTrack 1   
   connect reader.Out slc.In
   // It doesn't work ?!?, needs to "exec slc" // JPR
   connect reader.BoxChange slc.BoxExecute

exec slc

new CommandButton cb
   connect cb.Widget main.Widget2
   set cb.Label "2) Write (no '.mhd' extention needed!"
   set cb.WinDialog true
   
new CommandButton next
   connect next.Widget main.Widget3
   set next.Label "Next !"
   set next.WinDialog true
   // It doesn't work : <<the black box "main" is still connected">>
   set next.In "delete main"

# Choose where you want to write
# ------------------------------
new FileSelector fileDialog
  set fileDialog.OpenSave Save
  set fileDialog.Wildcard "*.mhd"
  
new  MakeFileName mfn
   connect fileDialog.Out mfn.File
   set mfn.Extent ".mhd"
    
# Write!
# ------
   
new MetaImageWriter writer
  connect reader.Out writer.In 
  connect mfn.Out writer.Filename
  connect cb.BoxChange writer.BoxExecute
   
exec main