PackRecalage/bbs/boxes/CompareImagesWidget_base_2Dt_A.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/All/creatools_source/creaRigidRegistration/PackRecalage/bbs/boxes/CompareImagesWidget_base_2Dt_A.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include vtk
   9 include wx
  10 include PackRecalage
  11 include std
  12
  13 define CompareImagesWidget_base_2Dt_A PackRecalage
  14
  15 author "info-dev@creatis.insa-lyon.fr"
  16 description "creatisRecalage"
  17
  18 category "example"
  19
  20 new SliceImage imgslice2
  21
  22 new LayoutLine buttonsLayout
  23   set buttonsLayout.Orientation "V"
  24   set buttonsLayout.WinTitle "Image transformation"
  25
  26 new Slider slider
  27   set slider.In "0"
  28   set slider.Max "180"
  29   set slider.Min "-180"
  30   set slider.ReactiveOnTrack "1"
  31   set slider.Title "Angle"
  32
  33 new Slider sliderX
  34   set sliderX.In "100"
  35   set sliderX.Max "500"
  36   set sliderX.Min "10"
  37   set sliderX.ReactiveOnTrack "1"
  38   set sliderX.Title "% Scale in X"
  39
  40 new Slider sliderY
  41   set sliderY.In "100"
  42   set sliderY.Max "500"
  43   set sliderY.Min "10"
  44   set sliderY.ReactiveOnTrack "1"
  45   set sliderY.Title "% Scale in Y"
  46
  47 new Transform2DBox transform
  48
  49 new ReSlicerBox reslice1
  50   set reslice1.Centered false
  51   set reslice1.Interpolate true
  52   set reslice1.Origin "0 0 0"
  53
  54 new ImageConvolution convol2
  55
  56 new MultipleInputs mult
  57
  58 new ImageVtkProperties Box51
  59
  60 new VectorRescaleSlope Box52
  61   set Box52.A 0.5
  62   set Box52.B 0
  63   set Box52.Type 0
  64
  65 new ConcatStrings Box53
  66
  67 new ConcatStrings Box54
  68
  69 new Slider Box55
  70   set Box55.In 0
  71   set Box55.Label true
  72   set Box55.Max 200
  73   set Box55.Min -200
  74   set Box55.ReactiveOnTrack true
  75   set Box55.Title "Translate Y"
  76
  77 new Slider Box57
  78   set Box57.In 0
  79   set Box57.Label true
  80   set Box57.Max 200
  81   set Box57.Min -200
  82   set Box57.ReactiveOnTrack true
  83   set Box57.Title "translate X"
  84
  85 new ConcatStrings Box58
  86   set Box58.In2 " "
  87   set Box58.In4 " 0"
  88
  89 new GetVectorIntElement Box60
  90   set Box60.I 0
  91
  92 new Add Box62
  93
  94 new Add Box63
  95
  96 new GetVectorIntElement Box64
  97   set Box64.I 1
  98
  99 new MagicBox Box70
 100
 101
 102 connect slider.Widget buttonsLayout.Widget1
 103 connect sliderX.Widget buttonsLayout.Widget2
 104 connect sliderY.Widget buttonsLayout.Widget3
 105 connect slider.Out transform.Angle
 106 connect sliderX.Out transform.ScaleX
 107 connect sliderY.Out transform.ScaleY
 108 connect transform.Out reslice1.Transform
 109 connect imgslice2.Out reslice1.In
 110 connect slider.BoxChange mult.In1
 111 connect sliderX.BoxChange mult.In2
 112 connect sliderY.BoxChange mult.In3
 113 connect reslice1.Out convol2.In
 114 connect imgslice2.Out Box51.In
 115 connect Box51.Size Box53.In1
 116 connect Box53.Out Box52.In
 117 connect Box52.Out Box54.In1
 118 connect Box60.Out Box62.In1
 119 connect Box57.Out Box62.In2
 120 connect Box62.Out Box58.In1
 121 connect Box64.Out Box63.In1
 122 connect Box55.Out Box63.In2
 123 connect Box63.Out Box58.In3
 124 connect Box57.Widget buttonsLayout.Widget4
 125 connect Box55.Widget buttonsLayout.Widget5
 126 connect Box57.BoxChange mult.In4
 127 connect Box55.BoxChange mult.In5
 128 connect Box58.Out transform.CenterPoint
 129 connect Box54.Out reslice1.Origin
 130 connect Box54.Out Box64.In
 131 connect Box54.Out Box60.In
 132 connect Box70.BoxChange imgslice2.BoxExecute
 133 connect Box70.BoxChange convol2.BoxExecute
 134
 135 # Complex input ports
 136 input SliceZ imgslice2.Z " "
 137 input ConvolutionFactor convol2.Factor " "
 138 input ConvolutionOnOff convol2.On " "
 139 input BoxExecute Box70.In " "
 140 input In imgslice2.In " "
 141
 142 # Complex output ports
 143 output Out convol2.Out " "
 144 output Widget buttonsLayout.Widget " "
 145 output BoxChange mult.BoxChange " "
 146
 147
 148 endefine