// Last edited on DATE TIME by stolfi
#include "colors.inc"
#include "textures.inc"
#include "golds.inc"
#include "skies.inc" 
#include "dados.inc"
#declare ctr = <12, 5, 0>;
#declare camDir = (<28, 10, 25>) - (<12, 5, 0>);

camera {
  location   ctr + 1.00*camDir
  right      -1.00*x
  up         0.75*y
  sky        y
  look_at    ctr
}
 
sky_sphere { S_Cloud4 }
plane {y, 0  //this is the grout
   pigment { checker color Green, color White scale 3 }
   finish { ambient .4 diffuse .7 }
}

light_source{ <15, 12, 25> White }
//light_source{ <15, 12, -25> White }

#declare cor_cristal = White;
#declare tex_cristal = 
  
  texture {
    finish {
      ambient 0.1 diffuse 0.1
      reflection 0.25
      specular 1 roughness 0.001
      }
    pigment {color cor_cristal filter 1.0}
    
  }  
  
  
#declare cor_espelho = Grey;
#declare tex_espelho = 
  texture {
    finish {
      ambient 0.05 diffuse 0.05
      reflection cor_espelho
      specular 0.20 roughness 0.05
      }
    pigment {rgb cor_espelho}
    }  
    
#declare barras =
union{
    object{barra0 pigment{Yellow} }
    object{barra1 pigment{Black} translate x*4}
    object{barra2 pigment{Red} translate x*8}
    object{barra3 pigment{Green }translate x*12}
    object{barra4 pigment{Blue} translate x*16}
     object{barra5 pigment{Pink} translate x*20}
}
#declare fundo =
difference {
  box{
    <-2,0,-2>,
    <25.5,12,2>
    texture {
    finish {
      ambient 0.05 diffuse 0.5
      reflection 0
      specular 0.20 roughness 0.05
      }
    pigment {White}
    }  
    
  }
  box {
    <-10,1,-1.5>,
    <25,14,15>
    texture{tex_cristal}
  }

}

#declare grafico =
union {
 object{barras scale<1,0.1,1> translate 1*y translate 2*x}
 object{fundo translate -1*z}
} 
// Aqui está a cena, finalmente:  

union {
  
  
  object{grafico }
   
  
}