/*--------------------------------------------------------------------
 * FICHERO:  TifNuTag.c
 * OBJETIVO: Definir la funcin Tif_NumeroTag()
 * AUTOR:    Pedro Reina
 * FECHA:    S.1.7.1995
 *------------------------------------------------------------------*/

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

#include "Tiff.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Tif_NumeroTag()
 * OBJETIVO: Decir el nmero de un tag
 * ENTRADAS: Un tiff y el nmero de orden del tag en el directorio
 * SALIDAS:  El nmero del tag
 * NOTAS:    1. El nmero de orden se empieza a contar en 0
 *           2. Se asume que el tag existe
 * EJEMPLO:  Tif_NumeroTag ( Imagen, 0 )
 *------------------------------------------------------------------*/
contpos Tif_NumeroTag (Tiff, Orden)
tiff     Tiff;
contador Orden;
  {
  contpos Respuesta;
  memoria Pos;

  Pos = Tif_Directorio (Tiff) + Orden * TIF_LONGITUDTAG;

  if ( Tif_Formato (Tiff) == TIF_MOTOROLA )
    { Respuesta = Mem_LeeContpos (Pos, MEM_MOTOROLA); }

  if ( Tif_Formato (Tiff) == TIF_INTEL )
    { Respuesta = Mem_LeeContpos (Pos, MEM_INTEL); }

  return ( Respuesta );
  }