+++ /dev/null
-description "creaMaracasVisu::SegmentationConnectivity box example. "
-category "example"
-author "eduardo.davila@creatis.insa-lyon.fr"
-
-
-load std
-load vtk
-load wx
-load creaMaracasVisu
-
-new LayoutLine sizerA
-new LayoutSplit mainSplit
-
-#new ViewerNV mpr
-# set mpr.nTypeView "2 5"
-new ViewerMPR mpr
-
-new MetaImageReader reader
-new CommandButton commandButton
- set commandButton.In "exec segmentationconnectivity; exec surface"
- set commandButton.Label "RUN"
-
-new SegmentationConnectivity segmentationconnectivity
-new IsoSurfaceExtractor surface
- set surface.Opacity "0.8"
- set surface.Isovalue "100"
-new ConcatStrings concatstringsThreshold
- set concatstringsThreshold.In2 " "
-
-new SliderMinMax sliderThreshold
- set sliderThreshold.Orientation 1
- set sliderThreshold.InW 300
- set sliderThreshold.InH 80
- set sliderThreshold.InMax 6000
- set sliderThreshold.InMin 0
- set sliderThreshold.InMaxShow 6000
- set sliderThreshold.InMinShow 1200
- set sliderThreshold.ShowActual false
-new OutputText staticTextThreshold
- set staticTextThreshold.In "Threshold"
-
-include std/boxes/bbPrependPackageDataPath.bbs
-new PrependPackageDataPath prependDatapath
- set prependDatapath.In "vtk/hola.mhd"
- connect prependDatapath.Out reader.In
-
-connect reader.Out mpr.In
-
-connect sizerA.Widget mainSplit.Widget1
-connect mpr.Widget mainSplit.Widget2
-
-connect staticTextThreshold.Widget sizerA.Widget1
-connect sliderThreshold.Widget sizerA.Widget2
-connect commandButton.Widget sizerA.Widget3
-
-connect reader.Out segmentationconnectivity.In
-connect mpr.Renderer surface.Renderer
-
-connect segmentationconnectivity.Out surface.In
-connect mpr.Point segmentationconnectivity.PositionXYZ
-
-connect sliderThreshold.OutStart concatstringsThreshold.In1
-connect sliderThreshold.OutEnd concatstringsThreshold.In3
-
-connect concatstringsThreshold.Out segmentationconnectivity.ThresholdMinMax
-
-
-#graph CURRENT 0
-#graph
-
-print $prependDatapath.Out$
-print " ueueueueueu "
-
-exec mainSplit