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

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

#include "Region.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Reg_Lee()
 * OBJETIVO: Almacenar el trozo tapado por una regin
 * ENTRADAS: La regin
 * SALIDAS:  Lgica, que indica que se ha podido realizar 
 *           la lectura
 * EJEMPLO:  Reg_Lee (CuadroInfo)
 * NOTA:     Si ya se hubiera leido con anterioridad, se perder
 *           la lectura anterior
 *------------------------------------------------------------------*/
logico Reg_Lee (Region)
region Region;
  {
  trozo  Trozo;
  logico Respuesta = NO;

  if ( Trozo = Trz_Crea (Reg_FilSup(Region),Reg_ColIzq(Region),
                         Reg_FilInf(Region),Reg_ColDer(Region)) )
    {
    if ( Reg_Trozo(Region) )  { Trz_Destruye (Reg_Trozo(Region)); }
    Reg_PonTrozo (Region, Trozo);
    Respuesta = SI;
    }

  return ( Respuesta );
  }
