//Pedro Feniman 083991

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

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

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

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

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

#declare raio = 2.000;

// Partes da cena:

#macro cabeca() 
sphere{ 
	< 0,0,0 >,
 	0.5
	texture{ tx_plastico2 }
}
#end
 
#macro pescoco() 
cylinder{
    < 0, 0, 0 >,
    < 0, 0, 0.4 >,
    0.15
    texture{ tx_plastico2 }
}
#end

#declare ombro=
sphere{ 
	< 0,0,0 >,
 	0.25
	texture{ tx_plastico2 }
}


#declare cotovelo=
sphere{ 
	< 0,0,0 >,
 	0.2
	texture{ tx_plastico2 }
}

#declare cil= 
	union{
	cylinder{
	    < 0, 0, 0 >,
	    < 0, 0, 1 >,
	    0.12
	    texture{ tx_plastico2 }
	}
	object{ombro translate <0, 0, 1.15>}
	object{cotovelo translate <0, 0, -0.15>}
}


#macro antebraco (a, b) 
	union{
	object{ cil rotate <a, 0, 0 >}
	object{ braco(b) translate <0, -0.55, -1.15 > rotate <a, 0, 0 >  }
	}
#end


#macro braco (b) 
cylinder{
    < 0, 0, 0 >,
    < 0, 0, 1.0 >,
    0.12
    texture{ tx_plastico2 }
	rotate <b, 0, 0 >
}
#end

#macro orelha() 
box {
    < 0 ,0, 0> 
    <0.2, 0.25, 0.75>  
	texture{ tx_plastico2 }
}
#end

#macro corpo() 
box {
    < -0.4 ,-0.6, 0> 
    <0.4, 0.6, 2.3>  
	texture{ tx_plastico2 }
}
#end

#declare quadril=
sphere{ 
	< 0,0,0 >,
 	0.25
	texture{ tx_plastico2 }
}

#declare joelho= 
sphere{ 
	< 0,0,0 >,
 	0.2
	texture{ tx_plastico2 }
}

#declare caixaaux= 
    box {
		< 0 ,-0.2, 0> 
		<0.8, 0.2, 0.4>  
		texture{ tx_plastico2 }
}

#macro bota(c)
union{
	object{ caixaaux } 
    object{ caixaaux rotate <0, 90, 0> translate < 0,0,1 > }
} rotate <0, 0, 0>
#end

#macro batata (b, c) 
union{
	cylinder{
		< 0, 0, -1 >,
		< 0, 0, 0 >,
		0.12
		texture{ tx_plastico2 }
		rotate <b, 0, 0 >
	}
	object{ bota(c) translate <0, 0, -1.7> rotate <b, 0, 0>}
}
#end

#declare cili= 
	union{
	cylinder{
	    < 0, 0, -1 >,
	    < 0, 0, 0 >,
	    0.12
	    texture{ tx_plastico2 }
	}
	object{joelho translate <0, 0, -1.15>}
	object{quadril translate <0, 0, 0.15>}
}

#macro coxa (a, b, c) 
	union{
	object{ cili rotate <a, 0, 0 >}
	object{ batata(b, c) translate <0, 0, -1.15 > rotate <a, 0, 0 >  }
	}

#end



#macro boneco(ant1, ant2, ant3, ant4, cox1, cox2, cox3, cox4, cox5, cox6)
union{
	object{ pescoco() translate < 0, 0, 2.6 >} 
    object{ cabeca() translate < 0,0,3.4 >}
	object{ corpo() translate <0, 0, 0.4>}
	object{ orelha()  rotate < 15, 15,0 > translate <0, -0.3, 3.7> }
	object{ orelha()  rotate < -15, 0,0 > translate <0, 0.2, 3.7> }    
	object{ antebraco(ant1, ant2) translate <0, 1.4, 1.4>}
	object{ antebraco(ant3, ant4) scale <1, -1, 1> translate <0, -1.4, 1.4>}
	object{ coxa(cox1, cox2, cox3) translate <0, 0.4, 0>}
	object{ coxa(cox4, cox5, cox6) scale <1, -1, 1> translate <0, -0.4, 0> }
}
#end

object {boneco( 25, -30, 30, -33, 30, -30, 45, -30, 30, 40)translate <0, -2, 0>}
object {boneco( 30, -33, 25, -30, -30, 30, 40, 30, -30, 45) translate <0, 2, 0>}
	

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 8.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)