PackRecalage/bbs/appli/Recalage2D.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script
   3 # - /Users/davila/Creatis/All5/creatools_source/creaRigidRegistration/PackRecalage/bbs/appli/Recalage2D.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include vtk
  12 include wx
  13 include creaMaracasVisu
  14 include PackRecalage
  15 include std
  16 include wxvtk
  17 include creaImageIO
  18
  19 author "info-dev@creatis.insa-lyon.fr"
  20 description "creatisRecalage"
  21 category "example"
  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 ImageRecalageProperties 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 vtkImageDataPointerRelay Box56
 201
 202 new ImagesChooserDialogBox Box57
 203
 204 new ImagesChooserDialogBox Box58
 205
 206 new vtkImageDataPointerRelay Box59
 207
 208
 209 connect viewer1.Widget v1Layout.Widget1
 210 connect viewer2.Widget v2Layout.Widget1
 211 connect v1Layout.Widget initialImages.Widget1
 212 connect v2Layout.Widget initialImages.Widget2
 213 connect slider.Widget buttonsLayout.Widget1
 214 connect sliderX.Widget buttonsLayout.Widget2
 215 connect sliderY.Widget buttonsLayout.Widget3
 216 connect viewer2.Point transform.CenterPoint
 217 connect slider.Out transform.Angle
 218 connect sliderX.Out transform.ScaleX
 219 connect sliderY.Out transform.ScaleY
 220 connect viewer1.Point reslice1.Origin
 221 connect transform.Out reslice1.Transform
 222 connect imgslice2.Out reslice1.In
 223 connect imgslice1.Out convol1.In
 224 connect reslice1.Out convol2.In
 225 connect properties.LengthZ sdrZ.Max
 226 connect sdrZ.Out imgslice1.Z
 227 connect sdrZ.Out imgslice2.Z
 228 connect sdrZ.BoxChange imgslice1.BoxExecute
 229 connect sdrZ.BoxChange imgslice2.BoxExecute
 230 connect sdrF.Out convol1.Factor
 231 connect sdrF.Out convol2.Factor
 232 connect checkF.Out convol1.On
 233 connect checkF.Out convol2.On
 234 connect sdrF.BoxChange multF.In1
 235 connect checkF.BoxChange multF.In2
 236 connect multF.BoxChange convol1.BoxExecute
 237 connect multF.BoxChange convol2.BoxExecute
 238 connect properties.ColorLevel colorLevel.Max
 239 connect properties.MidColorLevel colorLevel.In
 240 connect properties.ColorLevel windowLevel.Max
 241 connect properties.MidColorLevel windowLevel.In
 242 connect colorLevel.Out viewer1.ColorLevel
 243 connect colorLevel.Out viewer2.ColorLevel
 244 connect windowLevel.Out viewer1.WindowLevel
 245 connect windowLevel.Out viewer2.WindowLevel
 246 connect colorLevel.BoxChange multLevels.In1
 247 connect windowLevel.BoxChange multLevels.In2
 248 connect multLevels.BoxChange viewer1.BoxExecute
 249 connect multLevels.BoxChange viewer2.BoxExecute
 250 connect reslice1.Out writSave.In
 251 connect fileSave.Out writSave.Filename
 252 connect saveBut.BoxChange fileSave.BoxExecute
 253 connect fileSave.BoxChange writSave.BoxExecute
 254 connect convol1.Out cbb.In1
 255 connect convol2.Out cbb.In2
 256 connect colorLevel.Out viewerCH.ColorLevel
 257 connect windowLevel.Out viewerCH.WindowLevel
 258 connect sdr.Out cbb.Cols
 259 connect sdr2.Out cbb.Rows
 260 connect cbb.Out viewerCH.In
 261 connect sdr.Widget ly.Widget2
 262 connect sdr2.Widget ly.Widget3
 263 connect viewerCH.Widget checkerBoard.Widget1
 264 connect ly.Widget checkerBoard.Widget2
 265 connect convol1.Out trans.In1
 266 connect convol2.Out trans.In2
 267 connect sdrP.Out trans.Percent
 268 connect trans.Out transView.In
 269 connect transView.Widget transparency.Widget1
 270 connect sdrP.Widget transparency.Widget2
 271 connect colorLevel.Out transView.ColorLevel
 272 connect windowLevel.Out transView.WindowLevel
 273 connect convol1.Out switch.In1
 274 connect convol2.Out switch.In2
 275 connect checkS.Out switch.On
 276 connect sdrT.Out switch.Time
 277 connect switch.Out viewerSwitch.In
 278 connect sdrT.BoxChange switch.BoxExecute
 279 connect switch.BoxChange viewerSwitch.BoxExecute
 280 connect viewerSwitch.Widget switchWindow.Widget1
 281 connect switch.Widget switchTool.Widget1
 282 connect checkS.Widget switchTool.Widget2
 283 connect switchTool.Widget switchWindow.Widget2
 284 connect switchWindow.Widget switcher.Widget1
 285 connect sdrT.Widget switcher.Widget2
 286 connect slider.BoxChange mult.In1
 287 connect sliderX.BoxChange mult.In2
 288 connect sliderY.BoxChange mult.In3
 289 connect viewer1.BoxChange mult.In4
 290 connect viewer2.BoxChange mult.In5
 291 connect multF.BoxChange mult2.In1
 292 connect mult.BoxChange mult2.In2
 293 connect ly.BoxChange mult3.In1
 294 connect mult2.BoxChange mult3.In2
 295 connect imgslice1.BoxChange mult3.In3
 296 connect imgslice2.BoxChange mult3.In4
 297 connect multLevels.BoxChange mult3.In5
 298 connect mult3.BoxChange cbb.BoxExecute
 299 connect cbb.BoxChange viewerCH.BoxExecute
 300 connect mult2.BoxChange mult4.In1
 301 connect sdrP.BoxChange mult4.In2
 302 connect mult4.BoxChange trans.BoxExecute
 303 connect trans.BoxChange transView.BoxExecute
 304 connect switcher.Widget tabs.Widget1
 305 connect checkerBoard.Widget tabs.Widget2
 306 connect transparency.Widget tabs.Widget3
 307 connect sdrZ.Widget tools.Widget1
 308 connect colorLevel.Widget tools.Widget2
 309 connect windowLevel.Widget tools.Widget3
 310 connect saveBut.Widget tools.Widget5
 311 connect sdrF.Widget convolTools.Widget1
 312 connect checkF.Widget convolTools.Widget2
 313 connect convolTools.Widget tools.Widget4
 314 connect initialImages.Widget window1.Widget1
 315 connect buttonsLayout.Widget window1.Widget2
 316 connect tabs.Widget window2.Widget1
 317 connect tools.Widget window2.Widget2
 318 connect window1.Widget main.Widget1
 319 connect window2.Widget main.Widget2
 320 connect Box56.Out imgslice2.In
 321 connect Box56.Out viewer2.In
 322 connect Box57.Out Box56.In
 323 connect Box58.Out Box59.In
 324 connect Box59.Out imgslice1.In
 325 connect Box59.Out viewer1.In
 326 connect Box59.Out properties.In
 327 connect Box58.BoxChange properties.BoxExecute
 328
 329 exec main