# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - 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 wx:LayoutLine controls
  set controls.Orientation "HORIZONTAL"

new vtk:IsoSurfaceExtractor Asurface

new wx:Slider isovalue
  set isovalue.ChangeResolution "true"
  set isovalue.Max "5000"
  set isovalue.Title "Isovalue"

new wx:Slider opacity
  set opacity.In "100"
  set opacity.Max "100"
  set opacity.Min "0"
  set opacity.ReactiveOnTrack "true"
  set opacity.Title "Opacity"

new wx:ColourSelectorButton colour

new std:MultipleInputs refresh

new std:Div Adiv
  set Adiv.In2 "100"

new vtk:UpdateRender Box08
  set Box08.Active "true"

new std:MagicBox Box09

new wx:CheckBox Box10
  set Box10.In "false"
  set Box10.ReactiveOnKeystroke "true"
  set Box10.Title "Active"


connect isovalue.Out Asurface.Isovalue
connect opacity.Out Adiv.In1
connect Adiv.Out Asurface.Opacity
connect colour.Out Asurface.Colour
connect isovalue.BoxChange refresh.In1
connect opacity.BoxChange refresh.In2
connect Box09.Out Asurface.Renderer
connect Box09.Out Box08.Renderer
connect opacity.BoxChange refresh.BoxExecute
connect refresh.BoxChange Asurface.BoxExecute
connect refresh.BoxChange Box08.BoxExecute
connect refresh.BoxChange Adiv.BoxExecute
connect colour.BoxChange refresh.In3
connect Box10.BoxChange refresh.In5
connect Box10.Out Asurface.active
connect colour.Widget controls.Widget4
connect opacity.Widget controls.Widget3
connect isovalue.Widget controls.Widget2
connect Box10.Widget controls.Widget1

# 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 In Asurface.In " "
input maxIsovalue isovalue.Max " "
input vtkRenderer Box09.In " "

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


endefine