# ----------------------------------
# - BBTKGEditor v 1.2 BBS BlackBox Script (Complex Box)
# - /Users/davila/Creatis/All3/creatools_source/bbtk/packages/wxvtk/bbs/boxes/bbIsoSurfaceWidget.bbs
# ----------------------------------

include std
include itkvtk
include wx
include vtk
include std

define IsoSurfaceWidget wxvtk

author "laurent.guigues@creatis.insa-lyon.fr"
description "Image iso-surface extractor (vtk"

category "image;mesh;widget;viewer"

new LayoutLine controls
  set controls.Orientation "HORIZONTAL"

new LayoutLine sliders

new IsoSurfaceExtractor surface

new Slider isovalue
  set isovalue.Max 5000
  set isovalue.Title "Isovalue"

new Slider opacity
  set opacity.In "100"
  set opacity.Max "100"
  set opacity.Min "0"
  set opacity.Title "Opacity"

new LayoutLine colourFrame
  set colourFrame.WinTitle "Colour"

new ColourSelectorButton colour

new MultipleInputs refresh

new Div div
  set div.In2 "100"


connect sliders.Widget controls.Widget1
connect colourFrame.Widget controls.Widget2
connect colour.Widget colourFrame.Widget1
connect isovalue.Widget sliders.Widget1
connect opacity.Widget sliders.Widget2
connect isovalue.Out surface.Isovalue
connect opacity.Out div.In1
connect div.Out surface.Opacity
connect colour.Out surface.Colour
connect isovalue.BoxChange refresh.In1
connect opacity.BoxChange refresh.In2
connect colour.BoxChange refresh.In3
connect refresh.Out surface.BoxExecute


# Complex input ports
input Title controls.WinTitle " "
input Opacity opacity.In " "
input Isovalue isovalue.In " "
input Colour colour.In " "
input Vertical controls.Orientation " "
input BoxExecute refresh.In4 " "
input vtkRenderer surface.Renderer " "
input In surface.In " "
input maxIsovalue isovalue.Max " "

# Complex output ports
output Out surface.Out " "
output BoxChange refresh.Out " "
output Widget controls.Widget " "

endefine