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.ReactiveOnTrack "true"
  34   set opacity.Title "Opacity"
  35
  36 new ColourSelectorButton colour
  37
  38 new MultipleInputs refresh
  39   set refresh.BoxProcessMode "Reactive"
  40
  41 new Div div
  42   set div.In2 "100"
  43
  44 new UpdateRender Box08
  45   set Box08.Active "true"
  46
  47 new MagicBox Box09
  48
  49
  50 connect isovalue.Out surface.Isovalue
  51 connect opacity.Out div.In1
  52 connect div.Out surface.Opacity
  53 connect colour.Out surface.Colour
  54 connect isovalue.BoxChange refresh.In1
  55 connect opacity.BoxChange refresh.In2
  56 connect colour.BoxChange refresh.In3
  57 connect colour.Widget controls.Widget3
  58 connect isovalue.Widget controls.Widget1
  59 connect opacity.Widget controls.Widget2
  60 connect refresh.BoxChange surface.BoxExecute
  61 connect refresh.BoxChange Box08.BoxExecute
  62 connect Box09.Out surface.Renderer
  63 connect Box09.Out Box08.Renderer
  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.BoxChange " "
  80
  81
  82 endefine