/*--------------------------------------------------------------------
 * FICHERO:  TifSigui.c
 * OBJETIVO: Definir la funcin Tif_Siguiente()
 * AUTOR:    Pedro Reina
 * FECHA:    D.2.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Tiff.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tif_Siguiente()
 * OBJETIVO: Cargar en memoria el siguiente directorio de imagen
 * ENTRADAS: Un tiff
 * SALIDAS:  Lgica, que indica si se ha cargado el directorio
 * EJEMPLO:  Tif_Siguiente ( Imagen )
 *------------------------------------------------------------------*/
logico Tif_Siguiente (Tiff)
tiff Tiff;
  {
  logico  Respuesta;
  memoria Pos;
  entero  Nuevo;

  Pos = Tif_Directorio (Tiff) + Tif_TotalTag(Tiff) * TIF_LONGITUDTAG;

  if ( Tif_Formato (Tiff) == TIF_MOTOROLA )
    { Nuevo = Mem_LeeEntero (Pos, MEM_MOTOROLA); }

  if ( Tif_Formato (Tiff) == TIF_INTEL )
    { Nuevo = Mem_LeeEntero (Pos, MEM_INTEL); }  

  if ( Nuevo )  { Respuesta = Tif_LeeDirectorio (Tiff, Nuevo); }
  else          { Respuesta = NO; }
  
  return ( Respuesta );
  }
