// CORES E TEXTURAS

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

#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 < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho = 
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#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 }
  }


#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 esfera = 

#declare i = 0;

#while (i < 10)

	sphere{ < 2*i, 0, 0>, i+2 translate < i+4, 0, 0 > texture {tx_xadrez} }
       

	#declare i = i + 1;

#end
*/
/*#declare plataforma = 
    box{ < -18, -12, 4 >, < 18, 12, -4 > }
*/



#macro botoes (linha, coluna) 
   union {
    #declare i = 0;
    #declare b = 3;
 
 #while (i < linha )
    #declare j = 0;
    #declare a = -7;
    #declare c = -4;
    #while (j < coluna)
      
      #if (mod(coluna, 2) = 0)
	cylinder { < a, b, c > , < a, b, c-0.5 > , 1.5 }
      #else 
        cylinder { < a, b, c > , < a, b, c-4 > , 1.5 }
      #end
      
      #declare a = a + 8.5;
      #declare j = j+1;
    
    #end

  #declare b = b - 4.5;
  #declare i = i+1;

 #end

}

#end


#macro switches(quantidade)
    union {
      #declare g = 0;
      #declare a = -8;
      #declare b = -7.5;
      #declare c = -4;

      #while (g < quantidade)
        box { < a, b, c >, < a+2, b+3, c-3 > texture {tx_fosca}}
        box { < a, b+1, c-3 >, < a+2, b+2, c-5 >  texture {tx_xadrez}}
      
      #declare g = g + 1;
      #declare a = a + 8.5;

    #end

}

#end

#macro lights(quant)
    union {
      #declare i = 0;
      #declare b = 3;
 
    #while (i < linha )
      #declare j = 0;
      #declare a = -7;
      #declare c = -4;
          #while (j < coluna)
      
         #if (coluna%2 = 0)
	    cylinder { < a, b, c > , < a, b, c-0.5 > , 1.5 }
         #else 
            cylinder { < a, b, c > , < a, b, c-4 > , 1.5 }
        
          #end
      
      #declare a = a + 8.5;
      #declare j = j+1;
    
    #end

  #declare b = b - 4.5;
  #declare i = i+1;

 #end

}

#end


#declare plataforma = 
     box { < -10, -9, 4 >, < 14, 9, -4 > }

#declare bot = botoes(2, 3);
#declare sw = switches(3);

union {
   object {bot texture {tx_xadrez} }
   object {sw}
   object {plataforma texture {tx_plastico} }
}


#include "camlight.inc"
#declare centro_cena = < 5.00, 0.00, 0.00 >;
#declare raio_cena = 30.0;
#declare dir_camera = < 5.00, 1.00, -150.00 >;
#declare dist_camera = 60.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , y, intens_luz)