packages/wxvtk/bbs/boxes/bbMIPWithControls.bbs

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