//Aluno: Lucas Moreira Vidigal Infante
//RA: 073371

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

#declare tx_fosca = 
  texture{
    pigment{ color rgb < 1.00, 0.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
 
#declare corpo_cabeca =
union{
  sphere{
    	< 0.00, 0.00, 0.00 >, 0.9
    	pigment{ color rgb < 0.00, 0.00, 1.00 > }
  }
  sphere{
		<0.5,0.5,0.5>, 0.2 translate <0.2, -0.3, 0>
		pigment{ color rgb < 1,1,0>}
  }
  sphere{
		<0.5,0.5,0.5>, 0.2 translate <-0.2, 0.3, 0>
		pigment{ color rgb < 1,1,0>}
  }
  sphere{
		<0.5,0.5,0.5>, 0.1  translate <0.1,0.1,-0.2>
		pigment{ color rgb < 1,1,0>}
  }
  cone {
    <0.4,-0.4,0.5>, 0.3   
    <1.1, -0.8, 1.3>, 0.1 
    pigment{ color rgb < 1,1,0>}
  }
  cone {
    <-0.4, 0.4, 0.5>, 0.3  
    <-1.1, 0.8, 1.3>, 0.1  
    pigment{ color rgb < 1,1,0>}
  }
   sphere{
		< 0.00, 0.00, 0.00 >, 1.5 translate<0,0,-2.6>
    	pigment{ color rgb < 0.00, 0.00, 1.00 > }
  }

}
#declare pe = 
	box{ <-0.5,-0.5,0>, <0.5,0.5,0.5>
	pigment { rgb < 1, 0, 0> }
	}
	
#macro canela(rotb)
union{
	cylinder {<0, 0, 0>, <0, 0, -2>, 0.25 
	pigment { rgb < 0, 0, 0> }
	}
	object { pe rotate rotb*<0,1,0> translate<0,0,-2> }
}
#end

#declare canela2=
union{
	cylinder {<0, 0, 0>, <0, 0, -2>, 0.25 
	pigment { rgb < 1, 0, 0> }
	}
	
}

#macro coxa(rota,rotb)
union{
	cylinder {<0, 0, 0>, <0, 0, -1>, 0.35
	pigment { rgb < 0, 0, 1> }
	}
	object{ canela(rotb) rotate rota*<0,1,0> translate<0,0,-1>}
}
#end
#macro braco(rota)
union{
	cylinder {<0, 0, 0>, <0, 0, -1>, 0.35
	pigment { rgb < 0, 0, 1> }
	}
	object{ canela2 rotate rota*<0,1,0> translate<0,0,-1>}
	rotate <0,180,0>
}
#end

#macro tudo(rotc,rota,rotb,rota2,rotb2)
union{
	object { corpo_cabeca rotate<0,0,-45>translate <0,0,3>}
	object{ coxa(rota,rotb) rotate rotc*<0,1,0> translate<0,1,-0.5>}
	object{ coxa(rota,rotb) rotate rotc*<0,1,0> translate<0,1,-0.5> scale <0,-1,0>}
	object{ braco(rota2) rotate rotb2*<0,1,0> translate<0,0.7,1.5>}
	object{ braco(rota2) rotate rotb2*<0,1,0> translate<0,0.7,1.5> scale <0,-1,0>}
}
#end


#include "eixos.inc"
union{
	object{ eixos(3.00) }
	object{ tudo(10,10,10,30,30) }
	object{ tudo(-10,-10,15,-30,-30) translate <0,-5,0>}

}


#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 12.0;
#declare dir_camera = <7, 0, 5>;
#declare dist_camera = 16.0;
#declare intens_luz = 0.80;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)