PackRecalage/bbs/boxes/CompareImagesWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script (Complex Box)
   3 # - /Users/davila/Creatis/All5/creatools_source/creaRigidRegistration/PackRecalage/bbs/boxes/CompareImagesWidget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include vtk
   9 include wx
  10 include PackRecalage
  11 include std
  12 include creaMaracasVisu
  13
  14 define CompareImagesWidget PackRecalage
  15
  16 author "info-dev@creatis.insa-lyon.fr"
  17 description "creatisRecalage"
  18
  19 category "example"
  20
  21 new SliceImage imgslice1
  22
  23 new SliceImage imgslice2
  24
  25 new LayoutLine buttonsLayout
  26   set buttonsLayout.Orientation "V"
  27   set buttonsLayout.WinTitle "Image transformation"
  28
  29 new Slider slider
  30   set slider.In "0"
  31   set slider.Max "180"
  32   set slider.Min "-180"
  33   set slider.ReactiveOnTrack "1"
  34   set slider.Title "Angle"
  35
  36 new Slider sliderX
  37   set sliderX.In "100"
  38   set sliderX.Max "500"
  39   set sliderX.Min "10"
  40   set sliderX.ReactiveOnTrack "1"
  41   set sliderX.Title "% Scale in X"
  42
  43 new Slider sliderY
  44   set sliderY.In "100"
  45   set sliderY.Max "500"
  46   set sliderY.Min "10"
  47   set sliderY.ReactiveOnTrack "1"
  48   set sliderY.Title "% Scale in Y"
  49
  50 new Transform2DBox transform
  51
  52 new ReSlicerBox reslice1
  53   set reslice1.Centered false
  54   set reslice1.Interpolate true
  55   set reslice1.Origin "0 0 0"
  56
  57 new ImageConvolution convol1
  58
  59 new ImageConvolution convol2
  60
  61 new ImageRecalageProperties properties
  62
  63 new Slider sdrZ
  64   set sdrZ.Min "0"
  65   set sdrZ.ReactiveOnTrack "1"
  66   set sdrZ.Title "Z for slice"
  67
  68 new Slider sdrF
  69   set sdrF.In "0"
  70   set sdrF.Max "100"
  71   set sdrF.Min "0"
  72   set sdrF.ReactiveOnTrack "1"
  73   set sdrF.Title "Convolution Factor"
  74
  75 new CheckBox checkF
  76   set checkF.In "True"
  77
  78 new MultipleInputs multF
  79
  80 new Slider colorLevel
  81   set colorLevel.Min "0"
  82   set colorLevel.ReactiveOnTrack "true"
  83   set colorLevel.Title "Color Level"
  84
  85 new Slider windowLevel
  86   set windowLevel.Min "0"
  87   set windowLevel.ReactiveOnTrack "true"
  88   set windowLevel.Title "Window Level"
  89
  90 new MultipleInputs multLevels
  91
  92 new CheckBoardBox cbb
  93
  94 new Slider sdr
  95   set sdr.In "14"
  96   set sdr.Max "50"
  97   set sdr.ReactiveOnTrack "1"
  98
  99 new Slider sdr2
 100   set sdr2.In "14"
 101   set sdr2.Max "50"
 102   set sdr2.ReactiveOnTrack "1"
 103
 104 new LayoutSplit checkerBoard
 105   set checkerBoard.Proportion "80"
 106
 107 new LayoutLine ly
 108
 109 new ViewerNV viewerCH
 110   set viewerCH.nTypeView "0"
 111
 112 new TransparencyBox trans
 113
 114 new Slider sdrP
 115   set sdrP.In "50"
 116   set sdrP.Max "100"
 117   set sdrP.Min "0"
 118   set sdrP.ReactiveOnTrack "true"
 119
 120 new ViewerNV transView
 121   set transView.nTypeView "0"
 122
 123 new LayoutSplit transparency
 124   set transparency.Proportion "80"
 125
 126 new ImageSwitcherBox switch
 127
 128 new CheckBox checkS
 129   set checkS.In "true"
 130   set checkS.Title "On"
 131
 132 new Slider sdrT
 133   set sdrT.In "500"
 134   set sdrT.Max "1000"
 135   set sdrT.Min "0"
 136   set sdrT.ReactiveOnTrack "True"
 137
 138 new LayoutSplit switchWindow
 139   set switchWindow.Proportion "80"
 140
 141 new MultipleInputs mult
 142
 143 new MultipleInputs mult2
 144
 145 new MultipleInputs mult3
 146
 147 new MultipleInputs mult4
 148
 149 new LayoutTab tabs
 150   set tabs.Orientation V
 151
 152 new LayoutLine tools
 153   set tools.WinTitle "Appearance"
 154
 155 new LayoutSplit convolTools
 156   set convolTools.Orientation "H"
 157   set convolTools.Proportion "80"
 158
 159 new LayoutSplit window2
 160   set window2.Orientation H
 161   set window2.Proportion "25"
 162
 163 new vtkImageDataPointerRelay Box56
 164
 165 new vtkImageDataPointerRelay Box59
 166
 167 new LayoutTab Box61
 168
 169 new LayoutLine Box47
 170   set Box47.Orientation H
 171
 172 new LayoutLine Box48
 173
 174 new ViewerNV Box49
 175   set Box49.nTypeView 0
 176
 177 new ImageVtkProperties Box51
 178
 179 new VectorRescaleSlope Box52
 180   set Box52.A 0.5
 181   set Box52.B 0
 182   set Box52.Type 0
 183
 184 new ConcatStrings Box53
 185
 186 new ConcatStrings Box54
 187
 188 new Slider Box55
 189   set Box55.In 0
 190   set Box55.Label true
 191   set Box55.Max 200
 192   set Box55.Min -200
 193   set Box55.ReactiveOnTrack true
 194   set Box55.Title "Translate Y"
 195
 196 new Slider Box57
 197   set Box57.In 0
 198   set Box57.Label true
 199   set Box57.Max 200
 200   set Box57.Min -200
 201   set Box57.ReactiveOnTrack true
 202   set Box57.Title "translate X"
 203
 204 new ConcatStrings Box58
 205   set Box58.In2 " "
 206   set Box58.In4 " 0"
 207
 208 new GetVectorIntElement Box60
 209   set Box60.I 0
 210
 211 new Add Box62
 212
 213 new Add Box63
 214
 215 new GetVectorIntElement Box64
 216   set Box64.I 1
 217
 218 new ViewerNV Box65
 219   set Box65.nTypeView 0
 220
 221 new ViewerNV Box66
 222   set Box66.nTypeView 0
 223
 224 new LayoutLine Box67
 225   set Box67.Orientation H
 226   set Box67.WinTitle "Parallel"
 227
 228 new MultipleInputs Box68
 229
 230
 231 connect slider.Widget buttonsLayout.Widget1
 232 connect sliderX.Widget buttonsLayout.Widget2
 233 connect sliderY.Widget buttonsLayout.Widget3
 234 connect slider.Out transform.Angle
 235 connect sliderX.Out transform.ScaleX
 236 connect sliderY.Out transform.ScaleY
 237 connect transform.Out reslice1.Transform
 238 connect imgslice2.Out reslice1.In
 239 connect imgslice1.Out convol1.In
 240 connect properties.LengthZ sdrZ.Max
 241 connect sdrZ.Out imgslice1.Z
 242 connect sdrZ.Out imgslice2.Z
 243 connect sdrZ.BoxChange imgslice1.BoxExecute
 244 connect sdrZ.BoxChange imgslice2.BoxExecute
 245 connect sdrF.Out convol1.Factor
 246 connect sdrF.Out convol2.Factor
 247 connect checkF.Out convol1.On
 248 connect checkF.Out convol2.On
 249 connect sdrF.BoxChange multF.In1
 250 connect checkF.BoxChange multF.In2
 251 connect multF.BoxChange convol1.BoxExecute
 252 connect multF.BoxChange convol2.BoxExecute
 253 connect properties.ColorLevel colorLevel.Max
 254 connect properties.MidColorLevel colorLevel.In
 255 connect properties.ColorLevel windowLevel.Max
 256 connect properties.MidColorLevel windowLevel.In
 257 connect colorLevel.BoxChange multLevels.In1
 258 connect windowLevel.BoxChange multLevels.In2
 259 connect convol1.Out cbb.In1
 260 connect convol2.Out cbb.In2
 261 connect colorLevel.Out viewerCH.ColorLevel
 262 connect windowLevel.Out viewerCH.WindowLevel
 263 connect sdr.Out cbb.Cols
 264 connect sdr2.Out cbb.Rows
 265 connect cbb.Out viewerCH.In
 266 connect sdr.Widget ly.Widget2
 267 connect sdr2.Widget ly.Widget3
 268 connect viewerCH.Widget checkerBoard.Widget1
 269 connect ly.Widget checkerBoard.Widget2
 270 connect convol1.Out trans.In1
 271 connect convol2.Out trans.In2
 272 connect sdrP.Out trans.Percent
 273 connect transView.Widget transparency.Widget1
 274 connect sdrP.Widget transparency.Widget2
 275 connect windowLevel.Out transView.WindowLevel
 276 connect convol1.Out switch.In1
 277 connect convol2.Out switch.In2
 278 connect checkS.Out switch.On
 279 connect sdrT.Out switch.Time
 280 connect sdrT.BoxChange switch.BoxExecute
 281 connect slider.BoxChange mult.In1
 282 connect sliderX.BoxChange mult.In2
 283 connect sliderY.BoxChange mult.In3
 284 connect multF.BoxChange mult2.In1
 285 connect mult.BoxChange mult2.In2
 286 connect ly.BoxChange mult3.In1
 287 connect mult2.BoxChange mult3.In2
 288 connect imgslice1.BoxChange mult3.In3
 289 connect imgslice2.BoxChange mult3.In4
 290 connect multLevels.BoxChange mult3.In5
 291 connect mult3.BoxChange cbb.BoxExecute
 292 connect cbb.BoxChange viewerCH.BoxExecute
 293 connect mult2.BoxChange mult4.In1
 294 connect sdrP.BoxChange mult4.In2
 295 connect mult4.BoxChange trans.BoxExecute
 296 connect trans.BoxChange transView.BoxExecute
 297 connect colorLevel.Widget tools.Widget2
 298 connect windowLevel.Widget tools.Widget3
 299 connect checkF.Widget convolTools.Widget2
 300 connect convolTools.Widget tools.Widget4
 301 connect Box56.Out imgslice2.In
 302 connect Box59.Out imgslice1.In
 303 connect Box59.Out properties.In
 304 connect sdrF.Widget convolTools.Widget1
 305 connect sdrZ.Widget tools.Widget1
 306 connect transparency.Widget tabs.Widget2
 307 connect checkS.Widget Box47.Widget2
 308 connect switch.Widget Box47.Widget1
 309 connect sdrT.Widget Box48.Widget2
 310 connect Box47.Widget Box48.Widget1
 311 connect Box48.Widget switchWindow.Widget2
 312 connect switchWindow.Widget tabs.Widget1
 313 connect checkerBoard.Widget tabs.Widget3
 314 connect reslice1.Out convol2.In
 315 connect trans.Out transView.In
 316 connect Box49.Widget switchWindow.Widget1
 317 connect switch.Out Box49.In
 318 connect switch.BoxChange Box49.BoxExecute
 319 connect imgslice2.Out Box51.In
 320 connect Box51.Size Box53.In1
 321 connect Box53.Out Box52.In
 322 connect Box52.Out Box54.In1
 323 connect Box60.Out Box62.In1
 324 connect Box57.Out Box62.In2
 325 connect Box62.Out Box58.In1
 326 connect Box64.Out Box63.In1
 327 connect Box55.Out Box63.In2
 328 connect Box63.Out Box58.In3
 329 connect Box57.Widget buttonsLayout.Widget4
 330 connect Box55.Widget buttonsLayout.Widget5
 331 connect Box57.BoxChange mult.In4
 332 connect Box55.BoxChange mult.In5
 333 connect Box58.Out transform.CenterPoint
 334 connect Box54.Out reslice1.Origin
 335 connect Box54.Out Box64.In
 336 connect Box54.Out Box60.In
 337 connect Box61.Widget window2.Widget1
 338 connect tabs.Widget window2.Widget2
 339 connect tools.Widget Box61.Widget1
 340 connect buttonsLayout.Widget Box61.Widget2
 341 connect Box66.Widget Box67.Widget2
 342 connect Box65.Widget Box67.Widget1
 343 connect Box67.Widget tabs.Widget4
 344 connect convol1.Out Box66.In
 345 connect convol2.Out Box65.In
 346 connect mult3.BoxChange Box68.In1
 347 connect Box68.BoxChange Box66.BoxExecute
 348 connect Box68.BoxChange Box65.BoxExecute
 349 connect mult4.BoxChange Box68.In2
 350
 351
 352 # Complex input ports
 353 input In2 Box59.In " "
 354 input In1 Box56.In " "
 355 input WinTitle window2.WinTitle " "
 356
 357 # Complex output ports
 358 output Widget window2.Widget " "
 359
 360 endefine