packages/wxvtk/bbs/boxes/bbMIPWidget.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 wx
  28 load vtk
  29 load std
  30 load wxvtk
  31
  32 define MIPWidget wxvtk
  33   author "laurent.guigues@creatis.insa-lyon.fr"
  34   description "Maximum Intensity Projection (MIP) creator (vtk::MIPCreator) with associated control panel (shift and scale)"
  35   category "image;mesh;widget;viewer"
  36
  37   new LayoutLine controls
  38   new LayoutLine sliders
  39   new MIPCreator MIP
  40 ##EED  new Slider shift
  41 ##EED  new Slider scale
  42 #  new LayoutLine colourFrame
  43 #  new ColourSelectorButton colour
  44   new MultipleInputs refresh
  45 ##EED  new Div div
  46
  47   connect sliders.Widget controls.Widget1
  48 #  connect colourFrame.Widget controls.Widget2
  49
  50 #  connect colour.Widget colourFrame.Widget1
  51 ##EED  connect shift.Widget sliders.Widget1
  52 ##EED  connect scale.Widget sliders.Widget2
  53
  54 ##EED  connect shift.Out MIP.Shift
  55 ##EED  connect scale.Out div.In1
  56 ##EED  set div.In2 10
  57 ##EED  connect div.Out MIP.Scale
  58 #  connect colour.Out MIP.Colour
  59
  60 ##EED  connect shift.BoxChange refresh.In1
  61 ##EED  connect scale.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 ##EED  set shift.Title "Shift"
  69 ##EED  set shift.Min 0
  70 ##EED  set shift.Max 500
  71 ##EED  set scale.Title "Scale x10"
  72 ##EED  set scale.Min 0
  73 ##EED  set scale.Max 500
  74 ##EED  set scale.In 10
  75
  76 #  set colourButton.Label "Colour"
  77
  78
  79   input Title controls.WinTitle "Title of the control panel"
  80   input In MIP.In "Input image"
  81
  82 ##EED  input Scale scale.In "Initial scale"
  83 ##EED  input Shift shift.In "Initial shift"
  84 #  input Colour colour.In "Initial colour"
  85
  86   input BoxExecute MIP.BoxExecute "Box execution"
  87
  88   input Vertical controls.Orientation "Set to 1 to have controls arranged vertically"
  89
  90   output Out MIP.Out "Output MIP"
  91   output BoxChange refresh.Out "BoxChange"
  92   output Widget controls.Widget "Widget"
  93
  94 endefine