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 WinDialog             main.WinDialog         "Execute in dialog mode"
  33  input WinTitle              main.WinTitle          "Title of the window"
  34  input WinWidth              main.WinWidth          "Width of the window"
  35  input WinHeight             main.WinHeight         "Height of the window"
  36  input BoxExecute            refresh.In2            "Execute the box"
  37  input Orientation           viewer2D.Orientation   "Slicing orientation : 0:yz / 1:xz / 2:xy"
  38  input Slice                 slider.In              "Initial slice"
  39  input Interpolate           viewer2D.Interpolate   "Pixels Interpolation (true/false)"
  40  input SliderSize            slider.Max             "Slider Size"
  41  input SliderTitle           slider.Title           "Slider Title"
  42  input SliderOrientation     slider.Orientation     "Slider Orientation (H/V)"
  43  input SliderReactiveOnTrack slider.ReactiveOnTrack "Reactive On track (default : 0)"
  44
  45  output Widget main.Widget "Widget"
  46
  47  # EXECUTING THE COMPLEX BOX EXECUTES main
  48  exec main
  49
  50 endefine