packages/wxvtk/bbs/boxes/bbMIPWithControls.bbs

   1 load wx
   2 load vtk
   3 load std
   4
   5 define MIPWithControls
   6   author "laurent.guigues@creatis.insa-lyon.fr"
   7   description "Maximum Intensity Projection (MIP) creator (vtk::MIPCreator) with associated control panel (shift and scale)"
   8   category "image;mesh;widget;viewer"
   9
  10   new LayoutLine controls
  11   new LayoutLine sliders
  12   new MIPCreator MIP
  13   new Slider shift
  14   new Slider scale
  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 shift.Widget sliders.Widget1
  25   connect scale.Widget sliders.Widget2
  26
  27   connect shift.Out MIP.Shift
  28   connect scale.Out div.In1
  29   set div.In2 10
  30   connect div.Out MIP.Scale
  31 #  connect colour.Out MIP.Colour
  32
  33   connect shift.BoxChange refresh.In1
  34   connect scale.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 shift.Title "Shift"
  42   set shift.Min 0
  43   set shift.Max 500
  44   set scale.Title "Scale x10"
  45   set scale.Min 0
  46   set scale.Max 500
  47   set scale.In 10
  48
  49 #  set colourButton.Label "Colour"
  50
  51
  52   input Title controls.WinTitle "Title of the control panel"
  53   input In MIP.In "Input image"
  54
  55   input Scale scale.In "Initial scale"
  56   input Shift shift.In "Initial shift"
  57 #  input Colour colour.In "Initial colour"
  58
  59   input BoxExecute MIP.BoxExecute "Box execution"
  60
  61   input Vertical controls.Orientation "Set to 1 to have controls arranged vertically"
  62
  63   output Out MIP.Out "Output MIP"
  64   output BoxChange refresh.Out "BoxChange"
  65   output Widget controls.Widget "Widget"
  66
  67 endefine