include vtk

# --- Box Description ---
define IsoSurfaceExtractor vtk

  description "Extracts an iso-surface of a 3D image and creates a vtkProp3D object to insert into a 3D scene (e.g. a Viewer3D)" 
  author "j p r at creatis.univ-lyon1.fr"
  category "3D object creator"
# ---                ---

  new MarchingCubes   mc
  new PolyDataToActor polydatatoactor   
    connect mc.Out polydatatoactor.In

  new MagicBox  mb
   connect mb.BoxChange mc.BoxExecute
   connect mb.BoxChange polydatatoactor.BoxExecute
  
# ---                ---

  input In        mc.In              "vtkImageData"
  input Isovalue  mc.Value  	     "Isovalue"
  input Opacity   polydatatoactor.Opacity   "Opacity"  
  input Colour    polydatatoactor.Colour    "R G B"
  input Renderer  polydatatoactor.Renderer  "3D scene in which to insert the surface"
  input Transform polydatatoactor.Transform "Linear Transform (4x4 homogeneous)"     
  input BoxExecute mb.BoxExecute "BoxExecute"     
    

  output Out polydatatoactor.Out "Extracted iso-surface (as a vtkProp3D *)"

endefine