/* Feito por Andre Cesarino, RA 041939.*/

#include "eixos.inc"
#include "camlight.inc"

#declare centro_cena = < 1.00, 1.00, 0.00 >;
#declare raio_cena = 8.0;
#declare dir_camera = <  0.00, -10.00, 8.00 >;
#declare dist_camera = 8.0;
#declare intens_luz = 1.00;

camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)


#declare tempo = array[9] {0.0, 0.125, 0.250, 0.375, 0.500, 0.625, 0.750, 0.825, 1.000};
// #local dir_camera_x = (1-clock)*15 + clock*10;
// #local dir_camera_y = (1-clock)*20 * clock*15;
// // 
// #declare dir_camera = < -1.00, 10.00, 3.00 >;
// #declare intens_luz = 1.00;
// camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)


/* CORES E TEXTURAS*/

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

#declare cinza_brilhante = texture
{
  pigment{ color rgb <0.50, 0.50, 0.50>}
  finish { diffuse 1 specular 0.5}
}

#declare vermelho_fosco = texture
{
  pigment{ color rgb <1.00, 0.00, 0.00>}
  finish { diffuse 1 specular 0.2 }
}

#declare amarelo_fosco = texture
{
  pigment{ color rgb <1.00, 1.00, 0.00>}
  finish { diffuse 1 specular 0.2 }
}

#declare azul_transparente = texture
{
  pigment{ color rgb <0.10,0.10,0.80> filter 0.4} 
  finish{diffuse 0.05 reflection 0.25 specular 0.25}
}
#declare amarelo_transparente = texture
{
  pigment{color rgb <1.00,1.00,0.00>}
  finish{diffuse 0.05 reflection 0.25 specular 0.25}
}

#declare tx_xadrez = texture
{
  pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
  finish{ diffuse 0.9 ambient 0.1 }
  scale 2.0
}

#declare tx_vidro = 
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005}
  }
  


/* DESCRICAO DA CENA */
#declare chao = 
  box{ <-100,-100,-1>, <+100,+100,0>}

#macro dodecaedro(tamanho,posicao)
  union
  {
    intersection
    {
      plane{< 1,0, (sqrt(5)-1)/2>,tamanho}
      plane{< 1,0,-(sqrt(5)-1)/2>,tamanho}
      plane{<-1,0, (sqrt(5)-1)/2>,tamanho}
      plane{<-1,0,-(sqrt(5)-1)/2>,tamanho}
      plane{< (sqrt(5)-1)/2, 1,0>,tamanho}
      plane{< (sqrt(5)-1)/2,-1,0>,tamanho}
      plane{<-(sqrt(5)-1)/2, 1,0>,tamanho}
      plane{<-(sqrt(5)-1)/2,-1,0>,tamanho}
      plane{<0, (sqrt(5)-1)/2, 1>,tamanho}
      plane{<0, (sqrt(5)-1)/2,-1>,tamanho}
      plane{<0,-(sqrt(5)-1)/2, 1>,tamanho}
      plane{<0,-(sqrt(5)-1)/2,-1>,tamanho}
    }
    translate posicao
  }
#end

#macro octaedro(tamanho,posicao)
  union
  {
    intersection
    {
      plane{< 1, 1, 1>,tamanho}
      plane{< 1, 1,-1>,tamanho}
      plane{< 1,-1, 1>,tamanho}
      plane{< 1,-1,-1>,tamanho}
      plane{<-1, 1, 1>,tamanho}
      plane{<-1, 1,-1>,tamanho}
      plane{<-1,-1, 1>,tamanho}
      plane{<-1,-1,-1>,tamanho}
    }
    translate posicao
  }
#end

#macro icosaedro(tamanho,posicao)
  intersection
  {
    plane{< 1,0, (sqrt(3)-1)/2>,tamanho}
    plane{< 1,0,-(sqrt(3)-1)/2>,tamanho}
    plane{<-1,0, (sqrt(3)-1)/2>,tamanho}
    plane{<-1,0,-(sqrt(3)-1)/2>,tamanho}
    plane{< (sqrt(3)-1)/2, 1,0>,tamanho}
    plane{< (sqrt(3)-1)/2,-1,0>,tamanho}
    plane{<-(sqrt(3)-1)/2, 1,0>,tamanho}
    plane{<-(sqrt(3)-1)/2,-1,0>,tamanho}
    plane{<0, (sqrt(3)-1)/2, 1>,tamanho}
    plane{<0, (sqrt(3)-1)/2,-1>,tamanho}
    plane{<0,-(sqrt(3)-1)/2, 1>,tamanho}
    plane{<0,-(sqrt(3)-1)/2,-1>,tamanho}

    plane{< 1, 1, 1>,tamanho}
    plane{< 1, 1,-1>,tamanho}
    plane{< 1,-1, 1>,tamanho}
    plane{< 1,-1,-1>,tamanho}
    plane{<-1, 1, 1>,tamanho}
    plane{<-1, 1,-1>,tamanho}
    plane{<-1,-1, 1>,tamanho}
    plane{<-1,-1,-1>,tamanho}
  }
  translate posicao
#end

#macro cubo (tamanho, posicao)
  intersection
  {
    plane{< 1, 0, 0>,tamanho}
    plane{<-1, 0, 0>,tamanho}
    plane{< 0, 1, 0>,tamanho}
    plane{< 0,-1, 0>,tamanho}
    plane{< 0, 0, 1>,tamanho}
    plane{< 0, 0,-1>,tamanho}
  }  
  translate posicao  
#end

#macro cubo_octaedro (tamanho, posicao)
  intersection
  {
    object{cubo(tamanho,<0,0,0>) scale 0.87}
    object{octaedro(tamanho,<0,0,0>)}
  }
  translate posicao
#end

/*Aqui comeca a cena. */
union
{
  //object{ eixos(3.00) }

  object{ chao translate < 0,0,-5> texture {tx_xadrez}}

  object{ icosaedro(1,<0,0,0>) texture{azul_transparente} interior{ior 1.5} }

  object{ cubo_octaedro(1,<4,0,0>) texture{azul_transparente} interior{ior 1.5} }
}