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

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

#declare tx_metal =
  texture{
    pigment{ color rgb < 0.40, 0.40, 0.40 > }
    finish{ diffuse 0.8 reflection 0.1 ambient 0.8 specular 0.5 roughness 0.005 }
  }

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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.360, 0.360, 0.40 > }
    finish{ diffuse 0.9 reflection 0.01 ambient 0.1 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.00, 0.00, 0.00 >, color rgb < 1.00, 1.00, 1.00 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare ib = 0;

#declare raio = 0.75;

#include "eixos.inc"

#declare chao =
  box{ <-40,-40,-1>, <+40,+40,0> }

#declare tela =
  box{
    < 0.00, 0.00, 0.00 >,
    < 0.10, 4.00, 4.00 >
    texture{ tx_metal }
  }

#declare base =
  box{
    < 0.00, 0.00, 0.00 >,
    < 1.00, 10.00, 8.00 >
    texture{ tx_fosca }
  }

#macro botoes(n)
  union{
  #declare i = 0;
  #while(i<n)
    cylinder{<0,0,i>,<0,0.2,i>, 0.3
    #if(mod(i,2)=0)
      texture{tx_plastico} translate < -2,2,1 > rotate < 0,0,-90 >
    #else
      texture{tx_plastico_verde} translate < -2,2,1 > rotate < 0,0,-90 >
    #end
    }
    #declare i = i+1;
  #end
  }
#end

#macro alavancas(n)
  union{
  #declare i = 0;
  #while(i<n)
    cylinder{<0,0,2*i>,<0,2,2*i>, 0.2 texture{tx_plastico} translate < 3,3,2.5 >}
    cylinder{<-1,0.2,(2*i)-1,>,<0,0.2,2*i>, 0.1 texture{tx_metal} translate < 3,3,2.5 >}
    cylinder{<-1,1.8,(2*i)-1,>,<0,1.8,2*i>, 0.1 texture{tx_metal} translate < 3,3,2.5 >}
    #declare i = i+1;
  #end
  }
#end

#declare interruptor =
  union{
    box{<0,0,0>,<0.2,0.4,1> texture{ tx_metal } translate < 0,0,0 > }
    box{<0,0,0>,<0.2,0.4,0.5> texture{ tx_metal } translate < 0.2,0,-0.1 > rotate < 0,-30,0 >}
  }

#macro interruptores(j)
  union{
    #declare i = 0;
    #while(i<j)
      object{ interruptor translate < 2,6.8+i,2 > }
      object{ interruptor translate < 2,6.8+i,0.5 > }
    #declare i = i+1;
    #end
  }
#end

#macro painel(n,k,j)
  union{
    object{ base translate < 1,1,0 > }
    object{ tela translate < 2,6.5,3.5 > }
    object{ botoes(n) }
    object{ alavancas(k) }
    object{ interruptores(j) }
  }
#end

union{
  object{ eixos(10.00) }
  object{ chao translate < 0,0,0 > texture{ tx_xadrez } }
  object{ painel(9,5,6) }

}

#include "camlight.inc"
#declare centro_cena = < 1.00, 6.00, 3.00 >;
#declare raio_cena = 14.0;
#declare dir_camera = < 10,-6,3 >;
#declare dist_camera = 20.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)