/*--------------------------------------------------------------------
 * FICHERO:  TifTaman.c
 * OBJETIVO: Definir la funcin Tif_Tamano()
 * AUTOR:    Pedro Reina
 * FECHA:    M.4.7.1995
 *------------------------------------------------------------------*/

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

#include "Tiff.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tif_Tamano()
 * OBJETIVO: Decir el tamao en octetos de la imagen que 
 *           se est manejando
 * ENTRADAS: Un tiff
 * SALIDAS:  El tamao en octetos que ocupa la imagen o cero si
 *           no se ha podido calcular
 * EJEMPLO:  Tif_Tamano ( Imagen )
 *------------------------------------------------------------------*/
entero Tif_Tamano (Tiff)
tiff Tiff;
  {
  entero   Respuesta = 0;
  contador i;

  for ( i=0 ; i<Tif_TotalBanda(Tiff) ; i++ )
    { Respuesta += Tif_TamanoBanda(Tiff,i); }

  if ( !Respuesta )
    {
    if ( Tif_BitsPorPixel(Tiff) == 1 )  /* Imagen en blanco y negro */
      { Respuesta = Tif_Alto(Tiff) * ((Tif_Ancho(Tiff)+7)/8); }                                                   
    }

  return ( Respuesta );
  }
