// Last edited on 2013-11-04 19:45:05 by stolfilocal
// Processed by remove-cam-lights

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

// INCLUDES INVALIDOS
// #include "textures.inc"
// #include "colors.inc"

#declare tx_plastico =
  texture{
    pigment{ color rgb < 0.10, 0.80, 1.00 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.200, 0.800, 0.300 > }

    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb 0.7*< 0.90, 0.93, 0.95 > }
    finish{ diffuse 0.2 reflection 0.5*< 0.90, 0.93, 0.95 > specular 0.2 roughness 0.02 ambient 0.1 }
  }

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

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.87, 0.85, 0.82 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 0.75
  }

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare altura=5;
#declare caixa=
        box{<-4,-1,0>,<4,1,altura+1>}
#declare visor=
        box{<-1,-1,0>,<1,1,0.1> texture{tx_vidro} translate z*(altura+1.2) translate y*(-1.6) rotate x*(-15)}

#declare botao=union{
        cylinder{<0,0,0>,<0,0,0.2>,0.2 texture{tx_espelho} translate z*(altura+1.2) translate x*(-3) translate y*(1.6)}
}
#declare botao2=
        box{<-0.1,-0.1,0>,<0.1,0.1,0.2> texture{tx_plastico} translate z*(altura+1.2) translate x*(-3) translate y*(1.6)}

#macro botoes(n,k,m)
        union{
        #if(n>7)
        #declare n = 7;
        #end
        #if(k>3)
        #declare k = 3;
        #end
        #declare i=0;
        #while (i<n)
                #declare j=0;
                #while (j<k)
                #if(mod(i,2)=0)
                object{botao translate x*i translate y*(-j)}
                #else
                object{botao2 translate x*i translate y*(-j)}
                #end
                 #declare j=j+1;
                #end

        #declare i=i+1;
        #end
        }
#end

#declare painel=union{
        box{<-4,-2-1>,<4,2,1.2> translate z*altura texture{tx_espelho}}
        botoes(6,5,2)
        }

//object{eixos(5)}
object{caixa texture{tx_espelho} }
object{visor}
object{ painel rotate x*(-15)}

#declare centro_cena = < 0.00, 0.00, 4.00 >;
#declare raio_cena = 8.50;
#declare dir_camera = < 12, 12, 3 >;
#declare dist_camera = 80.0;
#declare intens_luz = 1.40;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)