// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2017-03-31 15:44:01 by daniel cunha

// ======================================================================
// CORES E TEXTURAS

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

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

#declare tx_hatEsp = 
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_green = 
  texture{
    pigment{ color rgb < 0, 1.7, 0 > }
    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.9 ambient 0.1 }
  }

#declare tx_espelho = 
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 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 specular 0.25 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
  }

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

// Partes da cena:

#macro interpola_1(tt, tt0, vv0, tt1, vv1)
	
	#local ss = (tt-tt0)/(tt1-tt0);
	
	((1-ss)*vv0 + ss*vv1)

#end


#macro gera_segmento(m, p0, r0, p1, r1)
	
	union{
		#declare k = 0;
		#while(k < m)
			#declare pp = interpola_1(k, 0, p0, m, p1);
			#declare rr = interpola_1(k, 0, r0, m, r1);
			
			sphere{ < pp,pp,pp >, rr
	 			texture{ tx_plastico }
	  		}
	  		#declare k = k + 1;
  		#end
	}

#end


#macro interpola_3(tt, t0, t1, A, B, C, D)

	#local AB = interpola_1(tt, t0, A, t1, B);
	#local BC = interpola_1(tt, t0, B, t1, C);
	#local CD = interpola_1(tt, t0, C, t1, D);

	#local ABC = interpola_1(tt, t0, AB, t1, BC);
	#local BCD = interpola_1(tt, t0, BC, t1, CD);
	#local ABCD = interpola_1(tt, t0, ABC, t1, BCD);
  
  	(ABCD)
  	
#end


#macro gera_segmento_3(m, pA, rA, pB, rB, pC ,rC, pD, rD)
	//gera um segmento de tentaculo curvo
	//cujo eixo eh a curva de Bezer
	//pA,pB,pC,pD, e cujo raio
	//varia segundo o p dinamico
	//de Bezer rA,rB,rC,rD
	
	
		union{
		#declare k = 0;
		#while(k < m)
			#declare pp = interpola_3(k, 0, m, pA, pB, pC, pD);
			#declare rr = interpola_3(k, 0, m, rA, rB, rC, rD);
			
			sphere{ pp, rr
	 			texture{ tx_plastico }
	  		}
	  		#declare k = k + 1;
  		#end
	}
	
	

#end


#macro define_tentaculo()


#end


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

#include "eixos.inc"

// Aqui está a cena, finalmente:
  #declare p1 = <2, -15, 8>;
  #declare p2 = <7, 25, 3>;
  #declare p3 = <18, 5, 29>;
  #declare p4 = <2, -44, 60>;


  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }
  
  
  //object{ gera_segmento(25, 20, 8, 50, 1) }
  object{ gera_segmento_3(100, p1, 6, p2, 16, p3, 3, p4, 5) }

 



#include "camlight.inc"
#declare centro_cena = < 80.00, 0.00, 60.00 >;
#declare raio_cena = 100.0;
#declare dir_camera = < 35.00, -10.00, 20.00 >;
#declare dist_camera = 600.0;
#declare intens_luz = 1.0;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)