packages/wxvtk/bbs/boxes/bbSimpleSlicer.bbs

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