load std
load vtk
#load maracasvisu
load wxvtk
load wx
load Utilities

#Reading the image
new MetaImageReader mir 
	set mir.In "C:\CAT08\TestData\testing\dataset13\image13.mhd"
	
#Viewer for the image and render
#new ViewerNV mpr 
#	set mpr.nTypeView "2"

new Viewer3D viewer	

new CatPoints catpV2
	set catpV2.DSDirectory "C:\CAT08\TestData\testing\dataset13"
	set  catpV2.Vessel 2


#convert the points in an actor to be displayed in the render

new DrawAxis axisV2
set axisV2.FileNameAxisPoints "C:\CAT08\TestData\testing\Testing_13_17\dataset13\vessel2\result.txt"
set axisV2.FileNamePoints "C:\CAT08\TestData\testing\Testing_13_17\dataset13\vessel2\NOEXISTE.txt"
set axisV2.Color "0.0 0.0 1.0"


#MARCHING CUBES
new MarchingCubes marcub
new PolyDataRender polren

#ISOVALUE SLIDER
new Slider isoValue
set isoValue.Title "isovalue"
set isoValue.Max 4000
set isoValue.Min 1070
set isoValue.In  1250
	
#MARCHING CUBES
connect mir.Out marcub.In
connect isoValue.Out marcub.Value

#MARCHING AND POLYDATARENDER
connect marcub.Out polren.PolyData
#connect mpr.Renderer1 polren.InRenderer
connect viewer.Renderer polren.InRenderer

#CONNECTING THE BOXES
#MIReader to mpr
#connect mir.Out mpr.In

#MIR WITH AXIS
connect mir.Out axisV2.Image

#RENDER WITH AXIS
#connect mpr.Renderer1 axisV2.InRenderer
connect viewer.Renderer axisV2.InRenderer


#DRAW POINTS
#connect  mpr.Renderer1 catpV2.InRenderer
connect  viewer.Renderer catpV2.InRenderer


#Botones
new CommandButton commandButton0   
  set commandButton0.In "exec catpV2 ; exec axisV2;exec polren"
   # set commandButton0.In "exec polren"	
	set commandButton0.Label "ViewAxis"
	
#Interface
#Splits de interfaz
new LayoutSplit mainSplit  
	set mainSplit.Orientation H 
new LayoutLine layLine
	connect layLine.Widget mainSplit.Widget1
new LayoutLine layLine1
	connect layLine1.Widget mainSplit.Widget2

	
#Conecta botones y slider al wiget de LayoutLine
connect commandButton0.Widget layLine.Widget1
connect isoValue.Widget layLine.Widget2

#Conecta el mpr al main
#connect mpr.Widget layLine1.Widget1
connect viewer.Widget layLine1.Widget1	

exec mainSplit