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 # ------------------------------------------------------------------------ */
26 description "creaMaracasVisu::SegmentationConnectivity box example. "
28 author "eduardo.davila@creatis.insa-lyon.fr"
37 new LayoutSplit mainSplit
40 # set mpr.nTypeView "2 5"
43 new MetaImageReader reader
44 new CommandButton commandButton
45 set commandButton.In "exec segmentationconnectivity; exec surface"
46 set commandButton.Label "RUN"
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 " "
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"
67 include std/boxes/bbPrependPackageDataPath.bbs
68 new PrependPackageDataPath prependDatapath
69 set prependDatapath.In "vtk/hola.mhd"
70 connect prependDatapath.Out reader.In
72 connect reader.Out mpr.In
74 connect sizerA.Widget mainSplit.Widget1
75 connect mpr.Widget mainSplit.Widget2
77 connect staticTextThreshold.Widget sizerA.Widget1
78 connect sliderThreshold.Widget sizerA.Widget2
79 connect commandButton.Widget sizerA.Widget3
81 connect reader.Out segmentationconnectivity.In
82 connect mpr.Renderer surface.Renderer
84 connect segmentationconnectivity.Out surface.In
85 connect mpr.Point segmentationconnectivity.PositionXYZ
87 connect sliderThreshold.OutStart concatstringsThreshold.In1
88 connect sliderThreshold.OutEnd concatstringsThreshold.In3
90 connect concatstringsThreshold.Out segmentationconnectivity.ThresholdMinMax
96 print $prependDatapath.Out$