# ---------------------------------------------------------------------
#
# 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 "Save a vtkPolyData example"
author "info-dev at creatis.insa-lyon.fr"
category "example mesh"

load wx
load std
load vtk
load wxvtk

include "vtk/boxes/bbLoadHola"
new LoadHola reader

new MarchingCubes mc
  set mc.Value 1000
  connect reader.Out mc.In


new FileSelector saveFileName
  set saveFileName.OpenSave Save

new PolyDataWriter pdw
  connect saveFileName.Out pdw.Filename 
  connect mc.Out pdw.In

new PolyDataToActor pdActor
  connect mc.Out pdActor.In

new  Viewer3D viewer
  connect pdActor.Out viewer.In1  

new CommandButton button
  set button.Label "Save vtkPolyData"
  connect button.BoxChange pdw.BoxExecute

new LayoutSplit main
  set main.Proportion 90
  connect viewer.Widget main.Widget1
  connect button.Widget main.Widget2

exec main