packages/gdcmvtk/bbs/boxes/DicomSerieInfoDir.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/C8/creatools_source/bbtk/packages/gdcmvtk/bbs/boxes/DicomSerieInfoDir.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include std
   9 include gdcmvtk
  10 include creaImageIO
  11
  12 define DicomSerieInfoDir gdcmvtk
  13
  14 author "Author ??"
  15 description "Description ??"
  16
  17 category "<VOID>"
  18
  19 new std:FilesFromDirectory Box03
  20   set Box03.Type "0"
  21
  22 new std:GetVectorStringElement Box04
  23   set Box04.I "0"
  24
  25 new std:GetVectorStringElement Box05
  26   set Box05.I "0"
  27
  28 new gdcmvtk:GetXCoherentInfoGdcmReader Box06
  29   set Box06.DicomTags "D0028_0030"
  30
  31 new creaImageIO:GetDicomAttributesFromMaps Box07
  32   set Box07.KeyDicom "D0028_0030"
  33
  34 new std:ConcatStrings Box08
  35   set Box08.In1 "D0008_103e"
  36
  37 new std:ConcatStrings Box09
  38   set Box09.In2 "  "
  39   set Box09.In4 "  ("
  40   set Box09.In6 "imgs)"
  41
  42 new std:GetVectorStringElement Box10
  43   set Box10.I "0"
  44
  45 new std:GetDoubleVectorSize Box11
  46
  47 new std:ReplaceCleanString Box13
  48   set Box13.Replace "_"
  49   set Box13.Search " "
  50
  51 new std:MagicBox Box15
  52
  53 new std:ReplaceCleanString Box16
  54   set Box16.Search "____(0imgs)"
  55
  56 new std:ReplaceCleanString Box17
  57   set Box17.Search ","
  58
  59
  60 connect Box04.Out Box03.In
  61 connect Box03.Out Box05.In
  62 connect Box05.Out Box06.In
  63 connect Box06.DicomInfo Box07.In
  64 connect Box08.Out Box06.DicomTags
  65 connect Box08.Out Box07.KeyDicom
  66 connect Box07.Out Box09.In3
  67 connect Box03.OutSimple Box11.In
  68 connect Box11.VectorSize Box09.In5
  69 connect Box09.Out Box13.In
  70 connect Box10.Out Box09.In1
  71 connect Box15.Out Box10.I
  72 connect Box15.Out Box04.I
  73 connect Box13.Out Box17.In
  74 connect Box17.Out Box16.In
  75
  76 # Complex input ports
  77 input LstPaths Box04.In " "
  78 input LstSimpleDirName Box10.In " "
  79 input idDir Box15.In " "
  80
  81 # Complex output ports
  82 output OutString Box16.Out " "
  83
  84
  85 endefine