//Atividade 3 - Mina de Bitcoin

#declare roleta = seed(418941);

//Texturas

background{ color rgb < 0, 0, 0 > }


#declare tx = 
  texture{
    pigment{ color rgb < 1, 1, 1 > }
  }

#include "eixos.inc"

//MACRO DA CENA

#macro mina(n_camaras, m_tuneis)
	//Contadores	
	#declare i = 0;
	#declare j = 0;

	union {

	#declare centro_camaras = array[n_camaras]; //Inicializa vetor de centros das camaras
	#declare raio_camaras = array[n_camaras];  //Inicializa vetor de raios da câmara

	#while (i<n_camaras)
		#declare raio_rand = 1 + rand(roleta); //Raio da camara atual 1~2
	
		//Posição da câmara atual		
		#declare x_rand = 70*rand(roleta);
		#declare y_rand = 70*rand(roleta);
		#declare z_rand = 70*rand(roleta);

		#declare centro_atual = <x_rand,y_rand,z_rand>;

		#declare centro_camaras[i] = centro_atual; //Armazena posição no vetor
		#declare raio_camaras[i] = raio_rand; //Armazena o raio no vetor
		
		object{ sphere{ centro_atual, raio_rand } texture{ tx } }

		#declare i = i+1;
	#end

	#while (j<m_tuneis)
		#declare ind_camara_orig = 0;
		#declare ind_camara_dest = 0;

		#while(ind_camara_orig=ind_camara_dest)
			#declare ind_camara_orig = int(10*rand(roleta)); //Escolhe a câmara de saída
			#declare ind_camara_dest = int(10*rand(roleta)); //Escolhe a câmara de entrada
		#end	

		#if(ind_camara_orig != ind_camara_dest)
			#declare raio_tunel = min( raio_camaras[ind_camara_orig] , raio_camaras[ind_camara_dest] ) - 0.8;			
	
			object{ cylinder{ centro_camaras[ind_camara_orig] , centro_camaras[ind_camara_dest] , raio_tunel texture{ tx } } }
		#end
		
		#declare j = j+1;
	#end

	//Faz o poço de entrada
	#declare ind_poco_entrada = int(10*rand(roleta));
	#declare entrada = centro_camaras[ind_poco_entrada] + <0,0,50>;
	#declare raio_saida = raio_camaras[ind_poco_entrada] - 0.8;

	object{ cylinder{ centro_camaras[ind_poco_entrada] , entrada , raio_tunel texture{ tx } } }	
	
	}
#end

//Cena

union{
	//object{ eixos(10.00) } //Insere eixos na cena

	mina(50,100)
}

#include "camlight.inc"
#declare centro_cena = < -50, 0.00, 10 >;
#declare raio_cena = 100.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 5*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)