// Last edited on 2019-07-17 08:05:13 by stolfilocal
// Processed by remove-cam-lights

#declare roleta1 = seed(15);
#declare limites = 140;

#include "style.inc"

#include "matriz2.inc"

background{ color rgb < 0.1, 0.1, 0.1 > }

#include "metodos.inc"

union{
  suavizar(grandeMatriz, 6, 1, 0)
  suavizar(grandeMatriz, 6, 1, 1)
  suavizar(grandeMatriz, 6, 1, 2)
  suavizar(grandeMatriz, 6, 1, 3)
  suavizar(grandeMatriz, 6, 1, 4)
  suavizar(grandeMatriz, 6, 1, 5)

  #local frame = busca_tempo(clock, 3, tk);

  #if(clock <= 0.5)
    interpola1matriz(grandeMatriz, frame, frame+1, 6, tk[frame], tk[frame+1], clock, R)
    nohTX(R, 6, 50, boletaIn)
  #else
    interpola1matriz(grandeMatriz, frame, frame+1, 6, tk[frame], tk[frame+1], clock, R)
    nohTX(R, 6, 50, boletaOut)
  #end

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 35.0;
#declare dir_camera = < 4.00, 3.00, 4.00 >;
#declare dist_camera = 5*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)