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 # ------------------------------------------------------------------------ */
27 description "Reads and image file / stack of image files, writes it as a MHD file"
28 author "jpr@creatis.insa-lyon.fr"
29 category "tool, read/write"
41 # Use new box (choose the way you want to select images)
42 # -----------------------------------------------------
44 //new ImagesChooserDialogBox chooser
45 new ImagesChooserDialogBox reader
47 # Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
48 # WARNING : File names alphabetical order is suposed to be meaningful ...
50 //new ConcatImages reader
51 // connect chooser.OutImages reader.In
55 set cb1.Label "1) Select File"
56 set cb1.WinDialog true
57 connect cb1.Widget main.Widget1
59 connect cb1.BoxChange reader.BoxExecute
63 set slc.SliderReactiveOnTrack 1
64 connect reader.Out slc.In
65 // It doesn't work ?!?, needs to "exec slc" // JPR
66 connect reader.BoxChange slc.BoxExecute
71 connect cb.Widget main.Widget2
72 set cb.Label "2) Write (no '.mhd' extention needed!"
75 new CommandButton next
76 connect next.Widget main.Widget3
77 set next.Label "Next !"
78 set next.WinDialog true
79 // It doesn't work : <<the black box "main" is still connected">>
80 set next.In "delete main"
82 # Choose where you want to write
83 # ------------------------------
84 new FileSelector fileDialog
85 set fileDialog.OpenSave Save
86 set fileDialog.Wildcard "*.mhd"
89 connect fileDialog.Out mfn.File
95 new MetaImageWriter writer
96 connect reader.Out writer.In
97 connect mfn.Out writer.Filename
98 connect cb.BoxChange writer.BoxExecute