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

#include "eixos.inc"

#declare base =
  box{ < 0,0,0 >, <100,50,3> }

#declare chave =
  union{

    box{ < 0,0,0 >, <6,3,1> }
    box{ < 0,0,0 >, <2,3,1> translate<2,0,0.8> }

  }

#declare botao =
  cylinder{ <0,0,0>, <0,0,1> , 3}

#macro painel(k)

union{

  object{ box{ < 0,0,0 >, <10*(k-1),35,3> } texture{ pigment {color rgb<0.3,0.3,0.3>} } }

  #declare i=0;

  #while(i<=k)

    object{ chave texture{ pigment {color rgb<0.5,0.5,0.5>} } translate<(2+8*i),0,3> }

    object{ botao
      #if (mod(i-1,3)=0) texture{ pigment {color rgb<1,0,0>} }
      #else texture{ pigment {color rgb<0,1,0>} }
      #end
      translate<(6+8*i),10,3>
    }

    object{ chave texture{ pigment {color rgb<0.5,0.5,0.5>} } rotate<0,0,90> translate<(5+8*i),16,3> }
    object{ chave texture{ pigment {color rgb<0.5,0.5,0.5>} } rotate<0,0,90> translate<(9+8*i),16,3> }

    object{ botao
      #if (mod(i,3)=0) texture{ pigment {color rgb<1,0,0>} }
      #else texture{ pigment {color rgb<0,1,0>} }
      #end
      translate<(6+8*i),28,3>
    }

    #declare i = i + 1;

  #end
  
  //eixos(80)

}

#end

background{ color rgb < 0.75, 0.80, 0.85 > }
object{ painel(10) }

#include "camlight.inc"
#declare centro_cena = < 45.00, 18.00, 0.00 >;
#declare raio_cena = 67.0;
#declare dir_camera = < 4.00, -10.00, 7.00 >;
#declare dist_camera = 400.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)