// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2009-03-09 18:44:03 by stolfi

#include "nuvens.inc"

// ======================================================================
// CÂMERA 

camera{
  location  < 14.00, 10.00, 3.50 >  // Posição do observador.
  right     -1.2*x                // Largura RELATIVA da imagem.
  up        0.9*y                 // Altura RELATIVA da imagem.      
  sky       z                      // Qual direção é "para cima"?
  look_at   <  0.00, 3.00, 0.00 >  // Para onde a câmera está apontando.
} 
// Nota: os parâmetros "right" e "up" devem ter a mesma proporção
// que os parâmetros ${WIDTH} e ${HEIGHT} no Makefile.

// ======================================================================
// FONTES DE LUZ

light_source{
  10 * < +50.0, +30.0, +50.0 >           // Posição da lâmpada.
  color rgb 1.0 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

light_source{
  10 * < +50.0, -10.0, +10.0 >           // Posição da lâmpada.
  color rgb 0.5 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

// ======================================================================
// EIXOS DE COORDENADAS

#macro eixo(ponta,cor,nome)
  union{
    sphere{ <0,0,0>, 0.02 }
    cylinder{ <0,0,0>, 0.91*ponta, 0.02 }
    cone{ 0.90*ponta, 0.06, ponta, 0.00 }
    texture{ pigment{ color rgb cor } finish{ ambient 0.5 diffuse 0.5 } }
  }
#end
#macro eixos(tamanho)
  union{ 
    object{ eixo( <tamanho,0,0>, <1.0,0.2,0.2>, "X") }
    object{ eixo( <0,tamanho,0>, <0.0,0.8,0.0>, "Y") }
    object{ eixo( <0,0,tamanho>, <0.3,0.3,1.0>, "Z") }
  }
#end

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

//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_textura = 
  texture{
    pigment{ color rgb < 0, 0, 0 > }
    finish{ diffuse 0.3 ambient 0.2 reflection 0.5*<1,1,1> }
  }

#declare tx_fosca = 
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_parede = 
  texture{
    pigment{ color rgb < 0.9, 0.9, 0.9 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho = 
  texture{
    pigment{ color rgb < 1.00, 0.90, 0.70 > }
    finish{ diffuse 0.1 reflection 0.8*< 1.00, 0.90, 0.70 > ambient 0.1 }
  }

#declare tx_vidro2 = 
  texture{
    pigment{ color rgb < 0.97, 0.98, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare tx_vidro = 
  texture{
    pigment{ color rgb < 0.99, 1, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

/*#declare larg = 4.5;
#declare alt = 3.6;
#declare tx_quadro =
	texture {
		pigment{ image_map { jpeg "eu.jpg" } scale <larg,alt,1> }
		//finish { ambient 1.0 } //janela
		finish { diffuse 0.8 ambient 0.2 } // quadro
	}*/

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

#declare raio = 2.000;

// Partes da cena:
  
// tp00
/*#declare bolinha = 
  sphere{ < 0,0,0 >, 0.60 }
 
#declare bolota = 
  sphere{ < 0,0,0 >, 1.50 }
 
#declare bola_grande =
  sphere{
    < 0.00, 0.00, 0.00 >, raio 
    texture{ tx_plastico }
  }
  
#declare pino = 
  cylinder{
    < -2.00, +2.00, -1.00 >,
    < +2.00, -2.00, +1.00 >,
    0.75
    texture{ tx_fosca }
  }
  
#declare furo = 
  cylinder{
    < -1.00, -2.00, -2.00 >,
    < +1.00, +2.00, +2.00 >,
    0.75*raio
    texture{ tx_fosca }
  }
*/

// sphere{ <cx,cy,cz>, raio	texture{tx_plastico}}
// cylinder{<ax,ay,az>,<bx,by,bz>,raio	"}
// cone{<ax,ay,az>,rA,<bx,by,bz>,rB	"}
// box{<ax,ay,az>,<bx,by,bz>	texture{tx_plastico}}

// tp01
/*#declare corpo =
	box
	{
		<-1, -1.00, -1.00 >,
		<1, +1.00, +1.00 >
		texture{tx_plastico}
	}

#declare topo_externo = 
	box { <-0.3,-0.3,-0.45>, <0.3,0.3,0.45> texture{tx_plastico} }

#declare topo_interno =
	box { <-0.2,-0.2,-0.55>, <0.2,0.2,0.55> texture{tx_plastico} }

#declare bico_externo =
	cylinder{ <0,0,0>,<1,0,0>, 0.2 texture{tx_fosca} }

#declare bico_interno =
	cylinder{ <0,0,0>,<2,0,0>, 0.1 texture{tx_fosca} }

#declare bola_manivela_1 =
	sphere{ <0,0,0>, 0.2 texture{tx_fosca}}

#declare bola_manivela_2 =
	sphere{ <0,0,0>, 0.065 texture{tx_plastico} }

#declare cano_manivela_1 =
	cylinder{ <0,0,0>,<0,-0.7,0>, 0.05 texture{tx_plastico} }

#declare cano_manivela_2 =
	cylinder{ <0,0,0>,<0,0,0.7>, 0.05 texture{tx_plastico} }

#declare cortador =
	box{ <0,0,0>, <10,10,10> texture{tx_fosca}}

#declare cena =

union{
	difference
	{
		union
		{
			object{ bico_externo translate <1,0,0>}
			difference
			{
				union { object{ topo_externo translate <-.7,0,1.45>} object{ corpo } }
				object{ topo_interno translate <-.7,0,1.55>}
			}
		}
		object{ bico_interno translate <1,0,0>}
	}

	union
	{
		object{ bola_manivela_1 translate <0,-1,0> }
		object{ cano_manivela_1 translate <0,-1.05,0> }
		object{ bola_manivela_2 translate <0,-1.75,0> }
		object{ cano_manivela_2 translate <0,-1.75,0> }
		object{ bola_manivela_2 translate <0,-1.75,.7> }
		object{ cano_manivela_1 translate <0,-1.75,.7> }
		object{ bola_manivela_1 translate <0,-2.45,.7> }
		object{ corpo }
	}
}

#declare corte =
	intersection{
		object{ cena }
		object{cortador translate <-4,0,-4>}
	}
*/

// tp01_2
//#declare roleta = seed(17);
//#declare numero = rand(roleta);

/*#declare cena =
union
{
	#declare i=0;
	#declare j=0;
	#declare linhas=12;
	#declare colunas=10;

	#declare incremento = .36;

	#while (i<linhas)
		#while (j<colunas)
			#if (i=2 & j=4)
			#else
			sphere { <0, j*incremento, i*incremento>, .2 texture{tx_fosca} }
			#end
			#declare j=j+1;
		#end
		#declare i=i+1;
		#declare j=0;
	#end
}*/


// tp02
/*#declare tamanho_mesa = 2.8;
#declare mesa_base =
	box { <0,0,0>, <1,tamanho_mesa,0.13> texture{tx_plastico} }

#declare mesa_perna =
	box { <0,0,0>, <0.05,0.05,1.4> texture{tx_plastico} }


#declare mesa =
	union
	{
		object{ mesa_base translate <0,0,1.35> }
		object{ mesa_perna }
		object{ mesa_perna translate <0,2.75,0> }
		object{ mesa_perna translate <.95,0,0> }
		object{ mesa_perna translate <.95,2.75,0> }
	}

#declare imac_borda_externa =
	box { <0,0,0>, <0.12,2,1> texture{tx_plastico} }

#declare imac_borda_interna =
	box { <-0.1,0.1,0.1>, <0.13,1.9,0.9> texture{tx_fosca} }

#declare imac_tela =
	box { <-0.1,0.1,0.1>, <0.09,1.9,0.9> texture{tx_fosca} }

#macro m_imac(falha)
	#if(falha)
		object{ imac_tela }
		box{ <0,0.8,-0.25>, <0.12,1.2,0.105> texture{tx_plastico} }
		text{ ttf "arial.ttf" "FALHA!" 0.15, 0 rotate 90*x rotate 90*z scale <0.5,0.5,0.5> translate <0.02,0.25,0.3>  }
	#else	
		object{ imac_tela }
		box{ <0,0.8,-0.25>, <0.12,1.2,0.105> texture{tx_plastico} }
		text{ ttf "arial.ttf" "3.1495" 0.15, 0 rotate 90*x rotate 90*z scale <0.5,0.5,0.5> translate <0.02,0.25,0.3>  }
	#end
#end

#macro imac(falha)
1	union
	{
		difference
		{
			object { imac_borda_externa }
			object { imac_borda_interna }
		}
		#if(falha)
		object{ imac_tela }
			box{ <0,0.8,-0.25>, <0.12,1.2,0.105> texture{tx_plastico} }
			text{ ttf "arial.ttf" "FALHA!" 0.15, 0 rotate 90*x rotate 90*z scale <0.5,0.5,0.5> translate <0.02,0.25,0.3>  }
		#else	
			object{ imac_tela }
			box{ <0,0.8,-0.25>, <0.12,1.2,0.105> texture{tx_plastico} }
			text{ ttf "arial.ttf" "3.1495" 0.15, 0 rotate 90*x rotate 90*z scale <0.5,0.5,0.5> translate <0.02,0.25,0.3>  }
		#end
	}
#end

#declare cadeira_base =
	box { <0,0,0>, <0.5,0.5,0.05> texture{tx_plastico} }
#declare cadeira_encosto = box { <0,0,0>, <0.07,0.5,0.6> texture{tx_plastico} }
#declare cadeira_perna = box { <0,0,0>, <0.05,0.05,0.5> texture{tx_plastico} }
#declare cadeira = 
	union
	{
		object{ cadeira_base translate <0,0,0.5>}
		object{ cadeira_encosto translate <0,0,0.5> }
		object{ cadeira_perna }
		object{ cadeira_perna translate <0.45,0.45,0> }
		object{ cadeira_perna translate <0.45,0,0> }
		object{ cadeira_perna translate <0,0.45,0> }
	}

#declare parede = box { <0,0,0>, <0.1, 15, 12> texture {tx_parede} }
#declare quadro = box { <0,0,0>, <4.5,3.6,0.05> texture {tx_quadro} }

#macro assento(falha)
union
{
	object { mesa }
	object { imac(falha) translate <0,0.4,1.65>}
	object { cadeira scale <2,2,2> rotate 180*z translate <1.8,1.5,0>}
}
#end

#macro assentos()

	#declare i=0;
	#declare j=0;
	#declare linhas=3;
	#declare colunas=4;

	#declare incremento_coluna = 4;
	#declare incremento_linha = 2;
	#declare altura_incremento = 1;

	union {
	#while (i<linhas)
		#while (j<colunas)
			#if( (j=0 & i=0 ) | (j=1 & i=2) | (j=2 & i=1) )
				object{ assento(1) translate <-i*incremento_linha, j*incremento_coluna, i*altura_incremento> }
			#else
				object{ assento(0) translate <-i*incremento_linha, j*incremento_coluna, i*altura_incremento> }
			#end

			#declare j=j+1;
		#end
		box { <0,0,0>, <incremento_linha,colunas*(tamanho_mesa)+(colunas-2)*tamanho_mesa,-i*altura_incremento-0.2> translate <-i*incremento_linha,0,i*altura_incremento> texture{tx_fosca} }
		#declare i=i+1;
		#declare j=0;
	#end

	union
	{
		object{ parede translate<-(incremento_linha)*(linhas-1)-0.1,0,-0.2>}
		object{ quadro rotate 90*x rotate 90*z translate<-(incremento_linha)*(linhas-1),2,5>}
	}
	
	}

#end
*/

/*
#macro corpo(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,c1,c2,a1,a2,a3,a4)
union
{
	sphere{ <0,0,0>, 1 texture{tx_fosca} scale <2,1,1> }
	object{ perna(p1,p2,p3) translate <-1,.8,-.5> }
	object{ perna(p4,p5,p6) scale <1,-1,1> translate <-1,-.8,-.5>  }

	object{ perna(p7,p8,p9) translate <0,.8,-.5> }
	object{ perna(p10,p11,p12) scale <1,-1,1> translate <0,-.8,-.5>  }

	object{ perna(p13,p14,p15) translate <1,.8,-.5> }
	object{ perna(p16,p17,p18) scale <1,-1,1> translate <1,-.8,-.5>  }

	object{ pescoco_e_cabeca(c1,c2) translate <1.9,0,.4> }

	object{ asa(a1,a2) translate <0,0,0> }
	object{ asa(a3,a4) scale <1,-1,1> }
}


#end

#macro pescoco_e_cabeca(alfa,beta)
union
{
	sphere{ <0,0,0>, .2 texture{tx_fosca} }
	cylinder{ <0,0,0>, <0,0,1.5> .1 texture{tx_fosca} }
	sphere{ <0,0,0>, .2 texture{tx_fosca} translate <0,0,1.5> }
	cone{ <0,0,0>, .1, <.2,0,0>, 0 texture{tx_fosca} translate <.13,0,1.5> rotate beta*y }
	rotate alfa*y
}
#end

#macro perna(alfa,beta,gama)
union
{
	sphere{ <0,0,0> .2 texture{tx_fosca} }
	cylinder{ <0,0,0>,<0,0,-1> .1  texture{tx_espelho} }
	object{ joelho_canela_pe(beta,gama) translate <0,0,-1> }
	rotate alfa*y
}
#end

#macro joelho_canela_pe(alfa, beta)
union
{
	sphere{ <0,0,0>, .2 texture{tx_fosca} }
	cylinder{ <0,0,0>,<0,0,-1> .1 texture{tx_espelho} }
	union
	{
		sphere{ <0,0,0>, .2 texture{tx_fosca} translate <0,0,-1> }
		box{ <0,0,0>, <.8,.6,.3> rotate -beta*y translate <-.25,-.3,-1.4> texture{tx_espelho} }
		
	}
	rotate alfa*y
}
#end

#macro asa(alfa, beta)
union
{
	sphere{ <0,0,0>, .2 texture{tx_fosca} }
	cylinder{ <0,0,0>, <0,0,1.5> .1 texture{tx_fosca} }
	sphere{ <0,0,0>, .2 texture{tx_fosca} translate <0,0,1.5> }
	cone{ <0,0,0>, .14, <1,0,0>, 0 texture{tx_fosca} rotate beta*y translate <0,0,1.5>}
	scale <-1,1,1>
	//rotate -90*x
	rotate alfa*y
	translate <.5,.8,.6>
}
#end
*/

#declare sz=0.4;



#include "retalho.inc"
#declare p11=<1,-1.3,0>;
#declare p12=<1,-1,2*sz>;
#declare p13=<1,-.5,2*sz>;
#declare p21=<2,-1.2,0>;
#declare p22=<2,-1,1>;
#declare p23=<2,-.5,1>;
#declare p31=<3,-1.1,0>;
#declare p32=<3,-1,1>;
#declare p33=<3,-.5,1>;
#declare p41=<3.2,-1.05,0>;
#declare p42=<3.2,-1,0>;
#declare p43=<3.2,-.5,-.16>;

#declare q12=<1,0,2*sz>;
#declare q13=<1,.5,2*sz>;
#declare q14=<1,1,2*sz>;
#declare q22=<2,0,1>;
#declare q23=<2,.5,1>;
#declare q24=<2,1,1>;
#declare q32=<3,0,1>;
#declare q33=<3,.5,1>;
#declare q34=<3,1,0>;
#declare q42=<3.2,0,0.5>;
#declare q43=<3.2,.5,0.5>;
#declare q44=<3.2,1,0>;

//#declare p14=<1,-1,0>;
#declare p14=(p13+q12)/2;

//#declare p24=<2,-1,0>;
#declare p24=(p23+q22)/2;

//#declare p34=<3,-1,0>;
#declare p34=(p33+q32)/2;

//#declare p44=<4,-1,0>;
#declare p44=(p43+q42)/2;

//#declare q11=<1,1,0>;
#declare q11=p14;

#declare q21=p24;
//#declare q21=<2,1,0>;

#declare q31=p34;
//#declare q31=<3,1,0>;

#declare q41=p44;
//#declare q41=<4,1,-1>;

#declare r12=<1,1,4*sz>;
#declare r13=<1,2,4*sz>;
#declare r14=<1,3,4*sz>;
#declare r22=<2,1,4*sz>;
#declare r23=<2,2,4*sz>;
#declare r24=<2,3,4*sz>;
#declare r32=<3,1,1>;
#declare r33=<3,2,1>;
#declare r34=<3,3,0>;
#declare r42=<3.2,1,-.16>;
#declare r43=<3.2,2,0>;
#declare r44=<3.2,3,0>;

//#declare p14=<1,-1,0>;
#declare q14=(q13+r12)/2;

//#declare p24=<2,-1,0>;
#declare q24=(q23+r22)/2;

//#declare p34=<3,-1,0>;
#declare q34=(q33+r32)/2;

//#declare p44=<4,-1,0>;
#declare q44=(q43+r42)/2;

//#declare q11=<1,1,0>;
#declare r11=q14;

#declare r21=q24;
//#declare q21=<2,1,0>;

#declare r31=q34;
//#declare q31=<3,1,0>;

#declare r41=q44;
//#declare q41=<4,1,-1>;


#declare s12=<1,4,4*sz>;
#declare s13=<1,4.5,4*sz>;
#declare s14=<1,5,4*sz>;
#declare s22=<2,4,4*sz>;
#declare s23=<2,4.5,4*sz>;
#declare s24=<2,5,4*sz>;
#declare s32=<3,4,1>;
#declare s33=<3,4.5,1>;
#declare s34=<3,5,0>;
#declare s42=<3.2,4,0>;
#declare s43=<3.2,4.5,0>;
#declare s44=<3.2,5,-0.26>;

//#declare p14=<1,-1,0>;
#declare r14=(r13+s12)/2;

//#declare p24=<2,-1,0>;
#declare r24=(r23+s22)/2;

//#declare p34=<3,-1,0>;
#declare r34=(r33+s32)/2;

//#declare p44=<4,-1,0>;
#declare r44=(r43+s42)/2;

//#declare q11=<1,1,0>;
#declare s11=r14;

#declare s21=r24;
//#declare q21=<2,1,0>;

#declare s31=r34;
//#declare q31=<3,1,0>;

#declare s41=r44;
//#declare q41=<4,1,-1>;

#declare t12=<1,5.5,4*sz>;
#declare t13=<1,6,4*sz>;
#declare t14=<1,6.5,p23.z>;
#declare t22=<2,5.5,4*sz>;
#declare t23=<2,6,4*sz>;
#declare t24=<2,6.5,4*sz>;
#declare t32=<3,5.5,1>;
#declare t33=<3,6,1>;
#declare t34=<3,6.5,0>;
#declare t42=<3.2,5.5,0.5>;
#declare t43=<3.2,6,0.5>;
#declare t44=<3.2,6.5,0>;

//#declare p14=<1,-1,0>;
#declare s14=(s13+t12)/2;

//#declare p24=<2,-1,0>;
#declare s24=(s23+t22)/2;

//#declare p34=<3,-1,0>;
#declare s34=(s33+t32)/2;

//#declare p44=<4,-1,0>;
#declare s44=(s43+t42)/2;

//#declare q11=<1,1,0>;
#declare t11=s14;

#declare t21=s24;
//#declare q21=<2,1,0>;

#declare t31=s34;
//#declare q31=<3,1,0>;

#declare t41=s44;
//#declare q41=<4,1,-1>;

#declare u12=<1,6.5,4*sz>;
#declare u13=<1,7.5,4*sz>;
#declare u14=<1,8.5,p23.z>;
#declare u22=<2,6.5,4*sz>;
#declare u23=<2,7.5,4*sz>;
#declare u24=<2,8.5,4*sz>;
#declare u32=<3,6.5,1>;
#declare u33=<3,7.5,1>;
#declare u34=<3,8.5,0>;
#declare u42=<3.2,6.5,-0.26>;
#declare u43=<3.2,7.5,0>;
#declare u44=<3.2,8.5,0>;

//#declare p14=<1,-1,0>;
#declare t14=(t13+u12)/2;

//#declare p24=<2,-1,0>;
#declare t24=(t23+u22)/2;

//#declare p34=<3,-1,0>;
#declare t34=(t33+u32)/2;

//#declare p44=<4,-1,0>;
#declare t44=(t43+u42)/2;

//#declare q11=<1,1,0>;
#declare u11=t14;

#declare u21=t24;
//#declare q21=<2,1,0>;

#declare u31=t34;
//#declare q31=<3,1,0>;

#declare u41=t44;
//#declare q41=<4,1,-1>;

#macro metade_carro()
union
{

	object{ retalho(p11,p12,p13,p14,p21,p22,p23,p24,p31,p32,p33,p34,p41,p42,p43,p44, tx_vidro, tx_textura) }
	object{ retalho(q11,q12,q13,q14,q21,q22,q23,q24,q31,q32,q33,q34,q41,q42,q43,q44, tx_vidro, tx_textura) }
	object{ retalho(r11,r12,r13,r14,r21,r22,r23,r24,r31,r32,r33,r34,r41,r42,r43,r44, tx_vidro, tx_textura) }
	object{ retalho(s11,s12,s13,s14,s21,s22,s23,s24,s31,s32,s33,s34,s41,s42,s43,s44, tx_vidro, tx_textura) }
	object{ retalho(t11,t12,t13,t14,t21,t22,t23,t24,t31,t32,t33,t34,t41,t42,t43,t44, tx_vidro, tx_textura) }
	object{ retalho(u11,u12,u13,u14,u21,u22,u23,u24,u31,u32,u33,u34,u41,u42,u43,u44, tx_vidro, tx_textura) }
}
#end

union
{
	object{ metade_carro() }
	object{ metade_carro() scale <-1,1,1> translate <2,0,0> }	

	//object{ eixos(3) }
	//tp01
	//object{ eixos(3.00) }
	//object{cena translate <0,0,3>}
	//object{corte translate <0,0,-2>}

	//tp02
	//object{ assentos() }
	//object{ cadeira }

	//tp03
	//object{ corpo(50,-30,-20,50,-30,-20,50,-60,-20,50,-45,-20,50,-45,-30,50,-60,-30,40,1,-30,30,-55,15) scale<.7,.7,.7> translate <1,1,0> }
	//object{ corpo(40,-40,-20,40,-40,-20,40,-40,-20,50,-45,-20,50,-45,-30,50,-60,-30,30,1,-20,10,-30,25) scale<.7,.7,.7> translate <-1,-2,-2> }
	//object{ corpo(60,-45,-20,60,-55,-20,60,-40,-20,50,-45,-20,50,-45,-30,50,-60,-30,50,1,-10,20,-40,40) scale<.7,.7,.7> translate <0,3,3> }
	//object{ joelho_canela_pe(10,1) }

	//rotate -90*y
	rotate 80*z
	//rotate 90*z
}