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

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

#include "Tiff.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Tif_ValorTag()
 * OBJETIVO: Decir el valor anotado en un tag
 * ENTRADAS: Un tiff y el nmero de orden del tag en el directorio
 * SALIDAS:  El valor anotado en el tag
 * NOTAS:    1. El nmero de orden se empieza a contar en 0
 *           2. Se asume que el tag existe
 *           3. Esta funcin slo da el valor anotado, pero no sabe
 *              interpretarlo
 * EJEMPLO:  Tif_ValorTag ( Imagen, 0 )
 *------------------------------------------------------------------*/
entero Tif_ValorTag (Tiff, Orden)
tiff     Tiff;
contador Orden;
  {
  entero  Respuesta;
  memoria Pos;

  Pos = Tif_Directorio (Tiff) + Orden * TIF_LONGITUDTAG + 8;

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

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

  return ( Respuesta );
  }
