packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs

   1 include wx
   2 include vtk
   3 include std
   4 include wxvtk
   5
   6 define IsoSurfaceWidget wxvtk
   7   author "laurent.guigues@creatis.insa-lyon.fr"
   8   description "Image iso-surface extractor (vtk::IsoSurfaceExtractor) with associated control panel (isovalue, opacity and colour)"
   9   category "image;mesh;widget;viewer"
  10
  11   new LayoutLine controls
  12   new LayoutLine sliders
  13   new IsoSurfaceExtractor surface
  14   new Slider isovalue
  15   new Slider opacity
  16   new LayoutLine colourFrame
  17   new ColourSelectorButton colour
  18   new MultipleInputs refresh
  19   new Div div
  20
  21   connect sliders.Widget controls.Widget1
  22   connect colourFrame.Widget controls.Widget2
  23
  24   connect colour.Widget colourFrame.Widget1
  25   connect isovalue.Widget sliders.Widget1
  26   connect opacity.Widget sliders.Widget2
  27
  28   connect isovalue.Out surface.Isovalue
  29   connect opacity.Out div.In1
  30   set div.In2 100
  31   connect div.Out surface.Opacity
  32   connect colour.Out surface.Colour
  33
  34   connect isovalue.BoxChange refresh.In1
  35   connect opacity.BoxChange refresh.In2
  36   connect colour.BoxChange refresh.In3
  37
  38 #  connect colourButton.BoxChange colour.BoxExecute
  39
  40   set colourFrame.WinTitle "Colour"
  41   set controls.Orientation HORIZONTAL
  42   set isovalue.Title "Isovalue"
  43   set opacity.Title "Opacity"
  44   set opacity.Min 0
  45   set opacity.Max 100
  46   set opacity.In 100
  47
  48 #  set colourButton.Label "Colour"
  49
  50
  51   input Title controls.WinTitle "Title of the control panel"
  52   input In surface.In "Input image"
  53
  54   input Opacity opacity.In "Initial opacity"
  55   input Isovalue isovalue.In "Initial isovalue"
  56   input Colour colour.In "Initial colour"
  57
  58   input BoxExecute surface.BoxExecute "Box execution"
  59
  60   input Vertical controls.Orientation "Set to 1 to have controls arranged vertically"
  61
  62   output Out surface.Out "Output surface"
  63   output BoxChange refresh.Out "BoxChange"
  64   output Widget controls.Widget "Widget"
  65
  66 endefine