/*--------------------------------------------------------------------
 * FICHERO:  TifCrea.c
 * OBJETIVO: Definir la funcin Tif_Crea()
 * AUTOR:    Pedro Reina
 * FECHA:    V.7.7.1995
 *------------------------------------------------------------------*/

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

#include "Tiff.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tif_Crea()
 * OBJETIVO: Crear un fichero TIFF
 * ENTRADAS: El nombre del fichero
 * SALIDAS:  Un objeto tiff o NIL si no se puede crear
 * EJEMPLO:  Tif_Crea ("Imagen.tif")
 * NOTA:     Slo se crea la cabecera del fichero, el resto hay
 *           que ponerlo despus
 *------------------------------------------------------------------*/
tiff Tif_Crea (Nombre)
cadena Nombre;
  {
  static octeto Cabecera[TIF_CABECERA] = {
    'I', 'I', '*', 0,  /*  Cabecera TIFF, formato Intel           */
     0,   0,   0,  0   /*  Puntero al primer directorio de imagen */
    };

  tiff    Tiff=NIL;
  fichero Fichero;

  if ( Fichero = Fch_AbreGrabar (Nombre, FCH_BINARIO) )
    {
    if ( Tiff = Tif_CreaObjeto() )
      {
      Fch_EscribeOcteto (Fichero, Cabecera, TIF_CABECERA);
      Tif_PonFichero (Tiff, Fichero);
      Tif_PonComienzoDir (Tiff, 2);  /* El 2 lo escojo para que al escribir
                                        el primer directorio se anote el
                                        valor correcto en el puntero al
                                        primer directorio */
      }
    }
    
  return ( Tiff );
  }
