packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs

   1 category "example"
   2
   3
   4 load gdcmvtk
   5 load std
   6 load wx
   7
   8
   9 //message all 9
  10
  11 // To choose the directory
  12 new DirectorySelector ds
  13 // To get the image names into a vector
  14 print "avant FilesFromDirectory"
  15 new FilesFromDirectory fd
  16 print "apres FilesFromDirectory"
  17    connect ds.Out fd.In
  18 print "apres connect"
  19 // list of files as input
  20 print "In $ds.Out$\n
  21 print "Files found : $fd.Out$\n
  22
  23
  24 new GetXCoherentInfoGdcmReader reader
  25 //connect fd.Out  reader.FileNames
  26 connect fd.Out  reader.In
  27 exec  reader
  28
  29 // No adaptor
  30 //print $reader.Out$
  31
  32 print IOP
  33 print $reader.IOP$
  34
  35 print IPP
  36 print $reader.IPP$
  37
  38 print PixelSpacing
  39 print $reader.PixelSpacing$
  40
  41
  42