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

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

define CompareImagesWidget_base_2Dt_A PackRecalage

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

category "example"

new SliceImage imgslice2

new LayoutLine buttonsLayout
  set buttonsLayout.Orientation "V"
  set buttonsLayout.WinTitle "Image transformation"

new Slider slider
  set slider.In "0"
  set slider.Max "180"
  set slider.Min "-180"
  set slider.ReactiveOnTrack "1"
  set slider.Title "Angle"

new Slider sliderX
  set sliderX.In "100"
  set sliderX.Max "500"
  set sliderX.Min "10"
  set sliderX.ReactiveOnTrack "1"
  set sliderX.Title "% Scale in X"

new Slider sliderY
  set sliderY.In "100"
  set sliderY.Max "500"
  set sliderY.Min "10"
  set sliderY.ReactiveOnTrack "1"
  set sliderY.Title "% Scale in Y"

new Transform2DBox transform

new ReSlicerBox reslice1
  set reslice1.Centered false
  set reslice1.Interpolate true
  set reslice1.Origin "0 0 0"

new ImageConvolution convol2

new MultipleInputs mult

new ImageVtkProperties Box51

new VectorRescaleSlope Box52
  set Box52.A 0.5
  set Box52.B 0
  set Box52.Type 0

new ConcatStrings Box53

new ConcatStrings Box54

new Slider Box55
  set Box55.In 0
  set Box55.Label true
  set Box55.Max 200
  set Box55.Min -200
  set Box55.ReactiveOnTrack true
  set Box55.Title "Translate Y"

new Slider Box57
  set Box57.In 0
  set Box57.Label true
  set Box57.Max 200
  set Box57.Min -200
  set Box57.ReactiveOnTrack true
  set Box57.Title "translate X"

new ConcatStrings Box58
  set Box58.In2 " "
  set Box58.In4 " 0"

new GetVectorIntElement Box60
  set Box60.I 0

new Add Box62

new Add Box63

new GetVectorIntElement Box64
  set Box64.I 1

new MagicBox Box70


connect slider.Widget buttonsLayout.Widget1
connect sliderX.Widget buttonsLayout.Widget2
connect sliderY.Widget buttonsLayout.Widget3
connect slider.Out transform.Angle
connect sliderX.Out transform.ScaleX
connect sliderY.Out transform.ScaleY
connect transform.Out reslice1.Transform
connect imgslice2.Out reslice1.In
connect slider.BoxChange mult.In1
connect sliderX.BoxChange mult.In2
connect sliderY.BoxChange mult.In3
connect reslice1.Out convol2.In
connect imgslice2.Out Box51.In
connect Box51.Size Box53.In1
connect Box53.Out Box52.In
connect Box52.Out Box54.In1
connect Box60.Out Box62.In1
connect Box57.Out Box62.In2
connect Box62.Out Box58.In1
connect Box64.Out Box63.In1
connect Box55.Out Box63.In2
connect Box63.Out Box58.In3
connect Box57.Widget buttonsLayout.Widget4
connect Box55.Widget buttonsLayout.Widget5
connect Box57.BoxChange mult.In4
connect Box55.BoxChange mult.In5
connect Box58.Out transform.CenterPoint
connect Box54.Out reslice1.Origin
connect Box54.Out Box64.In
connect Box54.Out Box60.In
connect Box70.BoxChange imgslice2.BoxExecute
connect Box70.BoxChange convol2.BoxExecute

# Complex input ports
input SliceZ imgslice2.Z " "
input ConvolutionFactor convol2.Factor " "
input ConvolutionOnOff convol2.On " "
input BoxExecute Box70.In " "
input In imgslice2.In " "

# Complex output ports
output Out convol2.Out " "
output Widget buttonsLayout.Widget " "
output BoxChange mult.BoxChange " "


endefine