/*--------------------------------------------------------------------
 * FICHERO:  TifInter.c
 * OBJETIVO: Definir la funcin Tif_Interpretacion()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

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

#include "Tiff.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tif_Interpretacion()
 * OBJETIVO: Decir el la interpretacin fotomtrica de la imagen
 *           que se est manejando
 * ENTRADAS: Un tiff
 * SALIDAS:  La interpretacin fotomtrica de la imagen, que
 *           puede ser
 *             TIF_BLANCO_CERO
 *             TIF_NEGRO_CERO
 *             TIF_RGB
 *             TIF_PALETA
 *             TIF_MASCARA
 * EJEMPLO:  Tif_Interpretacion ( Imagen )
 *------------------------------------------------------------------*/
contpos Tif_Interpretacion (Tiff)
tiff Tiff;
  {
  contpos Respuesta = 0; /* Aunque este tag es obligatorio, doy
                            este valor por defecto por si acaso.
                            Es TIF_BLANCO_CERO */
  logico   Sigue = SI;
  contador i;

  for ( i=0 ; i<Tif_TotalTag(Tiff) && Sigue ; i++ )
    {
    if ( Tif_NumeroTag(Tiff,i) == 262 )
      {
      Respuesta = Tif_ValorTag(Tiff,i);
      Sigue = NO;
      }
    }

  return ( Respuesta );
  }