packages/vtk/bbs/appli/exampleSave_vtkPolyData.bbs

   1 # ---------------------------------------------------------------------
   2 #
   3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
   4 #                        pour la SantÈ)
   5 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
   6 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
   7 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
   8 #
   9 #  This software is governed by the CeCILL-B license under French law and
  10 #  abiding by the rules of distribution of free software. You can  use,
  11 #  modify and/ or redistribute the software under the terms of the CeCILL-B
  12 #  license as circulated by CEA, CNRS and INRIA at the following URL
  13 #  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
  14 #  or in the file LICENSE.txt.
  15 #
  16 #  As a counterpart to the access to the source code and  rights to copy,
  17 #  modify and redistribute granted by the license, users are provided only
  18 #  with a limited warranty  and the software's author,  the holder of the
  19 #  economic rights,  and the successive licensors  have only  limited
  20 #  liability.
  21 #
  22 #  The fact that you are presently reading this means that you have had
  23 #  knowledge of the CeCILL-B license and that you accept its terms.
  24 # ------------------------------------------------------------------------ */
  25
  26
  27 description "Save a vtkPolyData example"
  28 author "info-dev at creatis.insa-lyon.fr"
  29 category "example mesh"
  30
  31 load wx
  32 load std
  33 load vtk
  34 load wxvtk
  35
  36 include "vtk/boxes/bbLoadHola"
  37 new LoadHola reader
  38
  39 new MarchingCubes mc
  40   set mc.Value 1000
  41   connect reader.Out mc.In
  42
  43
  44 new FileSelector saveFileName
  45   set saveFileName.OpenSave Save
  46
  47 new PolyDataWriter pdw
  48   connect saveFileName.Out pdw.Filename
  49   connect mc.Out pdw.In
  50
  51 new PolyDataToActor pdActor
  52   connect mc.Out pdActor.In
  53
  54 new  Viewer3D viewer
  55   connect pdActor.Out viewer.In1
  56
  57 new CommandButton button
  58   set button.Label "Save vtkPolyData"
  59   connect button.BoxChange pdw.BoxExecute
  60
  61 new LayoutSplit main
  62   set main.Proportion 90
  63   connect viewer.Widget main.Widget1
  64   connect button.Widget main.Widget2
  65
  66 exec main
  67
  68