bbtk/bbs/appli/example_Segmentation_02.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 "creaMaracasVisu::SegmentationConnectivity box example. "
  27 category "example"
  28 author "eduardo.davila@creatis.insa-lyon.fr"
  29
  30
  31 load std
  32 include vtk
  33 load wx
  34 load creaMaracasVisu
  35
  36 new LayoutLine sizerA
  37 new LayoutSplit mainSplit
  38
  39 #new ViewerNV mpr
  40 #  set mpr.nTypeView  "2 5"
  41 new ViewerMPR mpr
  42
  43 new MetaImageReader reader
  44 new CommandButton commandButton
  45   set commandButton.In "exec segmentationconnectivity; exec surface"
  46   set commandButton.Label "RUN"
  47
  48 new SegmentationConnectivity segmentationconnectivity
  49 new IsoSurfaceExtractor surface
  50   set surface.Opacity "0.8"
  51   set surface.Isovalue "100"
  52 new ConcatStrings concatstringsThreshold
  53   set concatstringsThreshold.In2  " "
  54
  55 new SliderMinMax sliderThreshold
  56   set sliderThreshold.Orientation 1
  57   set sliderThreshold.InW 300
  58   set sliderThreshold.InH 80
  59   set sliderThreshold.InMax 6000
  60   set sliderThreshold.InMin 0
  61   set sliderThreshold.InMaxShow 6000
  62   set sliderThreshold.InMinShow 1200
  63   set sliderThreshold.ShowActual false
  64 new OutputText  staticTextThreshold
  65   set staticTextThreshold.In "Threshold"
  66
  67 include  std/boxes/bbPrependPackageDataPath.bbs
  68 new PrependPackageDataPath prependDatapath
  69   set prependDatapath.In "vtk/hola.mhd"
  70   connect prependDatapath.Out reader.In
  71
  72 connect reader.Out mpr.In
  73
  74 connect sizerA.Widget                                   mainSplit.Widget1
  75 connect mpr.Widget                                      mainSplit.Widget2
  76
  77 connect staticTextThreshold.Widget              sizerA.Widget1
  78 connect sliderThreshold.Widget                  sizerA.Widget2
  79 connect commandButton.Widget            sizerA.Widget3
  80
  81 connect reader.Out segmentationconnectivity.In
  82 connect mpr.Renderer surface.Renderer
  83
  84 connect segmentationconnectivity.Out surface.In
  85 connect mpr.Point segmentationconnectivity.PositionXYZ
  86
  87 connect sliderThreshold.OutStart concatstringsThreshold.In1
  88 connect sliderThreshold.OutEnd concatstringsThreshold.In3
  89
  90 connect concatstringsThreshold.Out segmentationconnectivity.ThresholdMinMax
  91
  92
  93 #graph CURRENT 0
  94 #graph
  95
  96 print $prependDatapath.Out$
  97 print "   ueueueueueu    "
  98
  99 exec mainSplit