MODULE RayTracer EXPORTS Main;

(*                                                            *)
(*   Descricao: Programa principal do tracador                *)
(*                                                            *)
(*                                                            *)
(*   Executavel: RT - Tracador de raios modular               *)
(*   Versao:     1.00 - Implementacao usando CSG              *)
(*   Autores:    M. Carrard e J. Stolfi                       *)
(*   Data:       03/06/93                                     *)
(*                                                            *)

IMPORT Cena, Tracer, IO, Stdio;

VAR
  cena: Cena.T;
  infile, outfile: TEXT := NIL;
BEGIN
   IO.PutText( "\nRTM v-1.00 (CSG)\n\n", Stdio.stdout );
(*   infile := IO.GetFileName( "Arquivo de entrada da cena: " ); *)
   outfile := IO.GetFileName( "Arquivo de saida da cena: " ); 
   cena := Cena.read( infile ); 
   Tracer.RayTracer( cena, outfile );
END RayTracer.