packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/All/creatools_source/bbtk/packages/wxvtk/bbs/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.Title "Opacity"
  34
  35 new ColourSelectorButton colour
  36
  37 new MultipleInputs refresh
  38
  39 new Div div
  40   set div.In2 "100"
  41
  42
  43 connect isovalue.Out surface.Isovalue
  44 connect opacity.Out div.In1
  45 connect div.Out surface.Opacity
  46 connect colour.Out surface.Colour
  47 connect isovalue.BoxChange refresh.In1
  48 connect opacity.BoxChange refresh.In2
  49 connect colour.BoxChange refresh.In3
  50 connect colour.Widget controls.Widget3
  51 connect isovalue.Widget controls.Widget1
  52 connect opacity.Widget controls.Widget2
  53 connect refresh.BoxChange surface.BoxExecute
  54
  55 # Complex input ports
  56 input Title controls.WinTitle " "
  57 input Opacity opacity.In " "
  58 input Isovalue isovalue.In " "
  59 input Colour colour.In " "
  60 input Vertical controls.Orientation " "
  61 input BoxExecute refresh.In4 " "
  62 input vtkRenderer surface.Renderer " "
  63 input In surface.In " "
  64 input maxIsovalue isovalue.Max " "
  65
  66 # Complex output ports
  67 output Out surface.Out " "
  68 output Widget controls.Widget " "
  69 output BoxChange refresh.BoxChange " "
  70
  71
  72 endefine