packages/gdcmvtk/bbs/boxes/LstDicomSerieInfoDir.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/C8/creatools_source/bbtk/packages/gdcmvtk/bbs/boxes/LstDicomSerieInfoDir.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include gdcmvtk
   9 include std
  10
  11 define LstDicomSerieInfoDir gdcmvtk
  12
  13 author "Author ??"
  14 description "Description ??"
  15
  16 category "<VOID>"
  17
  18 new gdcmvtk:DicomSerieInfoDir Box00
  19   set Box00.idDir "0"
  20
  21 new std:FilesFromDirectory Box01
  22   set Box01.In "/home/davila/CreatisWorks/tmpMonica/SegCal/Benoit-Test-Dicom"
  23   set Box01.Recursive "true"
  24   set Box01.Type "2"
  25
  26 new std:ConcatStrings Box03
  27   set Box03.In10 " "
  28   set Box03.In2 " "
  29   set Box03.In4 " "
  30   set Box03.In6 " "
  31   set Box03.In8 " "
  32
  33 new gdcmvtk:DicomSerieInfoDir Box04
  34   set Box04.idDir "1"
  35
  36 new std:ConcatStrings Box06
  37   set Box06.In10 " "
  38   set Box06.In2 " "
  39   set Box06.In4 " "
  40   set Box06.In6 " "
  41   set Box06.In8 " "
  42
  43 new std:ConcatStrings Box07
  44   set Box07.In10 " "
  45   set Box07.In3 " "
  46   set Box07.In5 " "
  47   set Box07.In7 " "
  48   set Box07.In9 " "
  49
  50 new gdcmvtk:DicomSerieInfoDir Box09
  51   set Box09.idDir "2"
  52
  53 new gdcmvtk:DicomSerieInfoDir Box11
  54   set Box11.idDir "3"
  55
  56 new gdcmvtk:DicomSerieInfoDir Box12
  57   set Box12.idDir "4"
  58
  59 new gdcmvtk:DicomSerieInfoDir Box13
  60   set Box13.idDir "5"
  61
  62 new gdcmvtk:DicomSerieInfoDir Box14
  63   set Box14.idDir "6"
  64
  65 new gdcmvtk:DicomSerieInfoDir Box15
  66   set Box15.idDir "7"
  67
  68 new gdcmvtk:DicomSerieInfoDir Box16
  69   set Box16.idDir "8"
  70
  71 new gdcmvtk:DicomSerieInfoDir Box17
  72   set Box17.idDir "9"
  73
  74 new gdcmvtk:DicomSerieInfoDir Box18
  75   set Box18.idDir "10"
  76
  77 new gdcmvtk:DicomSerieInfoDir Box19
  78   set Box19.idDir "11"
  79
  80 new gdcmvtk:DicomSerieInfoDir Box20
  81   set Box20.idDir "12"
  82
  83 new gdcmvtk:DicomSerieInfoDir Box21
  84   set Box21.idDir "14"
  85
  86 new gdcmvtk:DicomSerieInfoDir Box22
  87   set Box22.idDir "13"
  88
  89 new gdcmvtk:DicomSerieInfoDir Box23
  90   set Box23.idDir "15"
  91
  92 new gdcmvtk:DicomSerieInfoDir Box24
  93   set Box24.idDir "16"
  94
  95 new gdcmvtk:DicomSerieInfoDir Box25
  96   set Box25.idDir "17"
  97
  98 new std:ConcatStrings Box26
  99   set Box26.In10 " "
 100   set Box26.In3 " "
 101   set Box26.In5 " "
 102   set Box26.In7 " "
 103   set Box26.In9 " "
 104
 105 new gdcmvtk:DicomSerieInfoDir Box27
 106   set Box27.idDir "17"
 107
 108 new std:ConcatStrings Box28
 109   set Box28.In10 " "
 110   set Box28.In3 " "
 111   set Box28.In5 " "
 112   set Box28.In7 " "
 113   set Box28.In9 " "
 114
 115
 116 connect Box01.OutSimple Box00.LstSimpleDirName
 117 connect Box01.Out Box00.LstPaths
 118 connect Box01.OutSimple Box04.LstSimpleDirName
 119 connect Box01.Out Box04.LstPaths
 120 connect Box04.OutString Box03.In3
 121 connect Box00.OutString Box03.In1
 122 connect Box03.Out Box06.In1
 123 connect Box06.Out Box07.In1
 124 connect Box01.OutSimple Box09.LstSimpleDirName
 125 connect Box09.OutString Box03.In5
 126 connect Box01.Out Box09.LstPaths
 127 connect Box01.Out Box11.LstPaths
 128 connect Box01.OutSimple Box11.LstSimpleDirName
 129 connect Box01.Out Box12.LstPaths
 130 connect Box01.OutSimple Box12.LstSimpleDirName
 131 connect Box01.Out Box13.LstPaths
 132 connect Box01.OutSimple Box13.LstSimpleDirName
 133 connect Box11.OutString Box03.In7
 134 connect Box12.OutString Box03.In9
 135 connect Box13.OutString Box06.In3
 136 connect Box14.OutString Box06.In5
 137 connect Box15.OutString Box06.In7
 138 connect Box16.OutString Box06.In9
 139 connect Box01.Out Box14.LstPaths
 140 connect Box01.OutSimple Box14.LstSimpleDirName
 141 connect Box01.Out Box15.LstPaths
 142 connect Box01.OutSimple Box15.LstSimpleDirName
 143 connect Box01.Out Box16.LstPaths
 144 connect Box01.OutSimple Box16.LstSimpleDirName
 145 connect Box01.Out Box17.LstPaths
 146 connect Box01.OutSimple Box17.LstSimpleDirName
 147 connect Box01.Out Box18.LstPaths
 148 connect Box01.OutSimple Box18.LstSimpleDirName
 149 connect Box01.Out Box19.LstPaths
 150 connect Box01.OutSimple Box19.LstSimpleDirName
 151 connect Box01.Out Box20.LstPaths
 152 connect Box01.OutSimple Box20.LstSimpleDirName
 153 connect Box01.Out Box22.LstPaths
 154 connect Box01.OutSimple Box22.LstSimpleDirName
 155 connect Box01.Out Box21.LstPaths
 156 connect Box01.OutSimple Box21.LstSimpleDirName
 157 connect Box01.Out Box23.LstPaths
 158 connect Box01.OutSimple Box23.LstSimpleDirName
 159 connect Box01.Out Box24.LstPaths
 160 connect Box01.OutSimple Box24.LstSimpleDirName
 161 connect Box01.Out Box25.LstPaths
 162 connect Box01.OutSimple Box25.LstSimpleDirName
 163 connect Box17.OutString Box07.In2
 164 connect Box18.OutString Box07.In4
 165 connect Box19.OutString Box07.In6
 166 connect Box20.OutString Box07.In8
 167 connect Box22.OutString Box07.In10
 168 connect Box07.Out Box26.In1
 169 connect Box21.OutString Box26.In2
 170 connect Box23.OutString Box26.In4
 171 connect Box24.OutString Box26.In6
 172 connect Box25.OutString Box26.In8
 173 connect Box01.Out Box27.LstPaths
 174 connect Box01.OutSimple Box27.LstSimpleDirName
 175 connect Box26.Out Box28.In1
 176 connect Box27.OutString Box28.In2
 177
 178 # Complex input ports
 179 input DirName Box01.In " "
 180
 181 # Complex output ports
 182 output lst Box28.Out " "
 183 output lstPath Box01.Out " "
 184
 185
 186 endefine