packages/wxvtk/bbs/appli/exampleIsoSurfaceWithControls.bbs

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