bbtk_package_creaMiniTools/bbs/appli/registration2DExample.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script
   3 # - /home/pechan/Documents/courses/development/creatis/dev/src/creaMiniTools/examples/bbg/registration/registration2DExample.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include creaMaracasVisu
  12 include wx
  13 include PackRegistration
  14 include std
  15 include vtk
  16 include wxvtk
  17 include creaImageIO
  18
  19 author "Author ??"
  20 description "Description ??"
  21 category "<VOID>"
  22
  23 new SliceImage imgslice1
  24
  25 new SliceImage imgslice2
  26
  27 new LayoutLine v1Layout
  28
  29 new ViewerNV viewer1
  30   set viewer1.nTypeView "0"
  31
  32 new LayoutLine v2Layout
  33
  34 new ViewerNV viewer2
  35   set viewer2.nTypeView "0"
  36
  37 new LayoutSplit initialImages
  38   set initialImages.Orientation "H"
  39   set initialImages.Proportion "50"
  40
  41 new LayoutLine buttonsLayout
  42   set buttonsLayout.Orientation "V"
  43
  44 new Slider slider
  45   set slider.In "0"
  46   set slider.Max "180"
  47   set slider.Min "-180"
  48   set slider.ReactiveOnTrack "1"
  49   set slider.Title "Angle"
  50
  51 new Slider sliderX
  52   set sliderX.In "100"
  53   set sliderX.Max "500"
  54   set sliderX.Min "10"
  55   set sliderX.ReactiveOnTrack "1"
  56   set sliderX.Title "% Scale in X"
  57
  58 new Slider sliderY
  59   set sliderY.In "100"
  60   set sliderY.Max "500"
  61   set sliderY.Min "10"
  62   set sliderY.ReactiveOnTrack "1"
  63   set sliderY.Title "% Scale in Y"
  64
  65 new Transform2DBox transform
  66
  67 new ReSlicerBox reslice1
  68
  69 new ImageConvolution convol1
  70
  71 new ImageConvolution convol2
  72
  73 new ImageRegistrationProperties properties
  74
  75 new Slider sdrZ
  76   set sdrZ.Min "0"
  77   set sdrZ.ReactiveOnTrack "1"
  78   set sdrZ.Title "Z for slice"
  79
  80 new Slider sdrF
  81   set sdrF.In "0"
  82   set sdrF.Max "100"
  83   set sdrF.Min "0"
  84   set sdrF.ReactiveOnTrack "1"
  85   set sdrF.Title "Convolution Factor"
  86
  87 new CheckBox checkF
  88   set checkF.In "True"
  89
  90 new MultipleInputs multF
  91
  92 new Slider colorLevel
  93   set colorLevel.Min "0"
  94   set colorLevel.ReactiveOnTrack "true"
  95   set colorLevel.Title "Color Level"
  96
  97 new Slider windowLevel
  98   set windowLevel.Min "0"
  99   set windowLevel.ReactiveOnTrack "true"
 100   set windowLevel.Title "Window Level"
 101
 102 new MultipleInputs multLevels
 103
 104 new CommandButton saveBut
 105   set saveBut.Label "Save Image"
 106
 107 new FileSelector fileSave
 108   set fileSave.OpenSave "Save"
 109   set fileSave.Wildcard "*.mhd"
 110
 111 new MetaImageWriter writSave
 112
 113 new CheckBoardBox cbb
 114
 115 new Slider sdr
 116   set sdr.In "14"
 117   set sdr.Max "50"
 118   set sdr.ReactiveOnTrack "1"
 119
 120 new Slider sdr2
 121   set sdr2.In "14"
 122   set sdr2.Max "50"
 123   set sdr2.ReactiveOnTrack "1"
 124
 125 new LayoutSplit checkerBoard
 126   set checkerBoard.Proportion "80"
 127
 128 new LayoutLine ly
 129
 130 new ViewerNV viewerCH
 131   set viewerCH.nTypeView "0"
 132
 133 new TransparencyBox trans
 134
 135 new Slider sdrP
 136   set sdrP.In "50"
 137   set sdrP.Max "100"
 138   set sdrP.Min "0"
 139   set sdrP.ReactiveOnTrack "true"
 140
 141 new ViewerNV transView
 142   set transView.nTypeView "0"
 143
 144 new LayoutSplit transparency
 145   set transparency.Proportion "80"
 146
 147 new ImageSwitcherBox switch
 148
 149 new CheckBox checkS
 150   set checkS.In "true"
 151   set checkS.Title "On"
 152
 153 new Slider sdrT
 154   set sdrT.In "500"
 155   set sdrT.Max "1000"
 156   set sdrT.Min "0"
 157   set sdrT.ReactiveOnTrack "True"
 158
 159 new Viewer2D viewerSwitch
 160
 161 new LayoutSplit switcher
 162   set switcher.Proportion "70"
 163
 164 new LayoutSplit switchWindow
 165   set switchWindow.Proportion "80"
 166
 167 new LayoutSplit switchTool
 168   set switchTool.Orientation "H"
 169   set switchTool.Proportion "50"
 170
 171 new MultipleInputs mult
 172
 173 new MultipleInputs mult2
 174
 175 new MultipleInputs mult3
 176
 177 new MultipleInputs mult4
 178
 179 new LayoutTab tabs
 180
 181 new LayoutLine tools
 182
 183 new LayoutSplit convolTools
 184   set convolTools.Orientation "H"
 185   set convolTools.Proportion "80"
 186
 187 new LayoutSplit window1
 188   set window1.Orientation "V"
 189   set window1.Proportion "80"
 190   set window1.WinWidth "600"
 191
 192 new LayoutSplit window2
 193   set window2.Proportion "90"
 194
 195 new LayoutSplit main
 196   set main.Orientation "H"
 197   set main.Proportion "50"
 198   set main.WinWidth "1200"
 199
 200 new ImagesChooserDialogBox Box55
 201
 202 new ImagesChooserDialogBox Box56
 203
 204
 205 connect viewer1.Widget v1Layout.Widget1
 206 connect viewer2.Widget v2Layout.Widget1
 207 connect v1Layout.Widget initialImages.Widget1
 208 connect v2Layout.Widget initialImages.Widget2
 209 connect slider.Widget buttonsLayout.Widget1
 210 connect sliderX.Widget buttonsLayout.Widget2
 211 connect sliderY.Widget buttonsLayout.Widget3
 212 connect viewer2.Point transform.CenterPoint
 213 connect slider.Out transform.Angle
 214 connect sliderX.Out transform.ScaleX
 215 connect sliderY.Out transform.ScaleY
 216 connect viewer1.Point reslice1.Origin
 217 connect transform.Out reslice1.Transform
 218 connect imgslice2.Out reslice1.In
 219 connect imgslice1.Out convol1.In
 220 connect reslice1.Out convol2.In
 221 connect properties.LengthZ sdrZ.Max
 222 connect sdrZ.Out imgslice1.Z
 223 connect sdrZ.Out imgslice2.Z
 224 connect sdrZ.BoxChange imgslice1.BoxExecute
 225 connect sdrZ.BoxChange imgslice2.BoxExecute
 226 connect sdrF.Out convol1.Factor
 227 connect sdrF.Out convol2.Factor
 228 connect checkF.Out convol1.On
 229 connect checkF.Out convol2.On
 230 connect sdrF.BoxChange multF.In1
 231 connect checkF.BoxChange multF.In2
 232 connect multF.BoxChange convol1.BoxExecute
 233 connect multF.BoxChange convol2.BoxExecute
 234 connect properties.ColorLevel colorLevel.Max
 235 connect properties.MidColorLevel colorLevel.In
 236 connect properties.ColorLevel windowLevel.Max
 237 connect properties.MidColorLevel windowLevel.In
 238 connect colorLevel.Out viewer1.ColorLevel
 239 connect colorLevel.Out viewer2.ColorLevel
 240 connect windowLevel.Out viewer1.WindowLevel
 241 connect windowLevel.Out viewer2.WindowLevel
 242 connect colorLevel.BoxChange multLevels.In1
 243 connect windowLevel.BoxChange multLevels.In2
 244 connect multLevels.BoxChange viewer1.BoxExecute
 245 connect multLevels.BoxChange viewer2.BoxExecute
 246 connect reslice1.Out writSave.In
 247 connect fileSave.Out writSave.Filename
 248 connect saveBut.BoxChange fileSave.BoxExecute
 249 connect fileSave.BoxChange writSave.BoxExecute
 250 connect convol1.Out cbb.In1
 251 connect convol2.Out cbb.In2
 252 connect colorLevel.Out viewerCH.ColorLevel
 253 connect windowLevel.Out viewerCH.WindowLevel
 254 connect sdr.Out cbb.Cols
 255 connect sdr2.Out cbb.Rows
 256 connect cbb.Out viewerCH.In
 257 connect sdr.Widget ly.Widget2
 258 connect sdr2.Widget ly.Widget3
 259 connect viewerCH.Widget checkerBoard.Widget1
 260 connect ly.Widget checkerBoard.Widget2
 261 connect convol1.Out trans.In1
 262 connect convol2.Out trans.In2
 263 connect sdrP.Out trans.Percent
 264 connect trans.Out transView.In
 265 connect transView.Widget transparency.Widget1
 266 connect sdrP.Widget transparency.Widget2
 267 connect colorLevel.Out transView.ColorLevel
 268 connect windowLevel.Out transView.WindowLevel
 269 connect convol1.Out switch.In1
 270 connect convol2.Out switch.In2
 271 connect checkS.Out switch.On
 272 connect sdrT.Out switch.Time
 273 connect switch.Out viewerSwitch.In
 274 connect sdrT.BoxChange switch.BoxExecute
 275 connect switch.BoxChange viewerSwitch.BoxExecute
 276 connect viewerSwitch.Widget switchWindow.Widget1
 277 connect switch.Widget switchTool.Widget1
 278 connect checkS.Widget switchTool.Widget2
 279 connect switchTool.Widget switchWindow.Widget2
 280 connect switchWindow.Widget switcher.Widget1
 281 connect sdrT.Widget switcher.Widget2
 282 connect slider.BoxChange mult.In1
 283 connect sliderX.BoxChange mult.In2
 284 connect sliderY.BoxChange mult.In3
 285 connect viewer1.BoxChange mult.In4
 286 connect viewer2.BoxChange mult.In5
 287 connect multF.BoxChange mult2.In1
 288 connect mult.BoxChange mult2.In2
 289 connect ly.BoxChange mult3.In1
 290 connect mult2.BoxChange mult3.In2
 291 connect imgslice1.BoxChange mult3.In3
 292 connect imgslice2.BoxChange mult3.In4
 293 connect multLevels.BoxChange mult3.In5
 294 connect mult3.BoxChange cbb.BoxExecute
 295 connect cbb.BoxChange viewerCH.BoxExecute
 296 connect mult2.BoxChange mult4.In1
 297 connect sdrP.BoxChange mult4.In2
 298 connect mult4.BoxChange trans.BoxExecute
 299 connect trans.BoxChange transView.BoxExecute
 300 connect switcher.Widget tabs.Widget1
 301 connect checkerBoard.Widget tabs.Widget2
 302 connect transparency.Widget tabs.Widget3
 303 connect sdrZ.Widget tools.Widget1
 304 connect colorLevel.Widget tools.Widget2
 305 connect windowLevel.Widget tools.Widget3
 306 connect saveBut.Widget tools.Widget5
 307 connect sdrF.Widget convolTools.Widget1
 308 connect checkF.Widget convolTools.Widget2
 309 connect convolTools.Widget tools.Widget4
 310 connect initialImages.Widget window1.Widget1
 311 connect buttonsLayout.Widget window1.Widget2
 312 connect tabs.Widget window2.Widget1
 313 connect tools.Widget window2.Widget2
 314 connect window1.Widget main.Widget1
 315 connect window2.Widget main.Widget2
 316 connect Box55.Out imgslice2.In
 317 connect Box55.Out viewer2.In
 318 connect Box56.Out imgslice1.In
 319 connect Box56.Out viewer1.In
 320 connect Box56.Out properties.In
 321 connect Box56.BoxChange properties.BoxExecute
 322
 323 exec main