# ---------------------------------------------------------------------
 #
 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
 #                        pour la SantÈ)
 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
 #
 #  This software is governed by the CeCILL-B license under French law and
 #  abiding by the rules of distribution of free software. You can  use,
 #  modify and/ or redistribute the software under the terms of the CeCILL-B
 #  license as circulated by CEA, CNRS and INRIA at the following URL
 #  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
 #  or in the file LICENSE.txt.
 #
 #  As a counterpart to the access to the source code and  rights to copy,
 #  modify and redistribute granted by the license, users are provided only
 #  with a limited warranty  and the software's author,  the holder of the
 #  economic rights,  and the successive licensors  have only  limited
 #  liability.
 #
 #  The fact that you are presently reading this means that you have had
 #  knowledge of the CeCILL-B license and that you accept its terms.
 # ------------------------------------------------------------------------ */
 
description " How to choose points in a 3D image "
author "davila at creatis.insa-lyon.fr"
category "example"

load vtk
load wxvtk
load creaMaracasVisu
load std
load wx
load creaImageIO

# Use new box (choose the way you want to select images)
# -----------------------------------------------------
new ImagesChooserDialogBox chooser

# Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
# WARNING : File names alphabetical order is suposed to be meaningful ...

new ConcatImages reader
   connect chooser.Out reader.In
  
new ImagePlanes planes
connect reader.Out planes.In

#new Viewer3D viewer

#connect planes.PlaneX viewer.Obs1
#connect planes.PlaneY viewer.Obs2
#connect planes.PlaneZ viewer.Obs3
#connect planes.Plane3Pts viewer.Obs4
#set viewer.WinTitle "Show N Points"
#set viewer.WinWidth 350
#set viewer.WinHeight 400

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
	#set planes.PointsX "10 10 50"
	#set planes.PointsY "10 50 20"
	#set planes.PointsZ "10 10 30"
	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.Orientation H
set mainSplit.Proportion 30
connect layoutline0.Widget mainSplit.Widget1
connect layoutline1.Widget mainSplit.Widget2

exec mainSplit

connect planes.Image3Pts view2d.In