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