1 # ---------------------------------------------------------------------
3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
5 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
6 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
7 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
9 # This software is governed by the CeCILL-B license under French law and
10 # abiding by the rules of distribution of free software. You can use,
11 # modify and/ or redistribute the software under the terms of the CeCILL-B
12 # license as circulated by CEA, CNRS and INRIA at the following URL
13 # http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
14 # or in the file LICENSE.txt.
16 # As a counterpart to the access to the source code and rights to copy,
17 # modify and redistribute granted by the license, users are provided only
18 # with a limited warranty and the software's author, the holder of the
19 # economic rights, and the successive licensors have only limited
22 # The fact that you are presently reading this means that you have had
23 # knowledge of the CeCILL-B license and that you accept its terms.
24 # ------------------------------------------------------------------------ */
26 description " How to choose points in a 3D image "
27 author "davila at creatis.insa-lyon.fr"
30 // See also examplePlane3Pts.bbs
31 // To know how to read more images.
33 include vtk/boxes/bbLoadHola
42 new ImagePlanes planes
43 connect reader.Out planes.In
46 #set viewernv.nTypeView "6 1 2 0"
47 set viewernv.nTypeView "6"
48 connect reader.Out viewernv.In
50 new ShowNPoints showpoints
51 connect reader.Out showpoints.Image
52 connect showpoints.lstPointsX planes.PointsX
53 connect showpoints.lstPointsY planes.PointsY
54 connect showpoints.lstPointsZ planes.PointsZ
55 connect viewernv.BoxChange showpoints.BoxExecute
56 connect viewernv.Point showpoints.In
57 connect viewernv.Renderer1 showpoints.Renderer
58 set showpoints.Radio 1
60 new ImageActor imgactor
61 connect planes.Image3Pts imgactor.In
62 connect viewernv.Renderer1 imgactor.Renderer
63 connect planes.Transform3Pts imgactor.Transform
66 new CommandButton execplanes
67 set execplanes.Label "Refresh planes"
68 connect execplanes.BoxChange planes.BoxExecute
69 connect execplanes.BoxChange view2d.BoxExecute
70 connect execplanes.BoxChange imgactor.BoxExecute
71 #connect execplanes.BoxChange viewer.BoxExecute
73 new LayoutLine layoutline0
74 connect showpoints.Widget layoutline0.Widget1
75 connect execplanes.Widget layoutline0.Widget2
77 new LayoutLine layoutline1
78 connect viewernv.Widget layoutline1.Widget1
80 new LayoutSplit mainSplit
81 set mainSplit.WinWidth 1500
82 set mainSplit.Orientation H
83 set mainSplit.Proportion 15
84 connect layoutline0.Widget mainSplit.Widget1
85 connect layoutline1.Widget mainSplit.Widget2
89 connect planes.Image3Pts view2d.In