1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
3 # - bbIsoSurfaceWidget.bbs
4 # ----------------------------------
12 define IsoSurfaceWidget wxvtk
14 author "laurent.guigues@creatis.insa-lyon.fr"
15 description "Image iso-surface extractor (vtk"
17 category "image;mesh;widget;viewer"
19 new wx:LayoutLine controls
20 set controls.Orientation "HORIZONTAL"
22 new vtk:IsoSurfaceExtractor Asurface
24 new wx:Slider isovalue
25 set isovalue.ChangeResolution "true"
26 set isovalue.Max "5000"
27 set isovalue.Title "Isovalue"
33 set opacity.ReactiveOnTrack "true"
34 set opacity.Title "Opacity"
36 new wx:ColourSelectorButton colour
38 new std:MultipleInputs refresh
43 new vtk:UpdateRender Box08
44 set Box08.Active "true"
46 new std:MagicBox Box09
50 set Box10.ReactiveOnKeystroke "true"
51 set Box10.Title "Active"
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
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 " "
85 # Complex output ports
86 output Out Asurface.Out " "
87 output Widget controls.Widget " "
88 output BoxChange refresh.BoxChange " "