packages/demo/bbs/appli/SaveAsMhd.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
  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"
  30
  31 load vtk
  32 include wxvtk
  33 load std
  34 load itk
  35 include vtk
  36 include wx
  37 load itkvtk
  38
  39 new LayoutLine  main
  40
  41 # Use new box (choose the way you want to select images)
  42 # -----------------------------------------------------
  43 load creaImageIO
  44 //new ImagesChooserDialogBox chooser
  45 new ImagesChooserDialogBox reader
  46
  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 ...
  49
  50 //new ConcatImages reader
  51 //   connect chooser.OutImages reader.In
  52
  53
  54 new CommandButton cb1
  55    set cb1.Label "1) Select File"
  56    set cb1.WinDialog true
  57    connect cb1.Widget main.Widget1
  58
  59 connect cb1.BoxChange reader.BoxExecute
  60
  61 new SimpleSlicer slc
  62    set slc.Orientation 2
  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
  67
  68 exec slc
  69
  70 new CommandButton cb
  71    connect cb.Widget main.Widget2
  72    set cb.Label "2) Write (no '.mhd' extention needed!"
  73    set cb.WinDialog true
  74
  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"
  81
  82 # Choose where you want to write
  83 # ------------------------------
  84 new FileSelector fileDialog
  85   set fileDialog.OpenSave Save
  86   set fileDialog.Wildcard "*.mhd"
  87
  88 new  MakeFileName mfn
  89    connect fileDialog.Out mfn.File
  90    set mfn.Extent ".mhd"
  91
  92 # Write!
  93 # ------
  94
  95 new MetaImageWriter writer
  96   connect reader.Out writer.In
  97   connect mfn.Out writer.Filename
  98   connect cb.BoxChange writer.BoxExecute
  99
 100 exec main
 101