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


print "=== GaussianSmooth_02 box example ==="
description "GaussianSmooth Save box.  Screenshot : <img src=ExampleGaussianSmooth_02.JPG></img>"
author "eduardo.davila at creatis.insa-lyon.fr"
category "example"

include wx
include itk
include vtk
include wxvtk
include itkvtk

new FileSelector fileselectoropen
  set fileselectoropen.OpenSave "Open" 
  
new ImageReader imagereader
  connect fileselectoropen.Out imagereader.In

new Viewer2D viewerleft
  connect imagereader.Out viewerleft.In
  
new Slider slidersmooth
  set slidersmooth.In 1
  set slidersmooth.Max 10
  set slidersmooth.Title "Gaussian smooth "
    
new ImageGaussianSmooth smooth
  connect imagereader.Out smooth.In
  connect slidersmooth.Out smooth.StdDevX
  connect slidersmooth.Out smooth.StdDevY
  connect slidersmooth.Out smooth.StdDevZ
  connect slidersmooth.BoxChange smooth.BoxExecute
  
new Viewer2D viewerright
  connect smooth.Out viewerright.In
  connect slidersmooth.BoxChange viewerright.BoxExecute
  
new LayoutLine layoutlineviwer
   set layoutlineviwer.Orientation H
   connect viewerleft.Widget layoutlineviwer.Widget1
   connect viewerright.Widget layoutlineviwer.Widget2

new FileSelector fileselectorsave
  set fileselectorsave.OpenSave "Save" 
   
new ImageWriter imagewrite
    connect smooth.Out imagewrite.In   
    connect fileselectorsave.Out imagewrite.Filename   
       
new CommandButton btnSave
   set btnSave.Label "Save smooth"   
   connect btnSave.BoxChange fileselectorsave.BoxExecute 
   connect btnSave.BoxChange imagewrite.BoxExecute 

new LayoutLine layoutline
   connect slidersmooth.Widget layoutline.Widget1
   connect btnSave.Widget layoutline.Widget2
   
new LayoutSplit main   
   connect layoutlineviwer.Widget main.Widget1
   connect layoutline.Widget main.Widget2
   
   
exec main