#include "textures.inc"

// CORES E TEXTURAS

background{ color rgb < 0.30 0.50 0.95 > }

#declare tx_chave = 
  texture{
    pigment{ color rgb < 0.68 0.13, 0.13 >}
    finish{ diffuse 0.7 ambient 0.5 brilliance 0.3 reflection 0.1}
  }

#declare tx_arvore = 
  texture{
    pigment{ color rgb < 0.64, 0.16, 0.16 > }
    finish{ diffuse 0.2 ambient 0.1 }
  }

#declare tx_prata = 
  texture{
    pigment{ color rgb < 0.3, 0.3, 0.3 > }
    finish{ diffuse 0.2 reflection 0.6 brilliance 0.1 }
  }

#declare tx_vidro = 
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02}
  }


#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.5, 0.44, 0.98 >, color rgb < 0.00, 0.86, 0.29 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

//MACROS

#macro bit(valor,defeito)

	#if(defeito=1)	

		object{chave}

	#else
		#if (valor = 0)

			object{chave
				rotate <0,-45,0>
			}

		#else
		
			object{chave
				rotate <0,45,0>
			}

		#end

	#end
		

#end

#macro fileira(n,valor,prob)

	#local i=0;
	#local position= <0,-n*4/2,0>;

	union{
		#while(i<n)
			#if(rand(roleta) < prob)
				object{bit(mod(valor,2),1)
					translate position
				}

			#else
				object{bit(mod(valor,2),0)
					translate position
				}

			#end
			
			#local valor = int(valor/2);
			#local position = position + <0,5,0>;
			#local i = i+1;

		#end
	}

#end	

#macro abaco(m,n,valores,prob)

	#local i=0;
	#local position= <0,0,m*3/2>;

	union{
		#while(i<m)
				object{fileira(n,valores[i],prob)
					translate position
				}
		

			#local position = position + <0,0,-3>;
			#local i = i+1;

		#end

	}
		

#end
	
// ======================================================================
// DESCRIÇÃO DA CENA 


#declare raio = 0.5;
#declare origem = <0,0,0>;

#declare roleta = seed(1);

#declare aux1 = 
	cylinder{<0,-2,0>,<0,2,0>,raio
		texture{tx_chave}
	}

#declare aux2 = 
	cylinder{origem, <2,0,0>,0.5*raio
		texture{tx_chave}
	}

#declare chave = 
	union{
		object{aux1}
		object{aux2
			translate<0,-1.7,0>
		}
		object{aux2
			translate <0,1.7,0>
		}

		translate <-2,0,0>
	}

#declare maquina =
	box{ <0,-3,2>,<5,3,-2>
	texture{tx_prata}	
	//translate <0,0,5>
}


//declaracao do vetor de valores

#declare maximo=10;

#declare valores = array[maximo];

#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 nbits1 = 7;
#declare nbits2 = 4;

#include "eixos.inc"

object{eixos(3)}

	union{
		object{maquina
			scale <0,nbits1,maximo>
			translate <0,-1.5,0>
			}
		union{
			object{abaco(maximo,nbits1,valores,0.1)}
		}
	}

	object{
		union{
			object{maquina
				scale <0,nbits2,maximo>
				translate <0,-1.5,0>
				}
			union{
				object{abaco(maximo,nbits2,valores,1)}
			}

		}
		translate <0,nbits1 +2, 0>
	}



#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 40;
#declare dir_camera = < -3,0,3 >;
#declare dist_camera = 60;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)