load std
load vtk
load wx
load maracasvisu

new LayoutLine  sizerA
new LayoutSplit mainSplit
new ViewerMPR mpr
new MetaImageReader  reader
new CommandButton commandButton
  set commandButton.In "exec surface"
  set commandButton.Label "RUN"
new IsoSurfaceExtractor  surface
  set surface.Opacity 0.8
new Slider sliderIsovalue
  set sliderIsovalue.In 600
  set sliderIsovalue.Max 5000
  set sliderIsovalue.ChangeResolution true


include  std/boxes/bbPrependPackageDataPath.bbs
new PrependPackageDataPath prependDatapath 
  set prependDatapath.In "vtk/hola.mhd" 
  connect prependDatapath.Out reader.In 

connect reader.Out mpr.In

connect sizerA.Widget					mainSplit.Widget1
connect mpr.Widget					mainSplit.Widget2
connect commandButton.Widget		sizerA.Widget1 
connect sliderIsovalue.Widget			sizerA.Widget2 

connect reader.Out surface.In
connect sliderIsovalue.Out surface.Isovalue
connect mpr.Renderer surface.Renderer

exec mainSplit