// CORES E TEXTURAS

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

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

#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 tx_preto = 
  texture{
    pigment{ color rgb < 0.00, 0.00, 0.00 > }
  }

// DESCRIÇÃO DA CENA 

#declare fino = 0.100;

#declare valores = array[10];
#declare valores[0] = 1;
#declare valores[1] = 2;
#declare valores[2] = 3;
#declare valores[3] = 4;
#declare valores[4] = 5;
#declare valores[5] = 6;
#declare valores[6] = 7;
#declare valores[7] = 8;
#declare valores[8] = 9;
#declare valores[9] = 10;

#declare roleta = seed(417);

// Partes da cena:

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

#macro botao(a)  
  box{ <0, -0.5 , -0.5>, <0.1, 0.5, 0.5>}
  texture{ tx_plastico }
  rotate <a, 0, 0>
#end

#macro bit(valor, def)
 union{
  #if (def = 0)
    #if (valor = 1)
      object{ botao(45) }
    #else
      object{ botao(0) }
    #end    
  #end 
 }
#end

#macro fileira(n, valor, prob)
  #local i = n;
  #local aux = valor;
  
  union{
    #while (i > 0)
      #local def = (rand(roleta) < prob);
      #if (mod(aux, 2) = 1)
	object{ bit(1, def) translate <0, (n - i) * -2, 0>}
      #else
	object{ bit(0, def) translate <0, (n - i) * -2, 0>}
      #end
      #local aux = int(aux/2);
      #local i = i - 1;
    #end
  }
#end

#macro abaco(m, n, valores, prob)
  #local j = m;
  #local i = n;
  
  union{
    
    // moldura inferior
    cylinder{
      <0, 0, -1>
      <0, -n*2, -1>
      fino
      texture{ tx_plastico }
      translate <0 , 1 , 0>
    }
    
    //moldura superior
    cylinder{
      <0, 0, 2*m - 0.5>
      <0, -n*2, 2*m - 0.5>
      fino
      texture{ tx_plastico }
      translate <0 , 1 , 0>
    }
 
    //moldura esquerda
    cylinder{
      <0, -n*2, 2*m - 0.5>
      <0, -n*2, -1>
      fino
      texture{ tx_plastico }
      translate <0 , 1 , 0>
    }

    //moldura direita
    cylinder{
      <0, 0, 2*m - 0.5>
      <0, 0, -1>
      fino
      texture{ tx_plastico }
      translate <0 , 1 , 0>
    }
    
    //grade
    #while(i > 0)
      cylinder{
	<0, 0, 2*m - 0.5>
	<0, 0, -1>
	fino
	texture{ tx_plastico }
	translate <0 , (-2*i) + 2 , 0>
      }
      #local i = i - 1;
    #end

    //constroi o abaco
    #while (j > 0)
      object{fileira (n, valores[j - 1], prob) translate<0, 0, (m - j) * 2> }
      #local j = j - 1;
    #end      
    
  }    
#end
    
#include "eixos.inc"

// Aqui está a cena, finalmente:

union{
  object{ eixos(3.00) }
   
  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }
  
  object {abaco (10, 10, valores, 0.1)}
  object {abaco (5, 5, valores, 0.5) translate<0, 2*6, 0>}
}


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