appli/template_creaPatientsSystem/scripts/00010_Menu.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include std
  13
  14 author "Author ??"
  15 description "Description ??"
  16 category "<VOID>"
  17
  18 new wx:LayoutLine Box00
  19   set Box00.WinTitle "B. Segmentation"
  20
  21 new wx:CommandButton Box01
  22   set Box01.Label "Step 2.   Initial Parameters"
  23
  24 new wx:ComboBox Box03
  25   set Box03.In "void"
  26   set Box03.Selection "0"
  27   set Box03.Title "Patient"
  28
  29 new std:FilesFromDirectory Box05
  30   set Box05.Recursive "false"
  31   set Box05.Type "1"
  32
  33 new std:ConcatStrings Box06
  34   set Box06.In2 "/results"
  35
  36 new std:ExecSystemCommand Box07
  37
  38 new std:ExecSystemCommand Box09
  39
  40 new std:ConcatStrings Box10
  41   set Box10.In2 "results"
  42
  43 new std:ConcatStrings Box11
  44   set Box11.In1 "../"
  45
  46 new std:ConcatStrings Box12
  47   set Box12.In1 "mkdir "
  48
  49 new wx:CommandButton Box18
  50   set Box18.Label "Step 5. Validation"
  51
  52 new std:ExecSystemCommand Box19
  53
  54 new std:ConcatStrings Box20
  55   set Box20.In1 "bbi 00500_Validate.bbs  "
  56   set Box20.In6 " &"
  57
  58 new wx:CommandButton Box21
  59   set Box21.Label "Step 3.  Filter"
  60
  61 new std:ExecSystemCommand Box22
  62
  63 new wx:CommandButton Box26
  64   set Box26.Label "Report"
  65
  66 new std:ExecSystemCommand Box27
  67
  68 new std:ConcatStrings Box28
  69   set Box28.In1 "bbi Report.bbs  "
  70   set Box28.In9 "  &"
  71
  72 new wx:CommandButton Box29
  73   set Box29.Label "Comments"
  74
  75 new std:ExecSystemCommand Box30
  76
  77 new std:ConcatStrings Box31
  78   set Box31.In1 "bbi Comments.bbs  "
  79   set Box31.In6 " &"
  80
  81 new wx:LayoutLine Box32
  82   set Box32.WinTitle "C. Summary"
  83
  84 new wx:LayoutTab Box33
  85   set Box33.WinTitle "B. Segmentation"
  86
  87 new wx:OutputText Box35
  88
  89 new wx:CommandButton Box39
  90   set Box39.Label "Step 4.   Correction"
  91
  92 new std:ExecSystemCommand Box43
  93
  94 new std:StringSelect Box45
  95   set Box45.In1 "hola"
  96
  97 new std:Configuration Box47
  98
  99 new std:StringSelect Box50
 100
 101 new std:ConcatStrings Box51
 102   set Box51.In1 "start /b  "
 103
 104 new std:ConcatStrings Box52
 105   set Box52.In1 "start /b  "
 106
 107 new std:StringSelect Box53
 108
 109 new std:ConcatStrings Box54
 110   set Box54.In1 "start /b  "
 111
 112 new std:StringSelect Box55
 113
 114 new std:ConcatStrings Box56
 115   set Box56.In1 "start /b  "
 116
 117 new std:StringSelect Box57
 118
 119 new std:ConcatStrings Box58
 120   set Box58.In1 "start /b  "
 121
 122 new std:StringSelect Box61
 123
 124 new std:ConcatStrings Box62
 125   set Box62.In1 "start /b  "
 126
 127 new wx:CommandButton Box63
 128   set Box63.Label "Reset Patient"
 129
 130 new std:ExecSystemCommand Box64
 131
 132 new std:ConcatStrings Box65
 133   set Box65.In1 "bbi ResetPatient.bbs  "
 134   set Box65.In6 " &"
 135
 136 new std:StringSelect Box66
 137
 138 new std:ConcatStrings Box67
 139   set Box67.In1 "start /b  "
 140
 141 new std:ConcatStrings Box73
 142   set Box73.In1 "<VOID>"
 143   set Box73.In2 "  "
 144
 145 new wx:CommandButton Box84
 146   set Box84.Label "6. Push DB"
 147
 148 new std:ExecSystemCommand Box85
 149
 150 new std:ConcatStrings Box86
 151   set Box86.In1 "bbi 00600_PushData.bbs  "
 152   set Box86.In4 "  Hospital="
 153   set Box86.In6 " &"
 154
 155 new std:StringSelect Box87
 156
 157 new std:ConcatStrings Box88
 158   set Box88.In1 "start /b  "
 159
 160 new wx:LayoutLine Box89
 161   set Box89.Orientation "H"
 162
 163 new wx:ComboBox Box90
 164   set Box90.In "void"
 165   set Box90.Selection "0"
 166   set Box90.Title "Core"
 167
 168 new wx:CommandButton Box91
 169   set Box91.Label "Step 1.  Insert Data"
 170
 171 new std:ExecSystemCommand Box92
 172
 173 new std:ConcatStrings Box93
 174   set Box93.In1 "bbi  "
 175   set Box93.In2 "00100_InsertDataA.bbs "
 176   set Box93.In4 " ProjectDir="
 177   set Box93.In6 "  "
 178   set Box93.In9 " & "
 179
 180 new std:StringSelect Box94
 181
 182 new std:ConcatStrings Box95
 183   set Box95.In1 "start /b  "
 184
 185 new wx:LayoutTab Box97
 186
 187 new wx:LayoutTab Box98
 188
 189 new wx:LayoutLine Box99
 190   set Box99.WinHeight "550"
 191   set Box99.WinTitle "A. InputData"
 192   set Box99.WinWidth "450"
 193
 194 new wx:CommandButton Box102
 195   set Box102.Label "Myriad Girder DB"
 196
 197 new std:ExecSystemCommand Box103
 198
 199 new std:StringSelect Box105
 200
 201 new wx:OutputText Box108
 202
 203 new std:GetVectorStringElement Box112
 204
 205 new std:FilesFromDirectory Box113
 206   set Box113.Type "1"
 207
 208 new std:ConcatStrings Box114
 209   set Box114.In1 "<VOID>"
 210   set Box114.In2 "  "
 211
 212 new wx:CommandButton Box115
 213   set Box115.Label "Refresh"
 214
 215 new std:ConcatStrings Box116
 216   set Box116.In1 "BaseDir="
 217   set Box116.In3 "  "
 218
 219 new std:ConcatStrings Box117
 220   set Box117.In1 "PatientID="
 221   set Box117.In4 "  "
 222
 223 new std:ConcatStrings Box118
 224   set Box118.In2 "   "
 225
 226 new std:ConcatStrings Box119
 227   set Box119.In1 "bbi  "
 228   set Box119.In2 "00200_InitialParameters.bbs   "
 229   set Box119.In9 " & "
 230
 231 new std:MultipleInputs Box120
 232
 233 new std:ConcatStrings Box121
 234   set Box121.In1 "bbi  "
 235   set Box121.In2 "00300_Filter.bbs    "
 236   set Box121.In9 " & "
 237
 238 new std:ConcatStrings Box122
 239   set Box122.In1 "bbi  "
 240   set Box122.In2 "00400_Correction.bbs  "
 241   set Box122.In9 " & "
 242
 243 new wx:CommandButton Box124
 244   set Box124.Label "Results Dir"
 245
 246 new std:ExecSystemCommand Box125
 247
 248 new std:StringSelect Box126
 249
 250 new std:ConcatStrings Box127
 251   set Box127.In1 "xdg-open  "
 252   set Box127.In3 "  &"
 253
 254 new std:ConcatStrings Box128
 255   set Box128.In2 "/results/"
 256
 257 new std:ConcatStrings Box129
 258   set Box129.In1 "start  /b  "
 259
 260 new std:ReplaceCleanString Box130
 261   set Box130.Search "<VOID>"
 262
 263 new std:ReplaceCleanString Box131
 264   set Box131.Replace "\"
 265   set Box131.Search "/"
 266
 267 new std:Configuration Box133
 268
 269 new std:Configuration Box139
 270
 271 new wx:StaticBox Box135
 272
 273 new wx:StaticBox Box136
 274
 275 new wx:StaticBox Box137
 276
 277 new std:ConcatStrings Box141
 278   set Box141.In1 "VOID"
 279   set Box141.In2 "  "
 280
 281 new std:ConcatStrings Box142
 282   set Box142.In2 "/davila/00100_OriginalImages/Test_01"
 283
 284 new std:ConcatStrings Box143
 285   set Box143.In1 "CoreID="
 286   set Box143.In3 "  "
 287
 288 new std:ConcatStrings Box146
 289   set Box146.In1 "open  "
 290   set Box146.In3 "  &"
 291
 292 new std:ConcatStrings Box145
 293   set Box145.In1 "/<CORE>/davila/<ALGO>/Test_01/<PATIENT>/Condition_01"
 294
 295 new std:ReplaceString Box147
 296   set Box147.Search "<CORE>"
 297
 298 new std:ReplaceString Box148
 299   set Box148.Search "<PATIENT>"
 300
 301 new std:ReplaceString Box149
 302   set Box149.Replace "00100_OriginalImages"
 303   set Box149.Search "<ALGO>"
 304
 305 new wx:LayoutLine Box150
 306   set Box150.Orientation "H"
 307   set Box150.WinTitle "Menu"
 308
 309 new std:ConcatStrings Box151
 310
 311 new std:ConcatStrings Box152
 312   set Box152.In1 "00010_menu.bbg  (v.1)"
 313   set Box152.In2 "    User:"
 314
 315 new std:ConcatStrings Box153
 316   set Box153.In1 "https://myriad.creatis.insa-lyon.fr/#collection/5accbe71e1820a13d7993c19/folder/6186286034933039d3c8edb8"
 317
 318 new std:ConcatStrings Box154
 319   set Box154.In1 "xdg-open"
 320   set Box154.In2 "  "
 321
 322 new std:ConcatStrings Box155
 323   set Box155.In1 "start"
 324   set Box155.In2 "  "
 325
 326 new std:ConcatStrings Box156
 327   set Box156.In1 "open"
 328   set Box156.In2 "  "
 329
 330 new std:ConcatStrings Box157
 331   set Box157.In1 "creaUser="
 332   set Box157.In3 "  "
 333
 334 new wx:LayoutLine Box158
 335   set Box158.WinHeight "600"
 336   set Box158.WinWidth "900"
 337
 338 new wx:LayoutTab Box159
 339
 340 new wx:LayoutLine Box160
 341   set Box160.WinTitle "Config"
 342
 343 new wx:InputText Box161
 344   set Box161.Title "BaseDir:"
 345
 346 new wx:OutputText Box162
 347
 348 new wx:OutputText Box163
 349   set Box163.Title "User"
 350
 351 new std:ConcatStrings Box164
 352
 353
 354 connect Box06.Out Box05.In
 355
 356 connect Box11.Out Box06.In1
 357
 358 connect Box11.Out Box10.In1
 359
 360 connect Box10.Out Box12.In2
 361
 362 connect Box12.Out Box09.In
 363
 364 connect Box18.BoxChange Box19.BoxExecute
 365
 366 connect Box21.BoxChange Box22.BoxExecute
 367
 368 connect Box26.BoxChange Box27.BoxExecute
 369
 370 connect Box29.BoxChange Box30.BoxExecute
 371
 372 connect Box00.Widget Box33.Widget1
 373
 374 connect Box26.Widget Box32.Widget3
 375
 376 connect Box35.Widget Box32.Widget1
 377
 378 connect Box39.BoxChange Box43.BoxExecute
 379
 380 connect Box45.Out Box22.In
 381
 382 connect Box47.SystemType Box45.In
 383
 384 connect Box47.SystemType Box50.In
 385
 386 connect Box51.Out Box50.In1
 387
 388 connect Box50.Out Box07.In
 389
 390 connect Box52.Out Box45.In1
 391
 392 connect Box53.Out Box43.In
 393
 394 connect Box54.Out Box53.In1
 395
 396 connect Box56.Out Box55.In1
 397
 398 connect Box20.Out Box55.In0
 399
 400 connect Box55.Out Box19.In
 401
 402 connect Box20.Out Box56.In2
 403
 404 connect Box47.SystemType Box55.In
 405
 406 connect Box47.SystemType Box53.In
 407
 408 connect Box58.Out Box57.In1
 409
 410 connect Box31.Out Box57.In0
 411
 412 connect Box57.Out Box30.In
 413
 414 connect Box31.Out Box58.In2
 415
 416 connect Box47.SystemType Box57.In
 417
 418 connect Box62.Out Box61.In1
 419
 420 connect Box61.Out Box27.In
 421
 422 connect Box28.Out Box62.In2
 423
 424 connect Box28.Out Box61.In0
 425
 426 connect Box47.SystemType Box61.In
 427
 428 connect Box63.BoxChange Box64.BoxExecute
 429
 430 connect Box67.Out Box66.In1
 431
 432 connect Box65.Out Box66.In0
 433
 434 connect Box66.Out Box64.In
 435
 436 connect Box65.Out Box67.In2
 437
 438 connect Box47.SystemType Box66.In
 439
 440 connect Box05.OutSimple Box73.In3
 441
 442 connect Box84.BoxChange Box85.BoxExecute
 443
 444 connect Box88.Out Box87.In1
 445
 446 connect Box86.Out Box87.In0
 447
 448 connect Box87.Out Box85.In
 449
 450 connect Box86.Out Box88.In2
 451
 452 connect Box29.Widget Box89.Widget1
 453
 454 connect Box63.Widget Box89.Widget2
 455
 456 connect Box21.Widget Box00.Widget5
 457
 458 connect Box01.Widget Box00.Widget4
 459
 460 connect Box91.BoxChange Box92.BoxExecute
 461
 462 connect Box93.Out Box94.In0
 463
 464 connect Box93.Out Box95.In2
 465
 466 connect Box95.Out Box94.In1
 467
 468 connect Box99.Widget Box97.Widget1
 469
 470 connect Box32.Widget Box98.Widget1
 471
 472 connect Box102.BoxChange Box103.BoxExecute
 473
 474 connect Box105.Out Box103.In
 475
 476 connect Box03.Widget Box00.Widget3
 477
 478 connect Box90.Widget Box00.Widget2
 479
 480 connect Box91.Widget Box99.Widget3
 481
 482 connect Box108.Widget Box99.Widget1
 483
 484 connect Box11.Out Box93.In5
 485
 486 connect Box90.Out Box112.I
 487
 488 connect Box113.OutSimple Box114.In3
 489
 490 connect Box114.Out Box03.In
 491
 492 connect Box115.Widget Box00.Widget1
 493
 494 connect Box115.BoxChange Box05.BoxExecute
 495
 496 connect Box115.BoxChange Box90.BoxExecute
 497
 498 connect Box11.Out Box116.In2
 499
 500 connect Box03.OutString Box117.In3
 501
 502 connect Box117.Out Box118.In3
 503
 504 connect Box118.Out Box119.In3
 505
 506 connect Box119.Out Box50.In0
 507
 508 connect Box119.Out Box51.In2
 509
 510 connect Box01.BoxChange Box07.BoxExecute
 511
 512 connect Box116.Out Box118.In1
 513
 514 connect Box90.BoxChange Box120.BoxExecute
 515
 516 connect Box112.BoxChange Box120.In1
 517
 518 connect Box113.BoxChange Box120.In2
 519
 520 connect Box03.BoxChange Box120.In3
 521
 522 connect Box50.BoxChange Box120.In5
 523
 524 connect Box118.Out Box121.In3
 525
 526 connect Box121.Out Box52.In2
 527
 528 connect Box121.Out Box45.In0
 529
 530 connect Box122.Out Box54.In2
 531
 532 connect Box122.Out Box53.In0
 533
 534 connect Box118.Out Box122.In3
 535
 536 connect Box118.Out Box20.In3
 537
 538 connect Box118.Out Box31.In3
 539
 540 connect Box118.Out Box65.In3
 541
 542 connect Box118.Out Box86.In3
 543
 544 connect Box47.SystemType Box105.In
 545
 546 connect Box90.OutString Box86.In5
 547
 548 connect Box124.BoxChange Box125.BoxExecute
 549
 550 connect Box102.Widget Box32.Widget6
 551
 552 connect Box124.Widget Box32.Widget4
 553
 554 connect Box127.Out Box126.In0
 555
 556 connect Box11.Out Box128.In1
 557
 558 connect Box129.Out Box126.In1
 559
 560 connect Box47.SystemType Box126.In
 561
 562 connect Box130.Out Box131.In
 563
 564 connect Box128.Out Box130.In
 565
 566 connect Box131.Out Box129.In2
 567
 568 connect Box131.Out Box127.In2
 569
 570 connect Box133.FileSeparator Box131.Replace
 571
 572 connect Box126.Out Box125.In
 573
 574 connect Box139.SystemType Box94.In
 575
 576 connect Box94.Out Box92.In
 577
 578 connect Box97.Widget Box135.BoxContent
 579
 580 connect Box33.Widget Box136.BoxContent
 581
 582 connect Box98.Widget Box137.BoxContent
 583
 584 connect Box05.Out Box141.In3
 585
 586 connect Box141.Out Box112.In
 587
 588 connect Box112.Out Box142.In1
 589
 590 connect Box142.Out Box113.In
 591
 592 connect Box143.Out Box118.In2
 593
 594 connect Box146.Out Box126.In2
 595
 596 connect Box131.Out Box146.In2
 597
 598 connect Box119.Out Box50.In2
 599
 600 connect Box121.Out Box45.In2
 601
 602 connect Box93.Out Box94.In2
 603
 604 connect Box145.Out Box147.In
 605
 606 connect Box90.OutString Box147.Replace
 607
 608 connect Box147.Out Box148.In
 609
 610 connect Box03.OutString Box148.Replace
 611
 612 connect Box148.Out Box149.In
 613
 614 connect Box149.Out Box128.In3
 615
 616 connect Box39.Widget Box00.Widget6
 617
 618 connect Box18.Widget Box00.Widget7
 619
 620 connect Box122.Out Box53.In2
 621
 622 connect Box20.Out Box55.In2
 623
 624 connect Box135.Widget Box150.Widget2
 625
 626 connect Box136.Widget Box150.Widget4
 627
 628 connect Box137.Widget Box150.Widget6
 629
 630
 631 connect Box151.Out Box152.In3
 632
 633 connect Box65.Out Box66.In2
 634
 635 connect Box31.Out Box57.In2
 636
 637 connect Box89.Widget Box00.Widget9
 638
 639 connect Box84.Widget Box00.Widget8
 640
 641 connect Box153.Out Box154.In3
 642
 643 connect Box153.Out Box155.In3
 644
 645 connect Box153.Out Box156.In3
 646
 647 connect Box154.Out Box105.In0
 648
 649 connect Box155.Out Box105.In1
 650
 651 connect Box156.Out Box105.In2
 652
 653 connect Box28.Out Box61.In2
 654
 655 connect Box151.Out Box157.In2
 656
 657 connect Box157.Out Box118.In4
 658
 659 connect Box157.Out Box93.In7
 660
 661 connect Box116.Out Box28.In2
 662
 663 connect Box73.Out Box90.In
 664
 665 connect Box143.Out Box28.In3
 666
 667 connect Box90.OutString Box143.In2
 668
 669 connect Box152.Out Box158.WinTitle
 670
 671 connect Box150.Widget Box159.Widget1
 672
 673 connect Box161.Widget Box160.Widget2
 674
 675 connect Box162.Widget Box160.Widget1
 676
 677 connect Box159.Widget Box158.Widget2
 678
 679 connect Box160.Widget Box159.Widget2
 680
 681 connect Box163.Widget Box160.Widget3
 682
 683 connect Box151.Out Box163.In
 684
 685 connect Box161.Out Box11.In1
 686
 687
 688 connect Box164.Out Box161.In
 689
 690
 691
 692 # Complex input ports
 693 input creaUser Box151.In1 " "
 694 input BaseDir Box164.In1 " "
 695 exec Box09
 696 exec Box158