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

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

#declare tx_verde =
  texture{
    pigment{ color rgb < 0.00, 0.97, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_vermelho =
  texture{
    pigment{ color rgb < 0.97, 0.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_azul =
  texture{
    pigment{ color rgb < 0.00, 0.00, 0.97 > }
    finish{ diffuse 0.9 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_preto =
  texture{
    pigment{ color rgb < 0.00, 0.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_branco =
  texture{
    pigment{ color rgb < 1.00, 1.00, 1.00 > }
    finish{ diffuse 0.9 ambient 0.1 specular 0.5 roughness 0.005 }
  }
#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.70, 0.80, 0.70 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.80 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare raio = 2.000;

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

#declare base_painel =
  box{ <0,0,0>, <+13.0, +1.1,-0.5>
      texture{tx_fosca}
  }

#declare divisao =
  box{
    < 6.50, 1.10, 0.00 >,
    < 6.50, 0.00, +0.05 >
    texture{tx_preto}
  }

#macro lamp_verde (xx, yy)
  cylinder{
    < xx, yy, 0.00 >,
    < xx, yy, +0.05 >,
    0.05
    texture{tx_verde }
  }
#end

#macro lamp_vermelho (xx, yy)
  cylinder{
    < xx, yy, 0.00 >,
    < xx, yy, +0.05 >,
    0.05
    texture{tx_vermelho }
  }
#end

#macro lamp_azul (xx, yy)
  cylinder{
    < xx, yy, 0.00 >,
    < xx, yy, +0.05 >,
    0.05
    texture{tx_azul }
  }
#end

#macro lamp_preto (xx, yy)
  cylinder{
    < xx, yy, 0.00 >,
    < xx, yy, +0.05 >,
    0.05
    texture{tx_preto}
  }
#end

#macro botao (xx, yy)
  box{
    < xx - 0.05, yy - 0.05, 0.00 >,
    < xx + 0.05, yy + 0.05, +0.05 >
    texture{tx_branco}
  }
#end

#macro esquerda(lin, col)

   union {
      #declare i = 0;
      #while (i < lin)
         #declare k = 0;
         #if(i = 0)
            #while (k < col)
               object{ lamp_verde(0.15+k/5, 0.95-i/5) }
               #declare k = k+1;
            #end
         #else
            #if(i = 4)
               #while (k < col)
                  object{ botao(0.15+k/5, 0.95-i/5) }
                  #declare k = k+1;
               #end
            #else
               #while (k < col)
                  object{ lamp_vermelho(0.15+k/5, 0.95-i/5) }
                  #declare k = k+1;
               #end
            #end
         #end
      #declare i = i+1;
      #end
   }

#end

#macro direita(lin, col)

   union {
      #declare i = 0;
      #while (i < lin)
         #declare k = 0;
         #if(i = 0)
            #while (k < col)
               object{ lamp_azul(6.65+k/5, 0.95-i/5) }
               #declare k = k+1;
            #end
         #else
            #if(i = 1)
               #while (k < col)
                  object{ botao(6.65+k/5, 0.95-i/5) }
                  #declare k = k+1;
               #end
            #else
               #while (k < col)
                  object{ lamp_vermelho(6.65+k/5, 0.95-i/5) }
                  #declare k = k+1;
               #end
            #end
         #end
      #declare i = i+1;
      #end
   }

#end

#include "eixos.inc"

union{

  //object{ eixos(3.00) }

  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }
  object{base_painel}
  object{esquerda(5,32)}
  object{direita(5,32)}
  object{divisao}

}

#include "camlight.inc"
#declare centro_cena = < +6.00, +1.50, -2.00 >;
#declare raio_cena = 9.0;
#declare dir_camera = < -1.00, -2.00, 2.00 >;
#declare dist_camera = 20.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)