packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/creaTools/creatools_install/bin/../share/bbtk/bbs/wxvtk/boxes/bbIsoSurfaceWidget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include wx
   9 include vtk
  10 include std
  11
  12 define IsoSurfaceWidget wxvtk
  13
  14 author "laurent.guigues@creatis.insa-lyon.fr"
  15 description "Image iso-surface extractor (vtk"
  16
  17 category "image;mesh;widget;viewer"
  18
  19 new LayoutLine controls
  20   set controls.Orientation "HORIZONTAL"
  21
  22 new IsoSurfaceExtractor surface
  23
  24 new Slider isovalue
  25   set isovalue.ChangeResolution "true"
  26   set isovalue.Max "5000"
  27   set isovalue.Title "Isovalue"
  28
  29 new Slider opacity
  30   set opacity.In "100"
  31   set opacity.Max "100"
  32   set opacity.Min "0"
  33   set opacity.ReactiveOnTrack "true"
  34   set opacity.Title "Opacity"
  35
  36 new ColourSelectorButton colour
  37
  38 new MultipleInputs refresh
  39
  40 new Div div
  41   set div.In2 "100"
  42
  43 new UpdateRender Box08
  44   set Box08.Active "true"
  45
  46 new MagicBox Box09
  47
  48
  49 connect isovalue.Out surface.Isovalue
  50 connect opacity.Out div.In1
  51 connect div.Out surface.Opacity
  52 connect colour.Out surface.Colour
  53 connect isovalue.BoxChange refresh.In1
  54 connect opacity.BoxChange refresh.In2
  55 connect colour.BoxChange refresh.In3
  56 connect colour.Widget controls.Widget3
  57 connect isovalue.Widget controls.Widget1
  58 connect opacity.Widget controls.Widget2
  59 connect Box09.Out surface.Renderer
  60 connect Box09.Out Box08.Renderer
  61 connect refresh.Out Box08.BoxExecute
  62 connect refresh.Out surface.BoxExecute
  63 connect opacity.BoxChange refresh.BoxExecute
  64
  65 # Complex input ports
  66 input Title controls.WinTitle " "
  67 input Opacity opacity.In " "
  68 input Isovalue isovalue.In " "
  69 input Colour colour.In " "
  70 input Vertical controls.Orientation " "
  71 input BoxExecute refresh.In4 " "
  72 input In surface.In " "
  73 input maxIsovalue isovalue.Max " "
  74 input vtkRenderer Box09.In " "
  75
  76 # Complex output ports
  77 output Out surface.Out " "
  78 output Widget controls.Widget " "
  79 output BoxChange refresh.Out " "
  80
  81
  82 endefine