PackRecalage/bbs/appli/Recalage2D.bbs

   1 load wx
   2 load std
   3 load vtk
   4 load wxvtk
   5 load creaMaracasVisu
   6
   7 load PackRecalage
   8
   9 //include PackRecalage/boxes/checkerView
  10
  11 new FileSelector imageSelector1
  12   set imageSelector1.Wildcard "*.mhd"
  13 new FileSelector imageSelector2
  14   set imageSelector2.Wildcard "*.mhd"
  15
  16 new MetaImageReader image
  17   connect imageSelector1.Out image.In
  18
  19 new MetaImageReader image2
  20   connect imageSelector2.Out image2.In
  21
  22 #Viewer containing image 1
  23
  24 new LayoutLine v1Layout
  25 new ViewerNV viewer1
  26   connect image.Out viewer1.In
  27   set viewer1.nTypeView "0"
  28   connect viewer1.Widget v1Layout.Widget1
  29
  30 #Viewer containing image 2
  31
  32 new LayoutLine v2Layout
  33 new ViewerNV viewer2
  34   connect image2.Out viewer2.In
  35   set viewer2.nTypeView "0"
  36   connect viewer2.Widget v2Layout.Widget1
  37
  38 #LayoutSplit were the images will be
  39
  40 new LayoutSplit initialImages
  41   set initialImages.Proportion "50"
  42   set initialImages.Orientation H
  43   connect v1Layout.Widget initialImages.Widget1
  44   connect v2Layout.Widget initialImages.Widget2
  45
  46 #Layout line that will contain the buttons
  47
  48 new LayoutLine buttonsLayout
  49   set buttonsLayout.Orientation V
  50
  51 #Slider were the angle will be entered
  52
  53 new Slider slider
  54   set slider.Title "Angle"
  55   set slider.In 0
  56   set slider.Min -180
  57   set slider.Max 180
  58   set slider.ReactiveOnTrack "1"
  59   connect slider.Widget buttonsLayout.Widget1
  60
  61 #Slider were the xScale will be entered
  62
  63 new Slider sliderX
  64   set sliderX.Title "% Scale in X"
  65   set sliderX.In 100
  66   set sliderX.Min 10
  67   set sliderX.Max 500
  68   set sliderX.ReactiveOnTrack "1"
  69   connect sliderX.Widget buttonsLayout.Widget2
  70
  71 #Slider were the yScale will be entered
  72
  73 new Slider sliderY
  74   set sliderY.Title "% Scale in Y"
  75   set sliderY.In 100
  76   set sliderY.Min 10
  77   set sliderY.Max 500
  78   set sliderY.ReactiveOnTrack "1"
  79   connect sliderY.Widget buttonsLayout.Widget3
  80
  81 # Create the reslicers
  82
  83 new SliceImage imgslice1
  84 new SliceImage imgslice2
  85   connect image.Out imgslice1.In
  86   connect image2.Out imgslice2.In
  87
  88 #Box were the transformation will be made
  89
  90 new Transform2DBox transform
  91   connect viewer2.Point transform.CenterPoint
  92   connect slider.Out transform.Angle
  93   connect sliderX.Out transform.ScaleX
  94   connect sliderY.Out transform.ScaleY
  95
  96 new ReSlicerBox reslice1
  97   connect viewer1.Point reslice1.Origin
  98   connect transform.Out reslice1.Transform
  99   connect imgslice2.Out reslice1.In
 100
 101 #Convolution Filter for both of the Images
 102
 103 new ImageConvolution convol1
 104   connect imgslice1.Out convol1.In
 105 new ImageConvolution convol2
 106   connect reslice1.Out convol2.In
 107
 108 #Image Properties
 109
 110 new ImageRecalageProperties properties
 111   connect image.Out properties.In
 112   connect image.BoxChange properties.BoxExecute
 113
 114 # Create the ZSlider for the slices
 115
 116 new Slider sdrZ
 117   set sdrZ.ReactiveOnTrack 1
 118   set sdrZ.Min 0
 119   connect properties.LengthZ sdrZ.Max
 120   set sdrZ.Title "Z for slice"
 121
 122   connect sdrZ.Out imgslice1.Z
 123   connect sdrZ.Out imgslice2.Z
 124   connect sdrZ.BoxChange imgslice1.BoxExecute
 125   connect sdrZ.BoxChange imgslice2.BoxExecute
 126
 127 #Create slider for Convolution Factor
 128
 129 new Slider sdrF
 130   set sdrF.ReactiveOnTrack 1
 131   set sdrF.Max "100"
 132   set sdrF.Min "0"
 133   set sdrF.In "50"
 134   set sdrF.Title "Convolution Factor"
 135
 136   connect sdrF.Out convol1.Factor
 137   connect sdrF.Out convol2.Factor
 138
 139 #Create CheckBox for Convolution Filter On/Off
 140
 141 new CheckBox checkF
 142   set checkF.In "True"
 143
 144   connect checkF.Out convol1.On
 145   connect checkF.Out convol2.On
 146
 147 new MultipleInputs multF
 148   connect sdrF.BoxChange multF.In1
 149   connect checkF.BoxChange multF.In2
 150
 151   connect multF.BoxChange convol1.BoxExecute
 152   connect multF.BoxChange convol2.BoxExecute
 153
 154 #Create Sliders for WinLevel and ColorLevel
 155
 156 new Slider colorLevel
 157   set colorLevel.Min "0"
 158   connect properties.ColorLevel colorLevel.Max
 159   connect properties.MidColorLevel colorLevel.In
 160   set colorLevel.ReactiveOnTrack true
 161   set colorLevel.Title "Color Level"
 162
 163 new Slider windowLevel
 164   set windowLevel.Min "0"
 165   connect properties.ColorLevel windowLevel.Max
 166   connect properties.MidColorLevel windowLevel.In
 167   set windowLevel.ReactiveOnTrack true
 168   set windowLevel.Title "Window Level"
 169
 170 # Connection to viewers
 171
 172   connect colorLevel.Out viewer1.ColorLevel
 173   connect colorLevel.Out viewer2.ColorLevel
 174
 175   connect windowLevel.Out viewer1.WindowLevel
 176   connect windowLevel.Out viewer2.WindowLevel
 177
 178 new MultipleInputs multLevels
 179   connect colorLevel.BoxChange multLevels.In1
 180   connect windowLevel.BoxChange multLevels.In2
 181
 182   connect multLevels.BoxChange viewer1.BoxExecute
 183   connect multLevels.BoxChange viewer2.BoxExecute
 184
 185 # Button for saving
 186
 187 new CommandButton saveBut
 188   set saveBut.Label "Save Image"
 189
 190 new FileSelector fileSave
 191   set fileSave.OpenSave "Save"
 192   set fileSave.Wildcard "*.mhd"
 193
 194 new MetaImageWriter writSave
 195   connect reslice1.Out writSave.In
 196   connect fileSave.Out writSave.Filename
 197
 198   connect saveBut.BoxChange fileSave.BoxExecute
 199   connect fileSave.BoxChange writSave.BoxExecute
 200
 201 ////////////////////Checkboard/////////////////////////
 202 # Create the visulization box for checkerBoard
 203 new CheckBoardBox cbb
 204   connect convol1.Out cbb.In1
 205   connect convol2.Out cbb.In2
 206
 207 # Create the slider1
 208 new Slider sdr
 209   set sdr.ReactiveOnTrack 1
 210   set sdr.Max 50
 211   set sdr.In 14
 212
 213 # Create the slider2
 214 new Slider sdr2
 215   set sdr2.ReactiveOnTrack 1
 216   set sdr2.Max 50
 217   set sdr2.In 14
 218
 219 # Create viewer & layout for Checkerboard
 220 new LayoutSplit checkerBoard
 221 new LayoutLine ly
 222 new ViewerNV viewerCH
 223   set viewerCH.nTypeView "0"
 224   set checkerBoard.Proportion 80
 225
 226 #Connecting levels
 227
 228   connect colorLevel.Out viewerCH.ColorLevel
 229   connect windowLevel.Out viewerCH.WindowLevel
 230
 231 # Graphical pipeline for CheckBoard
 232   connect sdr.Out cbb.Cols
 233   connect sdr2.Out cbb.Rows
 234   connect cbb.Out viewerCH.In
 235
 236   connect sdr.Widget ly.Widget2
 237   connect sdr2.Widget ly.Widget3
 238
 239   connect viewerCH.Widget checkerBoard.Widget1
 240   connect ly.Widget checkerBoard.Widget2
 241 /////////////end of Checkboard////////////////////
 242
 243 /*
 244 new checkerView checkerboard
 245
 246   connect convol1.Out checkerboard.In1
 247   connect convol2.Out checkerboard.In2
 248
 249   connect colorLevel.Out checkerboard.ColorLevel
 250   connect windowLevel.Out checkerboard.WindowLevel
 251 */
 252 //////////////Transparency///////////////////////////
 253 #Image Transparency view
 254
 255 new TransparencyV2 trans
 256   connect convol1.Out trans.In1
 257   connect convol2.Out trans.In2
 258
 259 new Slider sdrP
 260   set sdrP.Max "100"
 261   set sdrP.Min "0"
 262   set sdrP.In "50"
 263   set sdrP.ReactiveOnTrack true
 264
 265   connect sdrP.Out trans.Percent
 266
 267 new ViewerNV transView
 268   connect trans.Out transView.In
 269   set transView.nTypeView "0"
 270
 271 new LayoutSplit transparency
 272   connect transView.Widget transparency.Widget1
 273   connect sdrP.Widget transparency.Widget2
 274   set transparency.Proportion 80
 275
 276   connect colorLevel.Out transView.ColorLevel
 277   connect windowLevel.Out transView.WindowLevel
 278 ///////////////////end of Transparency////////////////
 279
 280
 281 /////////////////Image Switcher//////////////////////
 282
 283 new ImageSwitcherBox switch
 284   connect convol1.Out switch.In1
 285   connect convol2.Out switch.In2
 286
 287 new CheckBox checkS
 288   connect checkS.Out switch.On
 289   set checkS.Title "On"
 290   set checkS.In "true"
 291
 292 new Slider sdrT
 293   set sdrT.Max "1000"
 294   set sdrT.Min "0"
 295   set sdrT.In "500"
 296   set sdrT.ReactiveOnTrack "True"
 297
 298 connect sdrT.Out switch.Time
 299
 300 new Viewer2D viewerSwitch
 301   connect switch.Out viewerSwitch.In
 302
 303   connect sdrT.BoxChange switch.BoxExecute
 304   connect switch.BoxChange viewerSwitch.BoxExecute
 305
 306 new LayoutSplit switcher
 307   set switcher.Proportion "70"
 308
 309 new LayoutSplit switchWindow
 310   set switchWindow.Proportion "80"
 311   connect viewerSwitch.Widget switchWindow.Widget1
 312
 313 new LayoutSplit switchTool
 314   set switchTool.Orientation H
 315   set switchTool.Proportion "50"
 316   connect switch.Widget switchTool.Widget1
 317   connect checkS.Widget switchTool.Widget2
 318
 319   connect switchTool.Widget switchWindow.Widget2
 320
 321   connect switchWindow.Widget switcher.Widget1
 322   connect sdrT.Widget switcher.Widget2
 323
 324 //////////////end of Image Switch///////////////////
 325
 326 #Multiple inputs for managing the interaction
 327
 328 new MultipleInputs mult
 329   connect slider.BoxChange mult.In1
 330   connect sliderX.BoxChange mult.In2
 331   connect sliderY.BoxChange mult.In3
 332   connect viewer1.BoxChange mult.In4
 333   connect viewer2.BoxChange mult.In5
 334
 335 new MultipleInputs mult2
 336   connect multF.BoxChange mult2.In1
 337   connect mult.BoxChange mult2.In2
 338
 339 # Execution pipeline for checkboard
 340
 341 new MultipleInputs mult3
 342   connect ly.BoxChange mult3.In1
 343   connect mult2.BoxChange mult3.In2
 344   connect imgslice1.BoxChange mult3.In3
 345   connect imgslice2.BoxChange mult3.In4
 346   connect multLevels.BoxChange mult3.In5
 347
 348   connect mult3.BoxChange cbb.BoxExecute
 349   connect cbb.BoxChange viewerCH.BoxExecute
 350
 351 #Execution pipeline for Transparency
 352
 353 new MultipleInputs mult4
 354   connect mult2.BoxChange mult4.In1
 355   connect sdrP.BoxChange mult4.In2
 356
 357   connect mult4.BoxChange trans.BoxExecute
 358   connect trans.BoxChange transView.BoxExecute
 359
 360 ///////////////////////////////////////////////////////////////
 361
 362 #Layout for the tabs
 363
 364 new LayoutTab tabs
 365   connect checkerBoard.Widget tabs.Widget1
 366   connect transparency.Widget tabs.Widget2
 367   connect switcher.Widget tabs.Widget3
 368
 369 #Layout where the images and the buttons will be displayed
 370
 371 new LayoutLine tools
 372   connect sdrZ.Widget tools.Widget1
 373   connect colorLevel.Widget tools.Widget2
 374   connect windowLevel.Widget tools.Widget3
 375   connect saveBut.Widget tools.Widget5
 376
 377 new LayoutSplit convolTools
 378   set convolTools.Orientation H
 379   set convolTools.Proportion "80"
 380   connect sdrF.Widget convolTools.Widget1
 381   connect checkF.Widget convolTools.Widget2
 382
 383   connect convolTools.Widget tools.Widget4
 384
 385 new LayoutSplit window1
 386   set window1.WinWidth "600"
 387   set window1.Proportion "80"
 388   set window1.Orientation V
 389   connect initialImages.Widget window1.Widget1
 390   connect buttonsLayout.Widget window1.Widget2
 391
 392 new LayoutSplit window2
 393  connect tabs.Widget window2.Widget1
 394  connect tools.Widget window2.Widget2
 395  set window2.Proportion "90"
 396
 397 new LayoutSplit main
 398   set main.WinWidth "1200"
 399   set main.Proportion "50"
 400   set main.Orientation H
 401   connect window1.Widget main.Widget1
 402   connect window2.Widget main.Widget2
 403
 404 exec main
 405