To show that GetZSpacing() from File is not enought

diff --git a/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs b/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
index 889e505f84831390b32eda18e344812aaebb7042..b0a94b0d1ca10e208438bc99542bda16495fcbb7 100644 (file)
--- a/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
+++ b/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
@@ -6,7 +6,7 @@ load std
 load wx
 
 
-message All 9
+//message all 9
 
 new FileSelector openFileDialog
 print Avant_new_GetInfoGdcmReader  

diff --git a/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs b/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
new file mode 100644 (file)
index 0000000..4c312bf
--- /dev/null
+++ b/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
@@ -0,0 +1,44 @@
+category "example"
+
+
+load gdcmvtk
+load std
+load wx
+
+
+//message all 9
+
+// To choose the directory
+new DirectorySelector ds
+// To get the image names into a vector
+print "avant FilesFromDirectory"
+new FilesFromDirectory fd
+print "apres FilesFromDirectory"
+   connect ds.Out fd.In 
+print "apres connect"
+// list of files as input
+print "In $ds.Out$\n
+print "Files found : $fd.Out$\n
+
+
+new GetXCoherentInfoGdcmReader reader
+//connect fd.Out  reader.FileNames
+connect fd.Out  reader.In
+exec  reader  
+
+// No adaptor
+//print $reader.Out$
+
+print IOP
+print $reader.IOP$
+
+print IPP
+print $reader.IPP$
+
+print PixelSpacing
+print $reader.PixelSpacing$
+
+print InterSlice
+print $reader.InterSlice$
+
+