load Utilities
load vtk
load wxvtk
load wx
load std
load AxisExtraction
load maracasvisu

#Reading the image

new MetaImageReader mir 
set mir.In "C:\CAT08\TrainingImageData\dataset03\image03.mhd"

#building the  binary image
new BuildBinaryImage binaryImage
connect mir.Out binaryImage.ImageIn

#Maracas Axis
new ViewerMPR mpr
new AutomaticExtraction extra
new ConvertVectors conv

#AND
new ImageAND imageAnd
#Conecta la imagen binaria y la imagen original para hacer el AND de ambas
connect binaryImage.ImageOut imageAnd.ImageInBin
connect mir.Out  imageAnd.ImageIn

#Caja de imageAnd.ImageOut a la entrada del mpr
connect imageAnd.ImageOut mpr.In
#caja de mpr con la salida de punto a la entrada de extraer eje
connect mpr.Point extra.PuntoEntrada
#Resultado del AND con la entrada de extraer eje
connect imageAnd.ImageOut extra.Image
#Render de MPR a la caja de convertir vector en vtkRender
connect mpr.Renderer conv.InRenderer
#Conectar la salida de los 3 vectores a la entrada de la caja
connect extra.Puntosx conv.Entradax
connect extra.Puntosy conv.Entraday
connect extra.Puntosz conv.Entradaz
#Conectar la imagen con la caja conv para sacar el spacing
connect mir.Out conv.Image

#Interface
new CommandButton commandButton
	set commandButton.In "exec extra; exec conv"
	set commandButton.Label "RUN"
new LayoutSplit mainSplit

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

exec mainSplit