packages/wxvtk/bbs/boxes/bbIsoSurfaceWithControls.bbs

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