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

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

#declare tx_fosca_laranja =
  texture{
    pigment{ color rgb < 1.00, 0.270, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca_cinza =
  texture{
    pigment{ color rgb < 0.184, 0.309, 0.309 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca_azul =
  texture{
    pigment{ color rgb < 0, 0, 1 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca_azul_claro =
  texture{
    pigment{ color rgb < 0.392, 0.584, 0.929 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca_verde =
  texture{
    pigment{ color rgb < 0.196, 0.803, 0.196 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca_vermelho =
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    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.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare raio = 2.000;

#declare painel =
  box{ < 5,0,-0.5 >, < -5,0.2,4 >}

#declare chanfro_superior =
  box{ < 4.5,0,3.3 >, < -4.5,0.3,3.8 >}

#macro bolas (nbolas)
  union{
    #declare i = 0;
    #while (i < nbolas)
      cylinder{ < -3+i*2, 0, 2.8>, < -3+i*2, 0.3, 2.8>, 0.3
      #if (mod(i,2) = 0)
         texture{tx_fosca_azul} }
      #else
         texture{tx_fosca_azul_claro} }
      #end

      #declare i = i+1;
    #end
  }
#end

#macro botoes (ncol, nlin)
  union{

    #declare col = 0;
    #declare lin = 0;

    #while (col < ncol)
      #declare lin = 0;
      #while (lin < nlin)
        box{ < 0.05,0,0 >, < -0.05,0.23,0.2 >
          translate <-4+col, 0, 0.1+0.28*lin>
          #if (mod(col, 2) = 0)
            texture{tx_fosca_verde} }
          #else
            texture{tx_fosca_vermelho} }
          #end
      #declare lin = lin + 1;
      #end
    #declare col = col + 1;
    #end

  }
#end

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

#include "eixos.inc"

union{

  object{ painel texture{tx_fosca_cinza} }
  object{ chanfro_superior texture{tx_fosca_laranja} }
  object{ bolas(7) }
  object{ botoes(13,8) }

  object{ chao  translate < 0,0,-0.5 > texture{ tx_xadrez } }

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 6.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)