packages/wxvtk/bbs/boxes/bbSimpleIsoSurfaceViewer.bbs

   1 load std
   2 load wx
   3 load wxvtk
   4 load vtk
   5
   6 include wxvtk/boxes/bbIsoSurfaceWidget
   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 IsoSurfaceWidget 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  input WinDialog  main.WinDialog "Dialog mode"
  40  input WinTitle   main.WinTitle  "Title of the window"
  41  input WinWidth   main.WinWidth  "Width of the window"
  42  input WinHeight  main.WinHeight "Height of the window"
  43  input BoxExecute refresh.In2    "Execute the box"
  44
  45  output Widget main.Widget "Widget"
  46  # EXECUTING THE COMPLEX BOX EXECUTES the main
  47  exec main
  48 endefine