description " How to choose points in a 3D image "
author "davila at creatis.insa-lyon.fr"
category "demo"

// See also examplePlane3Pts.bbs
// To know how to read more images.

include vtk/boxes/bbLoadHola
load vtk
load wxvtk
load creaMaracasVisu
load std
load wx

new LoadHola reader

new ImagePlanes planes
connect reader.Out planes.In

new ViewerNV viewernv
	#set viewernv.nTypeView "6 1 2 0"
	set viewernv.nTypeView "6"
	connect reader.Out viewernv.In

new ShowNPoints showpoints
	connect reader.Out showpoints.Image
	connect showpoints.lstPointsX planes.PointsX
	connect showpoints.lstPointsY planes.PointsY
	connect showpoints.lstPointsZ planes.PointsZ
	connect viewernv.BoxChange showpoints.BoxExecute
	connect viewernv.Point showpoints.In
	connect viewernv.Renderer1 showpoints.Renderer
	set showpoints.Radio 1

new ImageActor imgactor
	connect planes.Image3Pts imgactor.In
	connect viewernv.Renderer1 imgactor.Renderer
	connect planes.Transform3Pts imgactor.Transform

new Viewer2D view2d
new CommandButton execplanes
	set execplanes.Label "Refresh planes"
	connect execplanes.BoxChange planes.BoxExecute	
	connect execplanes.BoxChange view2d.BoxExecute	
	connect execplanes.BoxChange imgactor.BoxExecute
	#connect execplanes.BoxChange viewer.BoxExecute	

new LayoutLine layoutline0
   connect showpoints.Widget layoutline0.Widget1
   connect execplanes.Widget layoutline0.Widget2

new LayoutLine layoutline1
   connect viewernv.Widget layoutline1.Widget1

new LayoutSplit mainSplit
   set mainSplit.WinWidth 1500
   set mainSplit.Orientation H
   set mainSplit.Proportion 15
   connect layoutline0.Widget mainSplit.Widget1
   connect layoutline1.Widget mainSplit.Widget2

exec mainSplit

connect planes.Image3Pts view2d.In