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 new wx:CheckBox Box10
  49   set Box10.In "false"
  50   set Box10.ReactiveOnKeystroke "true"
  51   set Box10.Title "Active"
  52
  53
  54 connect isovalue.Out Asurface.Isovalue
  55 connect opacity.Out Adiv.In1
  56 connect Adiv.Out Asurface.Opacity
  57 connect colour.Out Asurface.Colour
  58 connect isovalue.BoxChange refresh.In1
  59 connect opacity.BoxChange refresh.In2
  60 connect Box09.Out Asurface.Renderer
  61 connect Box09.Out Box08.Renderer
  62 connect opacity.BoxChange refresh.BoxExecute
  63 connect refresh.BoxChange Asurface.BoxExecute
  64 connect refresh.BoxChange Box08.BoxExecute
  65 connect refresh.BoxChange Adiv.BoxExecute
  66 connect colour.BoxChange refresh.In3
  67 connect Box10.BoxChange refresh.In5
  68 connect Box10.Out Asurface.active
  69 connect colour.Widget controls.Widget4
  70 connect opacity.Widget controls.Widget3
  71 connect isovalue.Widget controls.Widget2
  72 connect Box10.Widget controls.Widget1
  73
  74 # Complex input ports
  75 input Title controls.WinTitle " "
  76 input Opacity opacity.In " "
  77 input Isovalue isovalue.In " "
  78 input Colour colour.In " "
  79 input Vertical controls.Orientation " "
  80 input BoxExecute refresh.In4 " "
  81 input In Asurface.In " "
  82 input maxIsovalue isovalue.Max " "
  83 input vtkRenderer Box09.In " "
  84
  85 # Complex output ports
  86 output Out Asurface.Out " "
  87 output Widget controls.Widget " "
  88 output BoxChange refresh.BoxChange " "
  89
  90 message
  91
  92 endefine