packages/wxvtk/bbs/boxes/bbSimpleIsoSurfaceViewer.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 load std
  28 load wx
  29 load wxvtk
  30 load vtk
  31
  32 include wxvtk/boxes/bbIsoSurfaceWidget
  33
  34 define SimpleIsoSurfaceViewer wxvtk
  35
  36  description "Simple viewer of an iso-surface of an image"
  37  author "laurent.guigues@creatis.insa-lyon.fr"
  38  category "viewer"
  39
  40  new LayoutSplit main
  41  new Viewer3D viewer
  42
  43  new IsoSurfaceWidget surface
  44
  45  set surface.Isovalue 10
  46  set surface.Title "Surface"
  47  set surface.Vertical 0
  48
  49  connect viewer.Widget  main.Widget1
  50  connect surface.Widget main.Widget2
  51
  52  # WE NEED A MultipleInputs BOX TO CONNECT BOTH
  53  # surface.BoxChange AND THE INPUT BoxExecute
  54  # OF THE COMPLEX BOX TO viewer.BoxExecute
  55  new MultipleInputs refresh
  56
  57
  58  connect surface.Out       viewer.In1
  59  connect surface.BoxChange refresh.In1
  60  connect refresh.Out       viewer.BoxExecute
  61
  62  set main.Proportion 80
  63
  64  input In         surface.In     "Input image"
  65  input WinDialog  main.WinDialog "Dialog mode"
  66  input WinTitle   main.WinTitle  "Title of the window"
  67  input WinWidth   main.WinWidth  "Width of the window"
  68  input WinHeight  main.WinHeight "Height of the window"
  69  input BoxExecute refresh.In2    "Execute the box"
  70
  71  output Widget main.Widget "Widget"
  72  # EXECUTING THE COMPLEX BOX EXECUTES the main
  73  exec main
  74 endefine