appli/template_creaPatientsSystem/scripts/00400_Correction.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/00400_Correction.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include creaMaracasVisu
  12 include wx
  13 include vtk
  14 include creaVtk
  15 include std
  16 include creaMiniTools
  17
  18 author "Author ??"
  19 description "Description ??"
  20 category "<VOID>"
  21
  22 new creaMaracasVisu:ManualPaint2 Box00
  23   set Box00.Active_ManualPaint_Model "false         true       true      true"
  24   set Box00.GrayLevel_ManualPaint_Model "-1             128    128       50"
  25   set Box00.MaxRange_ManualPaint_Model "-1             50000    50000     50000"
  26   set Box00.MinRange_ManualPaint_Model "-1              9000       9000      9000"
  27   set Box00.SizeDistance_ManualPaint_Model "-1                15            4         4"
  28   set Box00.TitleOptions "Desactivate Big    Small    Clean"
  29   set Box00.Tolerance_Fill_ManualPaint_Model "-1                10000   10000    10000"
  30   set Box00.colorBarPosition "-100 -100"
  31
  32 new creaMaracasVisu:ViewerNV Box02
  33
  34 new wx:LayoutSplit Box03
  35   set Box03.Orientation "H"
  36
  37 new vtk:vtkImageDataPointerRelay Box05
  38
  39 new creaVtk:OutputWindow Box08
  40
  41 new wx:LayoutLine Box09
  42   set Box09.WinTitle "00400_Correction.bbs"
  43
  44 new vtk:MarchingCubes Box13
  45   set Box13.Value "128"
  46
  47 new vtk:PolyDataToActor Box14
  48   set Box14.Colour "1 1 1"
  49
  50 new wx:Slider Box15
  51   set Box15.In "100"
  52   set Box15.Label "true"
  53   set Box15.Max "100"
  54   set Box15.ReactiveOnTrack "true"
  55   set Box15.Title "Opacity 3D "
  56
  57 new wx:LayoutLine Box17
  58
  59 new std:Div Box18
  60   set Box18.In2 "100"
  61
  62 new std:MultipleInputs Box19
  63
  64 new vtk:UpdateRender Box20
  65   set Box20.Active "true"
  66
  67 new vtk:MetaImageReader Box21
  68
  69 new wx:CheckBox Box22
  70   set Box22.In "false"
  71   set Box22.Title "Picker"
  72
  73 new creaVtk:PointPicker Box23
  74   set Box23.TypeEvent "2"
  75
  76 new std:MathOperationVector Box24
  77   set Box24.Type "3"
  78
  79 new std:MathOperationVector Box25
  80   set Box25.Type "23"
  81
  82 new vtk:ImageVtkProperties Box26
  83
  84 new creaMaracasVisu:SetPosition Box28
  85
  86 new wx:LayoutLine Box29
  87   set Box29.Orientation "H"
  88
  89 new wx:RadioButton Box30
  90   set Box30.In0 "1x"
  91   set Box30.In1 "3x"
  92   set Box30.In2 "6x"
  93   set Box30.In3 "12x"
  94
  95 new wx:LayoutLine Box31
  96   set Box31.Orientation "H"
  97
  98 new creaMaracasVisu:SliderMinMax Box35
  99   set Box35.InMinShow "100"
 100   set Box35.ShowActual "false"
 101
 102 new std:ConcatStrings Box34
 103
 104 new std:ConcatStrings Box36
 105
 106 new std:ConcatStrings Box37
 107
 108 new std:ConcatStrings Box38
 109   set Box38.In1 "/<CORE>/davila/<ALGO>/Test_01/<PATIENT>/Condition_01"
 110
 111 new std:ReplaceCleanString Box39
 112   set Box39.Search "<CORE>"
 113
 114 new std:ReplaceCleanString Box40
 115   set Box40.Search "<PATIENT>"
 116
 117 new std:ConcatStrings Box41
 118   set Box41.In2 "/results/"
 119
 120 new std:ConcatStrings Box42
 121   set Box42.In2 "/image.mha"
 122
 123 new std:ReplaceCleanString Box44
 124   set Box44.Replace "00100_OriginalImages"
 125   set Box44.Search "<ALGO>"
 126
 127 new std:ConcatStrings Box45
 128   set Box45.In2 "/image.mha"
 129
 130 new std:ReplaceCleanString Box46
 131   set Box46.Replace "00300_Filter"
 132   set Box46.Search "<ALGO>"
 133
 134 new vtk:vtkImageDataPointerRelay Box47
 135
 136 new vtk:MetaImageReader Box48
 137
 138 new vtk:ImageVtkProperties Box49
 139
 140 new std:GetVectorDoubleElement Box50
 141   set Box50.I "0"
 142
 143 new std:GetVectorDoubleElement Box51
 144   set Box51.I "1"
 145
 146 new std:ConcatStrings Box52
 147   set Box52.In1 "-1"
 148   set Box52.In2 "  "
 149   set Box52.In4 "  "
 150   set Box52.In6 "  "
 151
 152 new std:ConcatStrings Box53
 153   set Box53.In1 "-1"
 154   set Box53.In2 "  "
 155   set Box53.In4 "  "
 156   set Box53.In6 "  "
 157
 158 new std:StringSelect Box54
 159   set Box54.In0 "1"
 160   set Box54.In1 "3"
 161   set Box54.In2 "6"
 162   set Box54.In3 "12"
 163
 164 new std:ConcatStrings Box55
 165   set Box55.In1 "-1"
 166   set Box55.In2 "  "
 167   set Box55.In4 "  "
 168   set Box55.In6 "  "
 169
 170 new std:Mul Box56
 171   set Box56.In1 "2"
 172
 173 new wx:CommandButton Box58
 174   set Box58.Label "Save & Exit"
 175
 176 new std:MultipleInputs Box59
 177
 178 new std:Exit Box60
 179
 180 new vtk:MetaImageWriter Box61
 181   set Box61.Compression "true"
 182
 183 new wx:OutputText Box62
 184   set Box62.Title "Patient"
 185
 186 new creaVtk:ImageThreshold Box63
 187   set Box63.InValue "255"
 188   set Box63.OutValue "0"
 189
 190 new creaMaracasVisu:ColorLayerImageView Box64
 191   set Box64.ColorBarPosition "-100 -100"
 192   set Box64.Opacity "50"
 193   set Box64.PlainOrGradientColor "true"
 194   set Box64.TypeControlsInterface "2"
 195   set Box64.WinTitle "Opacity Reference"
 196   set Box64.lstBaseColor "0 0 0  1 0 0"
 197   set Box64.lstGreyLevelBoundaries "0 128 256"
 198   set Box64.lstTransparenceBoundaries "0"
 199
 200 new wx:LayoutLine Box65
 201
 202 new std:ConcatStrings Box66
 203   set Box66.In2 ".final.mha"
 204
 205 new vtk:MetaImageWriter Box67
 206   set Box67.Compression "true"
 207
 208 new creaVtk:ImageThreshold Box68
 209   set Box68.InValue "255"
 210   set Box68.Lower "127"
 211   set Box68.OutValue "0"
 212   set Box68.Upper "256"
 213
 214 new std:ConcatStrings Box69
 215
 216 new creaMiniTools:WriteStatePatientSystem Box70
 217   set Box70.State "Finish"
 218
 219 new std:ConcatStrings Box72
 220   set Box72.In2 "/Step04_Correction.txt"
 221
 222
 223 connect Box02.Widget Box03.Widget2
 224
 225 connect Box02.BoxChange Box00.BoxExecute_ManualPaint_Model
 226
 227 connect Box02.Point Box00.Point_ManualPaint_Model
 228
 229 connect Box02.wxVtkBaseView2 Box00.wxvtkbaseview1
 230
 231 connect Box02.wxVtkBaseView3 Box00.wxvtkbaseview2
 232
 233 connect Box02.wxVtkBaseView4 Box00.wxvtkbaseview3
 234
 235 connect Box05.Out Box02.In
 236
 237 connect Box03.Widget Box09.Widget1
 238
 239 connect Box05.Out Box00.Image_ManualPaint_Model
 240
 241 connect Box13.Out Box14.In
 242
 243 connect Box15.Out Box18.In1
 244
 245 connect Box17.Widget Box03.Widget1
 246
 247 connect Box18.Out Box14.Opacity
 248
 249 connect Box15.BoxChange Box19.In1
 250
 251 connect Box19.BoxChange Box14.BoxExecute
 252
 253 connect Box14.BoxChange Box20.BoxExecute
 254
 255 connect Box02.Renderer1 Box14.Renderer
 256
 257 connect Box02.Renderer1 Box20.Renderer
 258
 259 connect Box13.BoxChange Box19.In4
 260
 261 connect Box02.BoxChange Box13.BoxExecute
 262
 263 connect Box02.Renderer1 Box23.Renderer
 264
 265 connect Box22.Out Box23.Active
 266
 267 connect Box24.Out Box25.In0
 268
 269 connect Box23.Point Box24.In0
 270
 271 connect Box26.Spacing Box24.In1
 272
 273 connect Box05.Out Box26.In
 274
 275 connect Box25.Out Box28.Point
 276
 277 connect Box02.wxVtkBaseView1 Box28.wxVtkBaseView
 278
 279 connect Box23.BoxChange Box28.BoxExecute
 280
 281 connect Box22.Widget Box29.Widget4
 282
 283 connect Box15.Widget Box29.Widget3
 284
 285 connect Box30.Widget Box31.Widget1
 286
 287
 288
 289
 290 connect Box38.Out Box39.In
 291
 292 connect Box36.Out Box39.Replace
 293
 294 connect Box39.Out Box40.In
 295
 296 connect Box37.Out Box40.Replace
 297
 298 connect Box34.Out Box41.In1
 299
 300 connect Box40.Out Box41.In3
 301
 302 connect Box42.Out Box21.In
 303
 304 connect Box21.Out Box05.In
 305
 306 connect Box41.Out Box44.In
 307
 308 connect Box44.Out Box42.In1
 309
 310 connect Box46.Out Box45.In1
 311
 312 connect Box41.Out Box46.In
 313
 314 connect Box48.Out Box47.In
 315
 316 connect Box45.Out Box48.In
 317
 318 connect Box47.Out Box00.Image2_ManualPaint_Model
 319
 320 connect Box47.Out Box13.In
 321
 322 connect Box05.Out Box49.In
 323
 324 connect Box49.MinMax Box50.In
 325
 326 connect Box50.Out Box35.InMin
 327
 328 connect Box49.MinMax Box51.In
 329
 330 connect Box51.Out Box35.InMax
 331
 332 connect Box35.OutEnd Box52.In3
 333
 334 connect Box35.OutEnd Box52.In5
 335
 336 connect Box35.OutEnd Box52.In7
 337
 338 connect Box52.Out Box00.MaxRange_ManualPaint_Model
 339
 340 connect Box35.OutStart Box53.In3
 341
 342 connect Box35.OutStart Box53.In5
 343
 344 connect Box35.OutStart Box53.In7
 345
 346 connect Box53.Out Box00.MinRange_ManualPaint_Model
 347
 348 connect Box51.Out Box35.InMaxShow
 349
 350 connect Box30.Out Box54.In
 351
 352 connect Box54.Out Box56.In2
 353
 354 connect Box56.Out Box55.In3
 355
 356 connect Box54.Out Box55.In5
 357
 358 connect Box54.Out Box55.In7
 359
 360 connect Box55.Out Box00.SizeDistance_ManualPaint_Model
 361
 362 connect Box61.BoxChange Box59.In1
 363
 364 connect Box47.Out Box61.In
 365
 366 connect Box45.Out Box61.Filename
 367
 368 connect Box58.BoxChange Box59.BoxExecute
 369
 370 connect Box42.Out Box62.In
 371
 372 connect Box58.Widget Box17.Widget8
 373
 374 connect Box29.Widget Box17.Widget6
 375
 376 connect Box31.Widget Box17.Widget4
 377
 378 connect Box00.widgetOut Box17.Widget2
 379
 380 connect Box62.Widget Box17.Widget1
 381
 382 connect Box63.Out Box64.In
 383
 384 connect Box35.Widget Box65.Widget1
 385
 386 connect Box64.Widget Box65.Widget3
 387
 388 connect Box65.Widget Box31.Widget4
 389
 390 connect Box35.OutEnd Box63.Upper
 391
 392 connect Box35.OutStart Box63.Lower
 393
 394 connect Box02.wxVtkBaseView2 Box64.WxVtkBaseView
 395
 396 connect Box02.wxVtkBaseView3 Box64.WxVtkBaseView1
 397
 398 connect Box02.wxVtkBaseView4 Box64.WxVtkBaseView2
 399
 400 connect Box05.Out Box63.In
 401
 402 connect Box35.BoxChange Box64.BoxExecute
 403
 404 connect Box45.Out Box66.In1
 405
 406 connect Box66.Out Box67.Filename
 407
 408 connect Box47.Out Box68.In
 409
 410 connect Box67.BoxChange Box59.In3
 411
 412 connect Box68.Out Box67.In
 413
 414
 415 connect Box69.Out Box70.User
 416
 417 connect Box70.boxChange Box59.In7
 418
 419 connect Box72.Out Box70.Filename
 420
 421 connect Box46.Out Box72.In1
 422
 423 connect Box60.BoxChange Box59.In9
 424
 425
 426
 427 # Complex input ports
 428 input BaseDir Box34.In1 " "
 429 input CoreID Box36.In1 " "
 430 input PatientID Box37.In1 " "
 431 input creaUser Box69.In1 " "
 432 exec Box08
 433 exec Box09