load PackRecalage
+//include PackRecalage/boxes/checkerView.bbs
+
+//Uncomment the image readers you need
+
+/////////////////////////////////////////////////
+// File Selector
+////////////////////////////////////////////////
+/*
new FileSelector imageSelector1
set imageSelector1.Wildcard "*.mhd"
new FileSelector imageSelector2
new MetaImageReader image2
connect imageSelector2.Out image2.In
+*/
+
+///////////////////////////////////////////////
+// Gimmick
+//////////////////////////////////////////////
+
+include creaImageIO
+
+new Gimmick image
+new Gimmick image2
+
+
+# Create the slicers
+
+new SliceImage imgslice1
+new SliceImage imgslice2
+ connect image.Out imgslice1.In
+ connect image2.Out imgslice2.In
#Viewer containing image 1
set sliderY.ReactiveOnTrack "1"
connect sliderY.Widget buttonsLayout.Widget3
-# Create the reslicers
-
-new SliceImage imgslice1
-new SliceImage imgslice2
- connect image.Out imgslice1.In
- connect image2.Out imgslice2.In
-
#Box were the transformation will be made
new Transform2DBox transform
new ImageConvolution convol2
connect reslice1.Out convol2.In
+#Image Properties
+
+new ImageRecalageProperties properties
+ connect image.Out properties.In
+ connect image.BoxChange properties.BoxExecute
+
# Create the ZSlider for the slices
new Slider sdrZ
set sdrZ.ReactiveOnTrack 1
- set sdrZ.Max 50
+ set sdrZ.Min 0
+ connect properties.LengthZ sdrZ.Max
set sdrZ.Title "Z for slice"
connect sdrZ.Out imgslice1.Z
connect multF.BoxChange convol1.BoxExecute
connect multF.BoxChange convol2.BoxExecute
-
#Create Sliders for WinLevel and ColorLevel
new Slider colorLevel
set colorLevel.Min "0"
- set colorLevel.Max "99"
- set colorLevel.In "50"
+ connect properties.ColorLevel colorLevel.Max
+ connect properties.MidColorLevel colorLevel.In
set colorLevel.ReactiveOnTrack true
set colorLevel.Title "Color Level"
new Slider windowLevel
set windowLevel.Min "0"
- set windowLevel.Max "99"
- set windowLevel.In "50"
+ connect properties.ColorLevel windowLevel.Max
+ connect properties.MidColorLevel windowLevel.In
set windowLevel.ReactiveOnTrack true
set windowLevel.Title "Window Level"
connect sdr.Out cbb.Cols
connect sdr2.Out cbb.Rows
connect cbb.Out viewerCH.In
-
+
connect sdr.Widget ly.Widget2
connect sdr2.Widget ly.Widget3
connect ly.Widget checkerBoard.Widget2
/////////////end of Checkboard////////////////////
+/*
+new checkerView checkerboard
+
+ connect convol1.Out checkerboard.In1
+ connect convol2.Out checkerboard.In2
+ connect colorLevel.Out checkerboard.ColorLevel
+ connect windowLevel.Out checkerboard.WindowLevel
+*/
//////////////Transparency///////////////////////////
#Image Transparency view
-new TransparencyV2 trans
+new TransparencyBox trans
connect convol1.Out trans.In1
connect convol2.Out trans.In2
new ImageSwitcherBox switch
connect convol1.Out switch.In1
- connect convol2.Out switch.In2
+ connect convol2.Out switch.In2
+
+new CheckBox checkS
+ connect checkS.Out switch.On
+ set checkS.Title "On"
+ set checkS.In "true"
new Slider sdrT
set sdrT.Max "1000"
set sdrT.Min "0"
set sdrT.In "500"
+ set sdrT.ReactiveOnTrack "True"
connect sdrT.Out switch.Time
connect sdrT.BoxChange switch.BoxExecute
connect switch.BoxChange viewerSwitch.BoxExecute
-new LayoutLine switcher
- connect viewerSwitch.Widget switcher.Widget1
- connect switch.Widget switcher.Widget2
- connect sdrT.Widget switcher.Widget3
+new LayoutSplit switcher
+ set switcher.Proportion "70"
+
+new LayoutSplit switchWindow
+ set switchWindow.Proportion "80"
+ connect viewerSwitch.Widget switchWindow.Widget1
+
+new LayoutSplit switchTool
+ set switchTool.Orientation H
+ set switchTool.Proportion "50"
+ connect switch.Widget switchTool.Widget1
+ connect checkS.Widget switchTool.Widget2
+
+ connect switchTool.Widget switchWindow.Widget2
+
+ connect switchWindow.Widget switcher.Widget1
+ connect sdrT.Widget switcher.Widget2
//////////////end of Image Switch///////////////////