load std
load vtk
load wx
load maracasvisu

new LayoutLine sizerA
new LayoutSplit mainSplit

#new ViewerNV mpr
#  set mpr.nTypeView  "2 5"
new ViewerMPR mpr

new MetaImageReader reader
new CommandButton commandButton
  set commandButton.In "exec segmentationconnectivity; exec surface"
  set commandButton.Label "RUN"

new SegmentationConnectivity segmentationconnectivity
new IsoSurfaceExtractor surface
  set surface.Opacity "0.8"
  set surface.Isovalue "100"
new ConcatStrings concatstringsThreshold
  set concatstringsThreshold.In2  " "

new SliderMinMax sliderThreshold
  set sliderThreshold.Orientation 1
  set sliderThreshold.InW 300
  set sliderThreshold.InH 80
  set sliderThreshold.InMax 6000
  set sliderThreshold.InMin 0
  set sliderThreshold.InMaxShow 6000
  set sliderThreshold.InMinShow 1200
  set sliderThreshold.ShowActual false
new OutputText  staticTextThreshold
  set staticTextThreshold.In "Threshold"

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 staticTextThreshold.Widget		sizerA.Widget1
connect sliderThreshold.Widget			sizerA.Widget2
connect commandButton.Widget		sizerA.Widget3

connect reader.Out segmentationconnectivity.In
connect mpr.Renderer surface.Renderer

connect segmentationconnectivity.Out surface.In
connect mpr.Point segmentationconnectivity.PositionXYZ

connect sliderThreshold.OutStart concatstringsThreshold.In1
connect sliderThreshold.OutEnd concatstringsThreshold.In3

connect concatstringsThreshold.Out segmentationconnectivity.ThresholdMinMax


#graph CURRENT 0
#graph

print $prependDatapath.Out$
print "   ueueueueueu    "

exec mainSplit