packages/wxvtk/bbs/boxes/bbSimpleIsoSurfaceViewer.bbs

   1 load std
   2 load wx
   3 load wxvtk
   4 load vtk
   5
   6 include wxvtk/boxes/bbIsoSurfaceWithControls
   7
   8 define SimpleIsoSurfaceViewer wxvtk
   9
  10  description "Simple viewer of an iso-surface of an image"
  11  author "laurent.guigues@creatis.insa-lyon.fr"
  12  category "viewer"
  13
  14  new LayoutSplit main
  15  new Viewer3D viewer
  16
  17  new IsoSurfaceWithControls surface
  18
  19  set surface.Isovalue 10
  20  set surface.Title "Surface"
  21  set surface.Vertical 0
  22
  23  connect viewer.Widget main.Widget1
  24  connect surface.Widget main.Widget2
  25
  26  # WE NEED A MultipleInputs BOX TO CONNECT BOTH
  27  # surface.BoxChange AND THE INPUT BoxExecute
  28  # OF THE COMPLEX BOX TO viewer.BoxExecute
  29  new MultipleInputs refresh
  30
  31
  32  connect surface.Out viewer.In1
  33  connect surface.BoxChange refresh.In1
  34  connect refresh.Out viewer.BoxExecute
  35
  36  set main.Proportion 80
  37
  38  input In surface.In "Input image"
  39  output Widget main.Widget "Widget"
  40  input WinDialog main.WinDialog "Dialog mode"
  41  input WinTitle main.WinTitle "Title of the window"
  42  input WinWidth main.WinWidth "Width of the window"
  43  input WinHeight main.WinHeight "Height of the window"
  44  input BoxExecute refresh.In2 "Execute the box"
  45
  46  # EXECUTING THE COMPLEX BOX EXECUTES the main
  47  exec main
  48 endefine