packages/wxvtk/bbs/boxes/bbSimpleSlicer.bbs

   1 load std
   2 load wx
   3 load wxvtk
   4
   5 define SimpleSlicer
   6
   7  description "Simple 2D viewer of a slice of a 3D image. The slice is controlled by a slider. See <a href='#DemoSimpleSlicer'>DemoSimpleSlicer.bbs</a>. Screenshot : <center><img src='DemoSimpleSlicer.png'></center>"
   8  author "laurent.guigues@creatis.insa-lyon.fr"
   9  category "viewer"
  10
  11  new LayoutLine main
  12  new Viewer2D slicer
  13  new Slider slider
  14  # WE NEED A MultipleInputs BOX TO CONNECT BOTH
  15  # slider.BoxChange AND THE INPUT BoxExecute
  16  # OF THE COMPLEX BOX TO slicer.BoxExecute
  17  new MultipleInputs refresh
  18
  19  connect slicer.Widget main.Widget1
  20  connect slider.Widget main.Widget2
  21  connect slider.Out slicer.Slice
  22
  23  connect slider.BoxChange refresh.In1
  24  connect refresh.Out slicer.BoxExecute
  25
  26  #set main.Proportion 80
  27  set slider.Title "Slice"
  28
  29  input In slicer.In "Input image"
  30  input WinTitle main.WinTitle "Title of the window"
  31  input WinWidth main.WinWidth "Width of the window"
  32  input WinHeight main.WinHeight "Height of the window"
  33  input BoxExecute refresh.In2 "Execute the box"
  34  output Widget main.Widget "Widget"
  35
  36  # EXECUTING THE COMPLEX BOX EXECUTES main
  37  exec main
  38 endefine