load wx
load vtk
load std
load Utilities
load maracasvisu


#Setting the image threshold
new ImageThreshold imaget

new Slider sUpper
set sUpper.Min 1500
set sUpper.Max 5000
set sUpper.In 2000
set sUpper.Title "Upper"

new Slider sLower
set sLower.Min 1100
set sLower.Max 1300
set sLower.In 1174
set sLower.Title "Lower"

connect sUpper.Out imaget.Upper
connect sLower.Out imaget.Lower


#Reading the image
new MetaImageReader reader
new ConcatStrings str
set str.In1 "C:\CAT08\TestData"
set str.In2 "\testing\dataset17"
set str.In3 "\image17.mhd"


connect str.Out reader.In
connect reader.Out imaget.In

#viewer

new ViewerNV mpr1
set mpr1.nTypeView "2"

new ViewerNV mpr2
set mpr2.nTypeView "2"



#writer
new MetaImageWriter writer

new ConcatStrings str2
set str2.In1 "C:\CAT08\TestData"
set str2.In2 "\testing\dataset17"
set str2.In3 "\image17_AND_"
set str2.In5 ".mhd"


connect  sLower.Out str2.In4
connect str2.Out writer.FileName
	

new SegmentationConnectivity segment

connect mpr1.Point segment.PositionXYZ
connect reader.Out segment.In
connect sLower.Out segment.ThresholdMin
connect sUpper.Out segment.ThresholdMax

connect reader.Out   mpr1.In
connect imaget.Out  mpr2.In
#connect segment.Out  mpr2.In


new ImageAND imgand

connect reader.Out imgand.ImageIn 
connect segment.Out  imgand.ImageInBin
connect imgand.ImageOut writer.InImage

new CatPoints catp
set catp.DSDirectory "C:\CAT08\TestData\testing\dataset17"	
#set catp.DSDirectory "C:\CAT08\Training reference data\dataset02"

connect mpr2.Renderer1 catp.InRenderer

#Botones

new CommandButton commandButton   
	set commandButton.Label "Write image"

connect commandButton.BoxChange mpr1.BoxExecute
connect mpr1.BoxChange segment.BoxExecute
connect segment.BoxChange imgand.BoxExecute
connect imgand.BoxChange writer.BoxExecute
 

new CommandButton commandButton1   
	set commandButton1.In "exec catp; exec mpr2"
	set commandButton1.Label "Draw points"
	
 
#interface
new LayoutSplit main
new LayoutSplit submain
set submain.Orientation H


new LayoutLine sizer
connect submain.Widget main.Widget1
connect sizer.Widget main.Widget2

connect mpr1.Widget submain.Widget1
connect mpr2.Widget submain.Widget2
 
connect sLower.Widget sizer.Widget1
connect sUpper.Widget sizer.Widget2
connect commandButton.Widget sizer.Widget3
connect commandButton1.Widget sizer.Widget4

  
#refreshing
#image threshold
new MultipleInputs refresh
connect sLower.BoxChange refresh.In1
connect sUpper.BoxChange refresh.In2
connect refresh.Out imaget.BoxExecute
#connect refresh.Out mpr1.BoxExecute

#Slicer
connect imaget.BoxChange mpr2.BoxExecute
#connect segment.BoxChange mpr2.BoxExecute


exec main