packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /tmpEED/creaTools/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 wx:LayoutLine controls
  20   set controls.Orientation "HORIZONTAL"
  21
  22 new vtk:IsoSurfaceExtractor Asurface
  23
  24 new wx:Slider isovalue
  25   set isovalue.ChangeResolution "true"
  26   set isovalue.Max "5000"
  27   set isovalue.Title "Isovalue"
  28
  29 new wx: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 wx:ColourSelectorButton colour
  37
  38 new std:MultipleInputs refresh
  39
  40 new std:Div Adiv
  41   set Adiv.In2 "100"
  42
  43 new vtk:UpdateRender Box08
  44   set Box08.Active "true"
  45
  46 new std:MagicBox Box09
  47
  48
  49 connect isovalue.Out Asurface.Isovalue
  50 connect opacity.Out Adiv.In1
  51 connect Adiv.Out Asurface.Opacity
  52 connect colour.Out Asurface.Colour
  53 connect isovalue.BoxChange refresh.In1
  54 connect opacity.BoxChange refresh.In2
  55 connect colour.Widget controls.Widget3
  56 connect isovalue.Widget controls.Widget1
  57 connect opacity.Widget controls.Widget2
  58 connect Box09.Out Asurface.Renderer
  59 connect Box09.Out Box08.Renderer
  60 connect opacity.BoxChange refresh.BoxExecute
  61 connect refresh.BoxChange Asurface.BoxExecute
  62 connect refresh.BoxChange Box08.BoxExecute
  63 connect refresh.BoxChange Adiv.BoxExecute
  64 connect colour.BoxChange refresh.In3
  65
  66 # Complex input ports
  67 input Title controls.WinTitle " "
  68 input Opacity opacity.In " "
  69 input Isovalue isovalue.In " "
  70 input Colour colour.In " "
  71 input Vertical controls.Orientation " "
  72 input BoxExecute refresh.In4 " "
  73 input In Asurface.In " "
  74 input maxIsovalue isovalue.Max " "
  75 input vtkRenderer Box09.In " "
  76
  77 # Complex output ports
  78 output Out Asurface.Out " "
  79 output Widget controls.Widget " "
  80 output BoxChange refresh.BoxChange " "
  81
  82 message
  83
  84 endefine