]> Creatis software - gdcm.git/blobdiff - src/gdcmFile.cxx
ENH: Should now support image with space in the origin
[gdcm.git] / src / gdcmFile.cxx
index 94f5ca5b22b4895807937ffae513695655a7fc4c..49305ccf0f721ba8890ef9d6dd3cf176317f7a6e 100644 (file)
@@ -3,8 +3,8 @@
   Program:   gdcm
   Module:    $RCSfile: gdcmFile.cxx,v $
   Language:  C++
-  Date:      $Date: 2005/02/10 20:53:23 $
-  Version:   $Revision: 1.223 $
+  Date:      $Date: 2005/05/11 18:32:17 $
+  Version:   $Revision: 1.237 $
                                                                                 
   Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
   l'Image). All rights reserved. See Doc/License.txt or
@@ -46,12 +46,25 @@ namespace gdcm
 {
 //-----------------------------------------------------------------------------
 // Constructor / Destructor
+
+/**
+ * \brief Constructor used when we want to generate dicom files from scratch
+ */
+File::File():
+   Document()
+{
+   RLEInfo  = new RLEFramesInfo;
+   JPEGInfo = new JPEGFragmentsInfo;
+   GrPixel  = 0x7fe0;
+   NumPixel = 0x0010;
+}
+
 /**
  * \brief  Constructor 
  * @param  filename name of the file whose header we want to analyze
  */
 File::File( std::string const &filename )
-     :Document( filename )
+     :Document(filename)
 {    
    RLEInfo  = new RLEFramesInfo;
    JPEGInfo = new JPEGFragmentsInfo;
@@ -115,7 +128,6 @@ File::File( std::string const &filename )
       // Create a new BinEntry to change the the DictEntry
       // The changed DictEntry will have 
       // - a correct PixelVR OB or OW)
-      // - a VM to "PXL"
       // - the name to "Pixel Data"
       BinEntry *oldEntry = dynamic_cast<BinEntry *>(entry);
       if(oldEntry)
@@ -146,16 +158,6 @@ File::File( std::string const &filename )
    }
 }
 
-/**
- * \brief Constructor used when we want to generate dicom files from scratch
- */
-File::File():
-   Document()
-{
-   RLEInfo  = new RLEFramesInfo;
-   JPEGInfo = new JPEGFragmentsInfo;
-   InitializeDefaultFile();
-}
 
 /**
  * \brief   Canonical destructor.
@@ -170,6 +172,8 @@ File::~File ()
 
 //-----------------------------------------------------------------------------
 // Public
+
+
 /**
  * \brief  This predicate, based on hopefully reasonable heuristics,
  *         decides whether or not the current File was properly parsed
@@ -216,13 +220,7 @@ bool File::IsReadable()
  */
 int File::GetImageNumber()
 {
-   // The function i atoi() takes the address of an area of memory as
-   // parameter and converts the string stored at that location to an integer
-   // using the external decimal to internal binary conversion rules. This may
-   // be preferable to sscanf() since atoi() is a much smaller, simpler and
-   // faster function. sscanf() can do all possible conversions whereas
-   // atoi() can only do single decimal integer conversions.
-   //0020 0013 IS REL Image Number
+   //0020 0013 : Image Number
    std::string strImNumber = GetEntryValue(0x0020,0x0013);
    if ( strImNumber != GDCM_UNFOUND )
    {
@@ -237,7 +235,7 @@ int File::GetImageNumber()
  */
 ModalityType File::GetModality()
 {
-   // 0008 0060 CS ID Modality
+   // 0008 0060 : Modality
    std::string strModality = GetEntryValue(0x0008,0x0060);
    if ( strModality != GDCM_UNFOUND )
    {
@@ -270,10 +268,14 @@ ModalityType File::GetModality()
       else if ( strModality.find("PT") < strModality.length()) return PT;
       else if ( strModality.find("RF") < strModality.length()) return RF;
       else if ( strModality.find("RG") < strModality.length()) return RG;
-      else if ( strModality.find("RTDOSE")   < strModality.length()) return RTDOSE;
-      else if ( strModality.find("RTIMAGE")  < strModality.length()) return RTIMAGE;
-      else if ( strModality.find("RTPLAN")   < strModality.length()) return RTPLAN;
-      else if ( strModality.find("RTSTRUCT") < strModality.length()) return RTSTRUCT;
+      else if ( strModality.find("RTDOSE")   
+                                       < strModality.length()) return RTDOSE;
+      else if ( strModality.find("RTIMAGE")  
+                                       < strModality.length()) return RTIMAGE;
+      else if ( strModality.find("RTPLAN")
+                                       < strModality.length()) return RTPLAN;
+      else if ( strModality.find("RTSTRUCT") 
+                                       < strModality.length()) return RTSTRUCT;
       else if ( strModality.find("SM") < strModality.length()) return SM;
       else if ( strModality.find("ST") < strModality.length()) return ST;
       else if ( strModality.find("TG") < strModality.length()) return TG;
@@ -379,7 +381,7 @@ float File::GetXSpacing()
 
    int nbValues;
    if( ( nbValues = sscanf( strSpacing.c_str(), 
-         "%f\\%f", &yspacing, &xspacing)) != 2 )
+         "%f \\%f ", &yspacing, &xspacing)) != 2 )
    {
       // if no values, xspacing is set to 1.0
       if( nbValues == 0 )
@@ -401,9 +403,9 @@ float File::GetXSpacing()
 
    if ( xspacing == 0.)
    {
-      gdcmWarningMacro("gdcmData/CT-MONO2-8-abdo.dcm problem");
+      gdcmWarningMacro("gdcmData/CT-MONO2-8-abdo.dcm-like problem");
       // seems to be a bug in the header ...
-      nbValues = sscanf( strSpacing.c_str(), "%f\\0\\%f", &yspacing, &xspacing);
+      nbValues = sscanf( strSpacing.c_str(), "%f \\0\\%f ", &yspacing, &xspacing);
       gdcmAssertMacro( nbValues == 2 );
    }
 
@@ -427,9 +429,9 @@ float File::GetYSpacing()
     }
 
    // if sscanf cannot read any float value, it won't affect yspacing
-   int nbValues = sscanf( strSpacing.c_str(), "%f", &yspacing);
+   int nbValues = sscanf( strSpacing.c_str(), "%f ", &yspacing);
 
-   // if no values, xspacing is set to 1.0
+   // if no values, yspacing is set to 1.0
    if( nbValues == 0 )
       yspacing = 1.0;
 
@@ -447,15 +449,15 @@ float File::GetYSpacing()
  */
 float File::GetZSpacing()
 {
-   // Spacing Between Slices : distance entre le milieu de chaque coupe
-   // Les coupes peuvent etre :
+   // Spacing Between Slices : distance between the middle of 2 slices
+   // Slices may be :
    //   jointives     (Spacing between Slices = Slice Thickness)
-   //   chevauchantes (Spacing between Slices < Slice Thickness)
+   //   overlapping   (Spacing between Slices < Slice Thickness)
    //   disjointes    (Spacing between Slices > Slice Thickness)
    // Slice Thickness : epaisseur de tissus sur laquelle est acquis le signal
-   //   ca interesse le physicien de l'IRM, pas le visualisateur de volumes ...
-   //   Si le Spacing Between Slices est Missing, 
-   //   on suppose que les coupes sont jointives
+   //   It only concerns the MRI guys, not people wanting to visualize volmues
+   //   If Spacing Between Slices is Missing, 
+   //   we suppose slices joint together
    
    const std::string &strSpacingBSlices = GetEntryValue(0x0018,0x0088);
 
@@ -503,7 +505,7 @@ float File::GetXOrigin()
       }
    }
 
-   if( sscanf( strImPos.c_str(), "%f\\%f\\%f", &xImPos, &yImPos, &zImPos) != 3 )
+   if( sscanf( strImPos.c_str(), "%f \\%f \\%f ", &xImPos, &yImPos, &zImPos) != 3 )
    {
       return 0.;
    }
@@ -533,7 +535,7 @@ float File::GetYOrigin()
       }  
    }
 
-   if( sscanf( strImPos.c_str(), "%f\\%f\\%f", &xImPos, &yImPos, &zImPos) != 3 )
+   if( sscanf( strImPos.c_str(), "%f \\%f \\%f ", &xImPos, &yImPos, &zImPos) != 3 )
    {
       return 0.;
    }
@@ -556,7 +558,7 @@ float File::GetZOrigin()
 
    if ( strImPos != GDCM_UNFOUND )
    {
-      if( sscanf( strImPos.c_str(), "%f\\%f\\%f", &xImPos, &yImPos, &zImPos) != 3)
+      if( sscanf( strImPos.c_str(), "%f \\%f \\%f ", &xImPos, &yImPos, &zImPos) != 3)
       {
          gdcmWarningMacro( "Wrong Image Position Patient (0020,0032)");
          return 0.;  // bug in the element 0x0020,0x0032
@@ -571,7 +573,7 @@ float File::GetZOrigin()
    if ( strImPos != GDCM_UNFOUND )
    {
       if( sscanf( strImPos.c_str(), 
-          "%f\\%f\\%f", &xImPos, &yImPos, &zImPos ) != 3 )
+          "%f \\%f \\%f ", &xImPos, &yImPos, &zImPos ) != 3 )
       {
          gdcmWarningMacro( "Wrong Image Position (RET) (0020,0030)");
          return 0.;  // bug in the element 0x0020,0x0032
@@ -585,7 +587,7 @@ float File::GetZOrigin()
    std::string strSliceLocation = GetEntryValue(0x0020,0x1041); // for *very* old ACR-NEMA images
    if ( strSliceLocation != GDCM_UNFOUND )
    {
-      if( sscanf( strSliceLocation.c_str(), "%f", &zImPos) != 1)
+      if( sscanf( strSliceLocation.c_str(), "%f ", &zImPos) != 1)
       {
          gdcmWarningMacro( "Wrong Slice Location (0020,1041)");
          return 0.;  // bug in the element 0x0020,0x1041
@@ -600,7 +602,7 @@ float File::GetZOrigin()
    std::string strLocation = GetEntryValue(0x0020,0x0050);
    if ( strLocation != GDCM_UNFOUND )
    {
-      if( sscanf( strLocation.c_str(), "%f", &zImPos) != 1)
+      if( sscanf( strLocation.c_str(), "%f ", &zImPos) != 1)
       {
          gdcmWarningMacro( "Wrong Location (0020,0050)");
          return 0.;  // bug in the element 0x0020,0x0050
@@ -630,7 +632,7 @@ void File::GetImageOrientationPatient( float iop[6] )
    // 0020 0037 DS REL Image Orientation (Patient)
    if ( (strImOriPat = GetEntryValue(0x0020,0x0037)) != GDCM_UNFOUND )
    {
-      if( sscanf( strImOriPat.c_str(), "%f\\%f\\%f\\%f\\%f\\%f", 
+      if( sscanf( strImOriPat.c_str(), "%f \\ %f \\%f \\%f \\%f \\%f ", 
           &iop[0], &iop[1], &iop[2], &iop[3], &iop[4], &iop[5]) != 6 )
       {
          gdcmWarningMacro( "Wrong Image Orientation Patient (0020,0037). Less than 6 values were found." );
@@ -640,7 +642,7 @@ void File::GetImageOrientationPatient( float iop[6] )
    // 0020 0035 DS REL Image Orientation (RET)
    else if ( (strImOriPat = GetEntryValue(0x0020,0x0035)) != GDCM_UNFOUND )
    {
-      if( sscanf( strImOriPat.c_str(), "%f\\%f\\%f\\%f\\%f\\%f", 
+      if( sscanf( strImOriPat.c_str(), "%f \\ %f \\%f \\%f \\%f \\%f ", 
           &iop[0], &iop[1], &iop[2], &iop[3], &iop[4], &iop[5]) != 6 )
       {
          gdcmWarningMacro( "wrong Image Orientation Patient (0020,0035). Less than 6 values were found." );
@@ -675,7 +677,7 @@ int File::GetBitsStored()
 int File::GetBitsAllocated()
 {
    std::string strSize = GetEntryValue(0x0028,0x0100);
-   if ( strSize == GDCM_UNFOUND )
+   if ( strSize == GDCM_UNFOUND  )
    {
       gdcmWarningMacro( "(0028,0100) is supposed to be mandatory");
       return 0; // It's supposed to be mandatory
@@ -779,7 +781,7 @@ int File::GetPixelSize()
  *          - 32S   signed 32 bit,
  *          - FD floating double 64 bits (Not kosher DICOM, but so usefull!)
  * \warning 12 bit images appear as 16 bit.
- *          24 bit images appear as 8 bit
+ *          24 bit images appear as 8 bit + photochromatic interp ="RGB "
  * @return  0S if nothing found. NOT USABLE file. The caller has to check
  */
 std::string File::GetPixelType()
@@ -825,20 +827,21 @@ std::string File::GetPixelType()
 }
 
 /**
- * \brief   Check whether the pixels are signed or UNsigned data.
- * \warning The method defaults to false (UNsigned) when information is Missing.
+ * \brief   Check whether the pixels are signed (1) or UNsigned (0) data.
+ * \warning The method defaults to false (UNsigned) when tag 0028|0103
+ *          is missing.
  *          The responsability of checking this value is left to the caller.
  * @return  True when signed, false when UNsigned
  */
 bool File::IsSignedPixelData()
 {
-   std::string strSize = GetEntryValue( 0x0028, 0x0103 );
-   if ( strSize == GDCM_UNFOUND )
+   std::string strSign = GetEntryValue( 0x0028, 0x0103 );
+   if ( strSign == GDCM_UNFOUND )
    {
       gdcmWarningMacro( "(0028,0103) is supposed to be mandatory");
       return false;
    }
-   int sign = atoi( strSize.c_str() );
+   int sign = atoi( strSign.c_str() );
    if ( sign == 0 ) 
    {
       return false;
@@ -847,8 +850,8 @@ bool File::IsSignedPixelData()
 }
 
 /**
- * \brief   Check whether this a monochrome picture or not by accessing
- *          the "Photometric Interpretation" tag ( 0x0028, 0x0004 ).
+ * \brief   Check whether this a monochrome picture (gray levels) or not,
+ *          using "Photometric Interpretation" tag (0x0028,0x0004).
  * @return  true when "MONOCHROME1" or "MONOCHROME2". False otherwise.
  */
 bool File::IsMonochrome()
@@ -866,6 +869,25 @@ bool File::IsMonochrome()
    return false;
 }
 
+/**
+ * \brief   Check whether this a MONOCHROME1 picture (high values = dark)
+ *            or not using "Photometric Interpretation" tag (0x0028,0x0004).
+ * @return  true when "MONOCHROME1" . False otherwise.
+ */
+bool File::IsMonochrome1()
+{
+   const std::string &PhotometricInterp = GetEntryValue( 0x0028, 0x0004 );
+   if (  Util::DicomStringEqual(PhotometricInterp, "MONOCHROME1") )
+   {
+      return true;
+   }
+   if ( PhotometricInterp == GDCM_UNFOUND )
+   {
+      gdcmWarningMacro( "Not found : Photometric Interpretation (0028,0004)");
+   }
+   return false;
+}
+
 /**
  * \brief   Check whether this a "PALETTE COLOR" picture or not by accessing
  *          the "Photometric Interpretation" tag ( 0x0028, 0x0004 ).
@@ -994,7 +1016,7 @@ float File::GetRescaleIntercept()
    const std::string &strRescInter = GetEntryValue(0x0028,0x1052);
    if ( strRescInter != GDCM_UNFOUND )
    {
-      if( sscanf( strRescInter.c_str(), "%f", &resInter) != 1 )
+      if( sscanf( strRescInter.c_str(), "%f ", &resInter) != 1 )
       {
          // bug in the element 0x0028,0x1052
          gdcmWarningMacro( "Rescale Intercept (0028,1052) is empty." );
@@ -1015,7 +1037,7 @@ float File::GetRescaleSlope()
    std::string strRescSlope = GetEntryValue(0x0028,0x1053);
    if ( strRescSlope != GDCM_UNFOUND )
    {
-      if( sscanf( strRescSlope.c_str(), "%f", &resSlope) != 1)
+      if( sscanf( strRescSlope.c_str(), "%f ", &resSlope) != 1)
       {
          // bug in the element 0x0028,0x1053
          gdcmWarningMacro( "Rescale Slope (0028,1053) is empty.");
@@ -1159,12 +1181,7 @@ void File::AddAnonymizeElement (uint16_t group, uint16_t elem,
 void File::AnonymizeNoLoad()
 {
    std::fstream *fp = new std::fstream(Filename.c_str(), 
-                              std::ios::in | std::ios::out | std::ios::binary);
-   // TODO : FIXME
-   // how to white out disk space if longer than 50 ?
-   
-   
+                              std::ios::in | std::ios::out | std::ios::binary); 
    gdcm::DocEntry *d;
    uint32_t offset;
    uint32_t lgth;
@@ -1308,10 +1325,10 @@ bool File::AnonymizeFile()
  *       (as opposed to 'DicomDir related') entries 
  *       then writes in a file all the (Dicom Elements) included the Pixels 
  * @param fileName file name to write to
- * @param filetype Type of the File to be written 
+ * @param writetype Type of the File to be written 
  *          (ACR, ExplicitVR, ImplicitVR)
  */
-bool File::Write(std::string fileName, FileType filetype)
+bool File::Write(std::string fileName, FileType writetype)
 {
    std::ofstream *fp = new std::ofstream(fileName.c_str(), 
                                          std::ios::out | std::ios::binary);
@@ -1322,18 +1339,12 @@ bool File::Write(std::string fileName, FileType filetype)
    }
 
    // Entry : 0002|0000 = group length -> recalculated
-   ValEntry *e0002 = GetValEntry(0x0002,0x0000);
-   if( e0002 )
+   ValEntry*e0000 = GetValEntry(0x0002,0x0000);
+   if( e0000 )
    {
       std::ostringstream sLen;
-      sLen << ComputeGroup0002Length(filetype);
-      e0002->SetValue(sLen.str());
-   }
-
-   // Bits Allocated
-   if ( GetEntryValue(0x0028,0x0100) ==  "12")
-   {
-      SetValEntry("16", 0x0028,0x0100);
+      sLen << ComputeGroup0002Length(writetype);
+      e0000->SetValue(sLen.str());
    }
 
    int i_lgPix = GetEntryLength(GrPixel, NumPixel);
@@ -1345,49 +1356,7 @@ bool File::Write(std::string fileName, FileType filetype)
       InsertValEntry(s_lgPix,GrPixel, 0x0000);
    }
 
-   // FIXME : should be nice if we could move it to File
-   //         (or in future gdcmPixelData class)
-
-   // Drop Palette Color, if necessary
-   if ( GetEntryValue(0x0028,0x0002).c_str()[0] == '3' )
-   {
-      // if SamplesPerPixel = 3, sure we don't need any LUT !   
-      // Drop 0028|1101, 0028|1102, 0028|1103
-      // Drop 0028|1201, 0028|1202, 0028|1203
-
-      DocEntry *e = GetDocEntry(0x0028,0x01101);
-      if (e)
-      {
-         RemoveEntryNoDestroy(e);
-      }
-      e = GetDocEntry(0x0028,0x1102);
-      if (e)
-      {
-         RemoveEntryNoDestroy(e);
-      }
-      e = GetDocEntry(0x0028,0x1103);
-      if (e)
-      {
-         RemoveEntryNoDestroy(e);
-      }
-      e = GetDocEntry(0x0028,0x01201);
-      if (e)
-      {
-         RemoveEntryNoDestroy(e);
-      }
-      e = GetDocEntry(0x0028,0x1202);
-      if (e)
-      {
-         RemoveEntryNoDestroy(e);
-      }
-      e = GetDocEntry(0x0028,0x1203);
-      if (e)
-      {
-          RemoveEntryNoDestroy(e);
-      }
-   }
-
-   Document::WriteContent(fp, filetype);
+   Document::WriteContent(fp, writetype);
 
    fp->close();
    delete fp;
@@ -1397,90 +1366,7 @@ bool File::Write(std::string fileName, FileType filetype)
 
 //-----------------------------------------------------------------------------
 // Protected
-/**
- * \brief Initialize a default DICOM File that should contain all the
- *        field require by other reader. DICOM standard does not 
- *        explicitely defines those fields, heuristic has been choosen.
- *        This is not perfect as we are writting a CT image...
- */
-void File::InitializeDefaultFile()
-{
-   std::string date = Util::GetCurrentDate();
-   std::string time = Util::GetCurrentTime();
-   std::string uid  = Util::CreateUniqueUID();
-   std::string uidMedia = uid;
-   std::string uidInst  = uid;
-   std::string uidClass = Util::CreateUniqueUID();
-   std::string uidStudy = Util::CreateUniqueUID();
-   std::string uidSerie = Util::CreateUniqueUID();
-
-   // Meta Element Group Length
-   InsertValEntry("146 ",                      0x0002, 0x0000);
-   // Media Storage SOP Class UID (CT Image Storage)
-   InsertValEntry("1.2.840.10008.5.1.4.1.1.2", 0x0002, 0x0002);
-   // Media Storage SOP Instance UID
-   InsertValEntry(uidMedia.c_str(),            0x0002, 0x0003);
-   // Transfer Syntax UID (Explicit VR Little Endian)
-   InsertValEntry("1.2.840.10008.1.2.1 ",      0x0002, 0x0010);
-   // META Implementation Class UID
-   InsertValEntry(uidClass.c_str(),            0x0002, 0x0012);
-   // Source Application Entity Title
-   InsertValEntry("GDCM",                      0x0002, 0x0016);
-
-   // Instance Creation Date
-   InsertValEntry(date.c_str(),                0x0008, 0x0012);
-   // Instance Creation Time
-   InsertValEntry(time.c_str(),                0x0008, 0x0013);
-   // SOP Class UID
-   InsertValEntry("1.2.840.10008.5.1.4.1.1.2", 0x0008, 0x0016);
-   // SOP Instance UID
-   InsertValEntry(uidInst.c_str(),             0x0008, 0x0018);
-   // Modality    
-   InsertValEntry("CT",                        0x0008, 0x0060);
-   // Manufacturer
-   InsertValEntry("GDCM",                      0x0008, 0x0070);
-   // Institution Name
-   InsertValEntry("GDCM",                      0x0008, 0x0080);
-   // Institution Address
-   InsertValEntry("http://www-creatis.insa-lyon.fr/Public/Gdcm", 0x0008, 0x0081);
-
-   // Patient's Name
-   InsertValEntry("GDCM",                      0x0010, 0x0010);
-   // Patient ID
-   InsertValEntry("GDCMID",                    0x0010, 0x0020);
-
-   // Study Instance UID
-   InsertValEntry(uidStudy.c_str(),            0x0020, 0x000d);
-   // Series Instance UID
-   InsertValEntry(uidSerie.c_str(),            0x0020, 0x000e);
-   // StudyID
-   InsertValEntry("1",                         0x0020, 0x0010);
-   // SeriesNumber
-   InsertValEntry("1",                         0x0020, 0x0011);
-
-   // Samples per pixel 1 or 3
-   InsertValEntry("1",                         0x0028, 0x0002);
-   // photochromatic interpretation
-   InsertValEntry("MONOCHROME1",               0x0028, 0x0004);
-   // nbRows
-   InsertValEntry("0",                         0x0028, 0x0010);
-   // nbCols
-   InsertValEntry("0",                         0x0028, 0x0011);
-   // BitsAllocated 8 or 12 or 16
-   InsertValEntry("8",                         0x0028, 0x0100);
-   // BitsStored    <= BitsAllocated
-   InsertValEntry("8",                         0x0028, 0x0101);
-   // HighBit       <= BitsAllocated - 1
-   InsertValEntry("7",                         0x0028, 0x0102);
-   // Pixel Representation 0(unsigned) or 1(signed)
-   InsertValEntry("0",                         0x0028, 0x0103);
-
-   // default value
-   // Special case this is the image (not a string)
-   GrPixel = 0x7fe0;
-   NumPixel = 0x0010;
-   InsertBinEntry(0, 0, GrPixel, NumPixel);
-}
+
 
 //-----------------------------------------------------------------------------
 // Private
@@ -1520,7 +1406,7 @@ void File::ComputeRLEInfo()
    //       - when more than one frame are present, then we are in 
    //         the case of a multi-frame image.
    long frameLength;
-   while ( (frameLength = ReadTagLength(0xfffe, 0xe000)) )
+   while ( (frameLength = ReadTagLength(0xfffe, 0xe000)) != 0 )
    { 
       // Parse the RLE Header and store the corresponding RLE Segment
       // Offset Table information on fragments of this current Frame.
@@ -1599,7 +1485,7 @@ void File::ComputeJPEGFragmentInfo()
    // Loop on the fragments[s] and store the parsed information in a
    // JPEGInfo.
    long fragmentLength;
-   while ( (fragmentLength = ReadTagLength(0xfffe, 0xe000)) )
+   while ( (fragmentLength = ReadTagLength(0xfffe, 0xe000)) != 0 )
    { 
       long fragmentOffset = Fp->tellg();