7 new LayoutSplit mainSplit
10 # set mpr.nTypeView "2 5"
13 new MetaImageReader reader
14 new CommandButton commandButton
15 set commandButton.In "exec segmentationconnectivity; exec surface"
16 set commandButton.Label "RUN"
18 new SegmentationConnectivity segmentationconnectivity
19 new IsoSurfaceExtractor surface
20 set surface.Opacity "0.8"
21 set surface.Isovalue "100"
22 new ConcatStrings concatstringsThreshold
23 set concatstringsThreshold.In2 " "
25 new SliderMinMax sliderThreshold
26 set sliderThreshold.Orientation 1
27 set sliderThreshold.InW 300
28 set sliderThreshold.InH 80
29 set sliderThreshold.InMax 6000
30 set sliderThreshold.InMin 0
31 set sliderThreshold.InMaxShow 6000
32 set sliderThreshold.InMinShow 1200
33 set sliderThreshold.ShowActual false
34 new OutputText staticTextThreshold
35 set staticTextThreshold.In "Threshold"
37 include std/boxes/bbPrependPackageDataPath.bbs
38 new PrependPackageDataPath prependDatapath
39 set prependDatapath.In "vtk/hola.mhd"
40 connect prependDatapath.Out reader.In
42 connect reader.Out mpr.In
44 connect sizerA.Widget mainSplit.Widget1
45 connect mpr.Widget mainSplit.Widget2
47 connect staticTextThreshold.Widget sizerA.Widget1
48 connect sliderThreshold.Widget sizerA.Widget2
49 connect commandButton.Widget sizerA.Widget3
51 connect reader.Out segmentationconnectivity.In
52 connect mpr.Renderer surface.Renderer
54 connect segmentationconnectivity.Out surface.In
55 connect mpr.Point segmentationconnectivity.PositionXYZ
57 connect sliderThreshold.OutStart concatstringsThreshold.In1
58 connect sliderThreshold.OutEnd concatstringsThreshold.In3
60 connect concatstringsThreshold.Out segmentationconnectivity.ThresholdMinMax
66 print $prependDatapath.Out$