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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb <  1.00, 1.0, 1.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_vermelho =
  texture{
    pigment{ color rgb <  1.00, 0.0, 0.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_met =
  texture {
    pigment { colour red 0.500 green 0.500 blue 0.500 filter 0.300}
    finish { metallic }
  }

#declare tx_fosca2 =
  texture{
    pigment{ color rgb < 1.00,0.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca3 =
  texture{
    pigment{ color rgb < 0.00, 1.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca4 =
  texture{
    pigment{ color rgb <  1.00, 1.0, 0.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

 #declare botoes =
    difference{
        object {sphere{ < 0.0 , 0.0 ,0.0 >, 0.2 } texture {tx_fosca2}}
        object { box {<-1,-1,0>, <1, 1, -1>}}}

#declare painel =
    box { <-0.8, 0, 0>, <2.2, 3, 0.5> texture {tx_fosca4}}

#declare corredor_alavanca =
  difference{
    object {cylinder {<0, 0, 0>, <1.5, 0, 0>, 0.15  }}
    object {box {<-1,-1,0.1>, <2.5, 1,-1 >}}
  }

#declare chave_pequena =
  union{

    difference{
      object {sphere{ < 0,0,0 >, 0.1 }}
      object { box{ < -2, -2 , 0 >, <2, 2.0, 2.0 > }}
      rotate <0, 180, 0>}
    cone {< 0.00, 0.0, 0 >, 0.1, <0, 0, -0.5>, 0 }
    texture {tx_fosca}}

#declare chave_grande =
  union {
     cylinder{ <0, 0, 0>, <0, 0, 1>, 0.1 texture {tx_met}}
     cylinder{ <0, 0.5, 0>, <0, 0.5, 1>, 0.1 texture {tx_met}}
     difference{
      cylinder { <0, 0, 0>, <0, 0, 1>, 0.1 rotate <-90, 0, 0> texture {tx_fosca2}}
      box {<0,0,0>, <1, 1, -0.1>}
      translate <0, -0.25, 1>}
}

#macro preenche_botoes (k, n)
union{

   #declare i=0;
   #declare j=0;

   object {painel translate <0, -0.5, -0.5>}
   object { chave_pequena rotate <0, -45, 0> translate <0, 2.4, 0.5>}
   object {chave_grande rotate <0,45, 0> translate <1.3, 1.5, 0>}
   object {corredor_alavanca translate < 0, 1.5, -0.1>}
   object {corredor_alavanca translate < 0, 2, -0.1>}

    #while (j<n)

      object {botoes translate <0.5*i, 0.5*j, 0>}

      #if (i<k)
        #declare i = i+1;

      #else
        #declare j = j+1;
        #declare i = 0;
      #end
    #end
 }
  #end

#include "eixos.inc"

union{
  eixos(3.0)
  object {preenche_botoes (7,2)}

}

#include "camlight.inc"
#declare centro_cena = < 0.50, 1.00, 0.00 >;
#declare raio_cena = 4.0;
#declare dir_camera = < 5.01, 2.01, 2.01 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)