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 # ------------------------------------------------------------------------ */
32 new LayoutSplit mainSplit
34 new MetaImageReader reader
35 new CommandButton commandButton
36 set commandButton.In "exec surface"
37 set commandButton.Label "RUN"
38 new IsoSurfaceExtractor surface
39 set surface.Opacity 0.8
40 new Slider sliderIsovalue
41 set sliderIsovalue.In 600
42 set sliderIsovalue.Max 5000
43 set sliderIsovalue.ChangeResolution true
46 include std/boxes/bbPrependPackageDataPath.bbs
47 new PrependPackageDataPath prependDatapath
48 set prependDatapath.In "vtk/hola.mhd"
49 connect prependDatapath.Out reader.In
51 connect reader.Out mpr.In
53 connect sizerA.Widget mainSplit.Widget1
54 connect mpr.Widget mainSplit.Widget2
55 connect commandButton.Widget sizerA.Widget1
56 connect sliderIsovalue.Widget sizerA.Widget2
58 connect reader.Out surface.In
59 connect sliderIsovalue.Out surface.Isovalue
60 connect mpr.Renderer surface.Renderer