// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.5 ambient 0.5 }
  }

#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 valores=array[16];
#declare valores[0]=0+clock;
#declare valores[1]=1+clock;
#declare valores[2]=2+clock;
#declare valores[3]=3+clock;
#declare valores[3]=3+clock;
#declare valores[4]=4+clock;
#declare valores[5]=5+clock;
#declare valores[6]=6+clock;
#declare valores[7]=7+clock;
#declare valores[8]=8+clock;
#declare valores[9]=9+clock;
#declare valores[10]=10+clock;
#declare valores[11]=11+clock;
#declare valores[12]=12+clock;
#declare valores[13]=13+clock;
#declare valores[14]=14+clock;
#declare valores[15]=mod(15+clock,16); //voltando a 0 depois de 15

#declare dice = seed(5846554); //gerador de randon

#macro Abaco_Bin (bit,def)
union{
  cylinder {<0.5,0.5,0>,<0.5,0.5,2>,0.1 texture{tx_plastico}}
  box {<0,0,0>,<1,1,0.1> texture{tx_xadrez}}
  #if (def=0) //sem defeito
      sphere {<0.5,0.5,0.35+bit*1.65>,0.25 texture{tx_fosca}}
  #else
  cylinder {<0.5,0.5,0>,<0.5,0.5,2.1>,0.15}
  #end
}
#end

#macro fileira (nbits,valor,prob)
#local i=0;
#local f=mod(valor,1);
#local r=valor-f;

union{
  #while (i<nbits)

    #local e = rand(dice);
    #if (e < prob)
      #local d = 0;
    #else
      #local d = 1;
    #end

    #local vv = mod(r,2);
    #if (vv=0)
      object {Abaco_Bin(f,d) translate<i,0,0>}
      #local f = 0;
    #else
      object {Abaco_Bin(1-f,d) translate<i,0,0>}
    #end
    #local r=int(r/2);
    #local i=i+1;
  #end
}
#end

#macro matriz (m,n,valores,prob)
#local j=0;
union{
  #while (j<m)
    object {fileira(n,valores[j],prob) translate<0,j,0>}
    #local j=j+1;
  #end
}
#end

#include "eixos.inc"

union{
  object{matriz(16,4,valores,0.85) translate<0.1,0.1,0.1>}
}

#include "camlight.inc"
#declare centro_cena = < 1+clock*5.00, 4+clock*4.00, 0.00 >;
#declare raio_cena = 5+clock*10;
#declare dir_camera = < 2.5+clock*2.5, clock*2.50, 5.00 >;
#declare dist_camera = 10+clock*5;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)