packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs_OLD

   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 include wx
  28 include vtk
  29 include std
  30 include wxvtk
  31
  32 define IsoSurfaceWidget wxvtk
  33   author "laurent.guigues@creatis.insa-lyon.fr"
  34   description "Image iso-surface extractor (vtk::IsoSurfaceExtractor) with associated control panel (isovalue, opacity and colour)"
  35   category "image;mesh;widget;viewer"
  36
  37   new LayoutLine controls
  38   new LayoutLine sliders
  39   new IsoSurfaceExtractor surface
  40   new Slider isovalue
  41   new Slider opacity
  42   new LayoutLine colourFrame
  43   new ColourSelectorButton colour
  44   new MultipleInputs refresh
  45   new Div div
  46
  47   connect sliders.Widget controls.Widget1
  48   connect colourFrame.Widget controls.Widget2
  49
  50   connect colour.Widget colourFrame.Widget1
  51   connect isovalue.Widget sliders.Widget1
  52   connect opacity.Widget sliders.Widget2
  53
  54   connect isovalue.Out surface.Isovalue
  55   connect opacity.Out div.In1
  56   set div.In2 100
  57   connect div.Out surface.Opacity
  58   connect colour.Out surface.Colour
  59
  60   connect isovalue.BoxChange refresh.In1
  61   connect opacity.BoxChange refresh.In2
  62   connect colour.BoxChange refresh.In3
  63
  64 #  connect colourButton.BoxChange colour.BoxExecute
  65
  66   set colourFrame.WinTitle "Colour"
  67   set controls.Orientation HORIZONTAL
  68   set isovalue.Title "Isovalue"
  69   set opacity.Title "Opacity"
  70   set opacity.Min 0
  71   set opacity.Max 100
  72   set opacity.In 100
  73
  74 #  set colourButton.Label "Colour"
  75
  76   input Title controls.WinTitle "Title of the control panel"
  77   input In surface.In "Input image"
  78
  79   input Opacity opacity.In "Initial opacity"
  80   input Isovalue isovalue.In "Initial isovalue"
  81   input Colour colour.In "Initial colour"
  82
  83   input BoxExecute surface.BoxExecute "Box execution"
  84
  85   input Vertical controls.Orientation "Set to 1 to have controls arranged vertically"
  86
  87   output Out surface.Out "Output surface"
  88   output BoxChange refresh.Out "BoxChange"
  89   output Widget controls.Widget "Widget"
  90
  91 endefine