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

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

#declare tx_preta = 
  texture{
    pigment{ color rgb < 1, 1, 1 > }
  }

#declare tx_vermelha = 
  texture{
    pigment{ color rgb < 1.00, 0, 0 > }
}

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

#declare tx_verde = 
  texture{
    pigment{ color rgb < 0, 1, 0 > }
  }

#declare tx_azul = 
  texture{
    pigment{ color rgb < 0, 0, 1.00 > }
  }


#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:
  
#declare cabeca = 
  box{ < -0.75,-0.75,6 >, <0.75,0.75,7.5> 
	    texture{ tx_fosca }
	}

#declare pescoco = 
  box{ < -0.25,-0.25,5.75 >, <0.25,0.25,6> 
	    texture{ tx_fosca }
	}




#declare cilindro = 
  cylinder{
    < 0, 0, 7.5 >,
    < 0, 0.5, 8.5 >,
    0.25
    texture{ tx_fosca }
  }
  
#declare cilindro2 = 
  cylinder{
    < 0, 0, 7.5 >,
    < 0, -0.5, 8.5 >,
    0.25
    texture{ tx_fosca }
  }

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

#include "eixos.inc"

// Aqui está a cena, finalmente:

#macro corpo (a,b,c,d,e)
  union {
	object{ cabeca }
	object{ pescoco }
	object { cilindro }
	object { cilindro2 }
  box{ < -0.75,-1.5, 2.5 >, < 0.75, 1.5, 5.75 >
	    texture{ tx_verde }	
  
	}
	object {perna(a,b) rotate c*y translate <0,-1,2.5> }
	object {perna(a,b) rotate -c*y translate <0,1,2.5> }
	
	object {braco(d) rotate -e*x translate <0,-1.5,5.5> }
	object {braco(d) rotate e*x translate <0,1.5,5.5> }
	}
	
#end

#macro braco (d)
	union{ 
	    box{ < -0.25,-0.25, -1.803 >, <0.25,0.25,0> 
	    texture{ tx_verde }
		}
	object {antebraco() rotate -d*y translate <0, 0, -1.803> }
	}
#end

#macro antebraco ()
	union{ 
	    box{ < -0.25,-0.25, -1 >, <0.25,0.25,0> 
	    texture{ tx_fosca }
		}
	}
#end

#macro bota ()
	union{ 
	    box{ < 0,-0.25, -0.5 >, <1,0.25,0> 
	    texture{ tx_preta }
		}

	}
#end

#macro anteperna (a)
	union{ 
	    box{ < -0.25,-0.25, -1 >, <0.25,0.25,0> 
	    texture{ tx_fosca }
		}
	    object{bota() rotate a*z translate <0, 0, -1> }
	}
#end

#macro perna (a, b)
	union{ 
	    box{ < -0.25,-0.25, -1 >, <0.25,0.25,0> 
	    texture{ tx_vermelha }
		}
	    object {anteperna(a) rotate b*y translate <0,0,-1> }
	}
#end

union{
  object{ corpo(-30,15,25,20,20) }
  object{ corpo(-50,5,15,40,40) translate <0, 10, 0> }	


}



#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 30.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)