packages/wxvtk/bbs/appli/exampleIsoSurfaceWidget.bbs

   1 description "Example of IsoSurfaceWidget."
   2 author "laurent.guigues at creatis.insa-lyon.fr"
   3 category "example"
   4
   5 include wxvtk/boxes/bbIsoSurfaceWidget
   6 include vtk/boxes/bbLoadHola
   7
   8 new IsoSurfaceWidget surface1
   9 new IsoSurfaceWidget surface2
  10
  11 load wxvtk
  12 new Viewer3D viewer
  13 new LoadHola reader1
  14
  15 connect reader1.Out surface1.In
  16 connect reader1.Out surface2.In
  17
  18 set surface1.Isovalue 100
  19 set surface1.Opacity 100
  20 set surface1.Colour "0.5 0 0"
  21 set surface1.Title "Iso-surface 1"
  22
  23 set surface2.Isovalue 200
  24 set surface2.Opacity 20
  25 set surface2.Title "Iso-surface 2"
  26
  27
  28 connect surface1.Out viewer.In1
  29 connect surface2.Out viewer.In2
  30 new MultipleInputs refresh
  31 connect surface1.BoxChange refresh.In1
  32 connect surface2.BoxChange refresh.In2
  33
  34 new LayoutLine main
  35 new LayoutLine controls
  36 connect viewer.Widget main.Widget1
  37 connect controls.Widget main.Widget2
  38 connect surface1.Widget controls.Widget1
  39 connect surface2.Widget controls.Widget2
  40
  41 set main.WinWidth 800
  42 set main.WinHeight  800
  43
  44 exec main
  45
  46 # BUG in pipeline update : have to plug forced execution of viewer
  47 # after creation of all windows
  48 connect refresh.Out viewer.BoxExecute