packages/itk/bbs/appli/ImageCrop.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 description "Extracts a sub-image of an image"
  27 author "laurent.guigues@creatis.insa-lyon.fr"
  28 category "application"
  29
  30 load std
  31 load itk
  32
  33 new ImageReader reader
  34 input I reader.In "Input file name"
  35
  36 new ExtractImageFilter filter
  37 connect reader.Out filter.In
  38
  39 new ImageRegion region
  40 input P region.Index "Position of the crop region"
  41 input S region.Size "Size of the crop region"
  42
  43 connect region.Out filter.Region
  44
  45 new ImageWriter writer
  46 connect filter.Out writer.In
  47
  48 input O writer.In "Output file name"
  49
  50 exec writer