packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script (Complex Box)
   3 # - /Users/davila/Creatis/All3/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 LayoutLine sliders
  23
  24 new IsoSurfaceExtractor surface
  25
  26 new Slider isovalue
  27   set isovalue.Max 5000
  28   set isovalue.Title "Isovalue"
  29
  30 new Slider opacity
  31   set opacity.In "100"
  32   set opacity.Max "100"
  33   set opacity.Min "0"
  34   set opacity.Title "Opacity"
  35
  36 new LayoutLine colourFrame
  37   set colourFrame.WinTitle "Colour"
  38
  39 new ColourSelectorButton colour
  40
  41 new MultipleInputs refresh
  42
  43 new Div div
  44   set div.In2 "100"
  45
  46
  47 connect sliders.Widget controls.Widget1
  48 connect colourFrame.Widget controls.Widget2
  49 connect colour.Widget colourFrame.Widget1
  50 connect isovalue.Widget sliders.Widget1
  51 connect opacity.Widget sliders.Widget2
  52 connect isovalue.Out surface.Isovalue
  53 connect opacity.Out div.In1
  54 connect div.Out surface.Opacity
  55 connect colour.Out surface.Colour
  56 connect isovalue.BoxChange refresh.In1
  57 connect opacity.BoxChange refresh.In2
  58 connect colour.BoxChange refresh.In3
  59 connect refresh.Out surface.BoxExecute
  60
  61
  62 # Complex input ports
  63 input Title controls.WinTitle " "
  64 input In surface.In " "
  65 input Opacity opacity.In " "
  66 input Isovalue isovalue.In " "
  67 input Colour colour.In " "
  68 input Vertical controls.Orientation " "
  69 input BoxExecute refresh.In4 " "
  70 input vtkRenderer surface.Renderer " "
  71
  72 # Complex output ports
  73 output Out surface.Out " "
  74 output BoxChange refresh.Out " "
  75 output Widget controls.Widget " "
  76
  77 endefine