# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /home/davila/Creatis/C8/creatools_source/creaRigidRegistration/PackRecalage/bbs/boxes/CompareImagesWidget.bbs
# ----------------------------------

include std
include itkvtk
include PackRecalage
include wx
include std
include creaMaracasVisu
include vtk

define CompareImagesWidget PackRecalage

author "info-dev@creatis.insa-lyon.fr"
description "creatisRecalage"

category "example"

new PackRecalage:ImageRecalageProperties properties

new wx:Slider sdrZ
  set sdrZ.Min "0"
  set sdrZ.ReactiveOnTrack "1"
  set sdrZ.Title "Z for slice"

new wx:Slider sdrF
  set sdrF.In "0"
  set sdrF.Max "100"
  set sdrF.Min "0"
  set sdrF.ReactiveOnTrack "1"
  set sdrF.Title "Convolution Factor"

new wx:CheckBox checkF
  set checkF.In "True"

new std:MultipleInputs multF

new wx:Slider colorLevel
  set colorLevel.Min "0"
  set colorLevel.ReactiveOnTrack "true"
  set colorLevel.Title "Color Level"

new wx:Slider windowLevel
  set windowLevel.Min "0"
  set windowLevel.ReactiveOnTrack "true"
  set windowLevel.Title "Window Level"

new std:MultipleInputs multLevels

new PackRecalage:CheckBoardBox cbb

new wx:Slider sdr
  set sdr.In "14"
  set sdr.Max "50"
  set sdr.ReactiveOnTrack "1"

new wx:Slider sdr2
  set sdr2.In "14"
  set sdr2.Max "50"
  set sdr2.ReactiveOnTrack "1"

new wx:LayoutSplit checkerBoard
  set checkerBoard.Proportion "80"

new wx:LayoutLine ly

new creaMaracasVisu:ViewerNV viewerCH
  set viewerCH.nTypeView "0"

new PackRecalage:TransparencyBox trans

new wx:Slider sdrP
  set sdrP.In "50"
  set sdrP.Max "100"
  set sdrP.Min "0"
  set sdrP.ReactiveOnTrack "true"

new creaMaracasVisu:ViewerNV transView
  set transView.nTypeView "0"

new wx:LayoutSplit transparency
  set transparency.Proportion "80"

new std:MultipleInputs mult2

new std:MultipleInputs mult3

new std:MultipleInputs mult4

new wx:LayoutTab tabs
  set tabs.Orientation V

new wx:LayoutLine tools
  set tools.WinTitle "Appearance"

new wx:LayoutSplit convolTools
  set convolTools.Orientation "H"
  set convolTools.Proportion "80"

new wx:LayoutSplit window2
  set window2.Orientation H
  set window2.Proportion "25"

new vtk:vtkImageDataPointerRelay Box56

new vtk:vtkImageDataPointerRelay Box59

new wx:LayoutTab Box61

new creaMaracasVisu:ViewerNV Box65
  set Box65.nTypeView 0

new creaMaracasVisu:ViewerNV Box66
  set Box66.nTypeView 0

new wx:LayoutLine Box67
  set Box67.Orientation H
  set Box67.WinTitle "Parallel"

new std:MultipleInputs Box68

new PackRecalage:CompareImagesSwitcherWidget Box69

new PackRecalage:CompareImagesWidget_base_2Dt_A Box70

new std:MultipleInputs Box71

new PackRecalage:CompareImagesWidget_base_2Dt_B Box72

new creaMaracasVisu:SetPosition Box39


connect properties.LengthZ sdrZ.Max
connect sdrF.BoxChange multF.In1
connect checkF.BoxChange multF.In2
connect properties.ColorLevel colorLevel.Max
connect properties.MidColorLevel colorLevel.In
connect properties.ColorLevel windowLevel.Max
connect properties.MidColorLevel windowLevel.In
connect colorLevel.BoxChange multLevels.In1
connect windowLevel.BoxChange multLevels.In2
connect colorLevel.Out viewerCH.ColorLevel
connect windowLevel.Out viewerCH.WindowLevel
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 viewerCH.Widget checkerBoard.Widget1
connect ly.Widget checkerBoard.Widget2
connect sdrP.Out trans.Percent
connect transView.Widget transparency.Widget1
connect sdrP.Widget transparency.Widget2
connect windowLevel.Out transView.WindowLevel
connect multF.BoxChange mult2.In1
connect ly.BoxChange mult3.In1
connect mult2.BoxChange mult3.In2
connect multLevels.BoxChange mult3.In5
connect mult3.BoxChange cbb.BoxExecute
connect cbb.BoxChange viewerCH.BoxExecute
connect mult2.BoxChange mult4.In1
connect sdrP.BoxChange mult4.In2
connect mult4.BoxChange trans.BoxExecute
connect trans.BoxChange transView.BoxExecute
connect colorLevel.Widget tools.Widget2
connect windowLevel.Widget tools.Widget3
connect checkF.Widget convolTools.Widget2
connect convolTools.Widget tools.Widget4
connect Box59.Out properties.In
connect sdrF.Widget convolTools.Widget1
connect sdrZ.Widget tools.Widget1
connect transparency.Widget tabs.Widget2
connect checkerBoard.Widget tabs.Widget3
connect trans.Out transView.In
connect Box61.Widget window2.Widget1
connect tabs.Widget window2.Widget2
connect tools.Widget Box61.Widget1
connect Box66.Widget Box67.Widget2
connect Box65.Widget Box67.Widget1
connect Box67.Widget tabs.Widget4
connect mult3.BoxChange Box68.In1
connect Box68.BoxChange Box66.BoxExecute
connect Box68.BoxChange Box65.BoxExecute
connect mult4.BoxChange Box68.In2
connect Box69.Widget tabs.Widget1
connect Box56.Out Box70.In
connect sdrZ.Out Box70.SliceZ
connect sdrZ.BoxChange Box71.In1
connect Box71.BoxChange Box70.BoxExecute
connect checkF.Out Box70.ConvolutionOnOff
connect sdrF.Out Box70.ConvolutionFactor
connect sdrF.BoxChange Box71.In2
connect checkF.BoxChange Box71.In3
connect Box70.BoxChange mult2.In2
connect Box70.Widget Box61.Widget2
connect Box70.Out Box69.Image1
connect Box70.Out trans.In2
connect Box70.Out Box65.In
connect Box70.Out cbb.In2
connect Box72.Out Box69.Image2
connect Box72.Out trans.In1
connect Box72.Out Box66.In
connect Box72.Out cbb.In1
connect Box59.Out Box72.In
connect checkF.Out Box72.ConvolutionOnOff
connect sdrF.Out Box72.ConvolutionFactor
connect multF.BoxChange Box72.BoxExecute
connect sdrZ.Out Box72.SliceZ
connect Box65.Point Box39.Point
connect Box66.wxVtkBaseView1 Box39.wxVtkBaseView
connect Box65.BoxChange Box39.BoxExecute

# Complex input ports
input In2 Box59.In " "
input In1 Box56.In " "
input WinTitle window2.WinTitle " "

# Complex output ports
output Widget window2.Widget " "


endefine