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.jpg'></center>"
   8  author "info-dev@creatis.insa-lyon.fr"
   9  category "viewer"
  10
  11  new LayoutSplit main
  12  set main.Proportion 80
  13  new Viewer2D viewer2D
  14  new Slider slider
  15
  16  # WE NEED a MultipleInputs Box to connect BOTH
  17  # slider.BoxChange AND the input BoxExecute
  18  # of the Complex box to viewer2D.BoxExecute
  19
  20  new MultipleInputs refresh
  21
  22  connect viewer2D.Widget main.Widget1
  23  connect slider.Widget main.Widget2
  24  connect slider.Out viewer2D.Slice
  25
  26  connect slider.BoxChange refresh.In1
  27  connect refresh.Out viewer2D.BoxExecute
  28
  29  #set main.Proportion 80
  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 Orientation viewer2D.Orientation "Slicing orientation : 0:yz / 1:xz / 2:xy"
  37  input Slice slider.In "Initial slice"
  38  input SliderSize slider.Max "Slider Size"
  39  input SliderTitle slider.Title "Slider Title"
  40  input SliderOrientation slider.Orientation "Slider Orientation (H/V)"
  41  input SliderReactiveOnTrack slider.ReactiveOnTrack "Reactive On track (default : 0)"
  42  output Widget main.Widget "Widget"
  43
  44  # EXECUTING THE COMPLEX BOX EXECUTES main
  45  exec main
  46 endefine