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