// CORES E TEXTURAS

background{ color rgb < 0.8, 0.8, 1 > }

#declare tx_grama = 
  texture{
    pigment{ color rgb < 0.14, 0.56, 0.14 >}
    finish{ diffuse 0.7 ambient 0.5 }
  }

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

#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.10, 0.80, 1.00 > filter 0.90 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02}
  }


#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.98, 0.44, 0.2 >, color rgb < 1, 1, 1 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

//MACROS

#macro interpola(t0,v0,t1,v1,tt)

	#local ss = (tt- t0)/(t1-t0);
	#local rr = 1 - ss;

	(rr*v0 + ss*v1)
#end

#macro interpola4(t0,v0,v1,v2,v3,t3,tt)

	#local v01 = interpola(t0,v0,t3,v1,tt);
	#local v12 = interpola(t0,v1,t3,v2,tt);
	#local v23 = interpola(t0,v2,t3,v3,tt);

	#local v012 = interpola(t0,v01,t3,v12,tt);
	#local v123 = interpola(t0,v12,t3,v23,tt);

	interpola(t0,v012,t3,v123,tt);

#end

#macro grafico(x0,y0,y1,y2,y3,x3,N)

	#local d = (x3 - x0)/N;
	#local i = 0;
	#local xx = x0;

	#while(i < N)

		#local yy = interpola4(x0,y0,y1,y2,y3,x3,xx);

		object{
			sphere { yy, 0.15
			pigment{color rgb < i/N, 1 - i/N, i/N*N >}
			}

		}

		#local xx = xx + d;
		#local i = i+1;

		#end

#end

#macro grafico4(x0,y0,y11,y12,x1,y21,y22,x2,y31,y32,x3,y41,y42,y4,x4,N)
	
	grafico(x0,y0,y11,y12,(y12 + y21)/2,x1,N)
	grafico(x1,(y12 + y21)/2,y21,y22,(y22 + y31)/2,x2,N)
	grafico(x2,(y22 + y31)/2,y31,y32,(y32 + y41)/2,x3,N)
	grafico(x3,(y32 + y41)/2,y41,y42,y4,x4,N)

#end

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


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

#declare aureo = (sqrt(3) + 1)/2;

#declare chao =
	box{ <40,40,-5>, <-40,-40, -4>
		texture{tx_xadrez}
}

#include "eixos.inc"


grafico4(0,<7.5,6.5,2.5>,<7,5,1>,<1,4,2>,0.25,<-4,3,1>,<-3,2,2>,0.5,<4,4,1>,<6,6,4>,0.75,<8,8,8>,<8,8,4>,<7.5,6.5,2.5>,1,200)

//object{chao}

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