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 "A 3D image slicer"
27 author "jpr@creatis.insa-lyon.fr"
28 category "application"
38 //include wxvtk/boxes/bbSimpleSlicer
39 //include wx/boxes/LayoutX4
42 new LayoutLine upright
44 new LayoutLine downleft
46 connect upright.Widget main.Widget1
47 connect upleft.Widget main.Widget2
48 connect downleft.Widget main.Widget3
56 new ImagePlanes planes
57 connect reader.Out planes.In
60 connect planes.PlaneX viewer.Obs1
61 connect planes.PlaneY viewer.Obs2
62 connect planes.PlaneZ viewer.Obs3
64 connect viewer.Widget main.Widget4
70 set viewerUL.BoxProcessMode Always
71 connect planes.ImageX viewerUL.In
72 # contains only one slice
74 connect viewerUL.Widget upleft.Widget1
76 // print "planes.BoxChange $planes.BoxChange"
77 // print "viewer.BoxChange $viewer.BoxChange"
79 connect planes.BoxChange viewerUL.BoxExecute
81 print "===============planes.ImageX $planes.ImageX"
86 set viewerUR.BoxProcessMode Always
87 connect planes.ImageY viewerUR.In
88 connect viewerUR.Widget upright.Widget1
89 # contains only one slice
91 connect planes.BoxChange viewerUR.BoxExecute
93 print "===============planes.ImageY $planes.ImageY"
98 set viewerDL.BoxProcessMode Always
99 connect planes.ImageZ viewerDL.In
100 connect viewerDL.Widget downleft.Widget1
101 # contains only one slice
103 connect planes.BoxChange viewerDL.BoxExecute
105 print "===============planes.ImageZ $planes.ImageZ"
107 set main.WinTitle "Slicer"