]> Creatis software - bbtk.git/blob - packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
Feature #1774
[bbtk.git] / packages / gdcmvtk / bbs / appli / exampleGetXCoherentInfoGdcmReader.bbs
1  # ---------------------------------------------------------------------
2  #
3  # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
4  #                        pour la SantÈ)
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
8  #
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.
15  #
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
20  #  liability.
21  #
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  # ------------------------------------------------------------------------ */
25  
26 category "example"
27
28 load gdcmvtk
29 load std
30 load wx
31
32
33 //message all 9
34
35 // To choose the directory
36 new DirectorySelector ds
37 // To get the image names into a vector
38 new FilesFromDirectory fd
39    connect ds.Out fd.In 
40 // list of files as input
41 #print "In $ds.Out$\n
42 #print "Files found : $fd.Out$\n
43 // user choosen directory as input
44 new GetXCoherentInfoGdcmReader reader
45 connect fd.Out  reader.In
46 exec  reader  
47
48 // No adaptor
49 #print $reader.Out$
50
51 print IOP
52 print $reader.IOP$
53
54 print IPP
55 print $reader.IPP$
56
57 print PixelSpacing
58 print $reader.PixelSpacing$
59
60
61