// Last edited on 2003-03-19 22:54:19 by stolfi

#include "colors.inc"
#include "metals.inc"

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

light_source {
  < 10.00, 0.00, 5.00 >
  color rgb < 2.00, 2.00, 2.00 >
} 

light_source {
  < 0.00, 10.00, 0.00 >
  color rgb < 2.00, 2.00, 2.00 >
} 

light_source {
  < 0.00, 0.00, 10.00 >
  color rgb < 2.00, 2.00, 2.00 >
} 


camera {
  location  0.95*<  10 , 12, 5.00 >
  right     < -4/3, 0.00, 0.00 >
  up        <  0.00, 0.00, 1.00 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 1.70 >
} 

#declare cabeca = union{
  sphere{ <0,0,0>, 1 texture{ T_Chrome_3B}}
  sphere{ <sqrt(1 - 2*.4*.4),.4,.4>,.1 pigment{ Red}}
  sphere{ <sqrt(1 - 2*.4*.4),-.4,.4>,.1 pigment{ Red}}
  sphere{ <sqrt(1 - .4*.4),0,-.4>,.1 scale <1,3,1> texture{ T_Chrome_2A}}
}


#declare corpo= union{
  cylinder{
	<0,0,0>,
	<0,0,5>,
	1
	scale <0.4,1,1>
	texture{ T_Chrome_3B}}
  cylinder{
	<0,0,5>,
	<0,0,6>,
	0.2
	texture{ T_Chrome_3B}}
}


#declare bracod=union{
  cylinder{
	<0,0,0>,
	<0,3,0>,
	.3
	texture{ T_Chrome_3B}}

  cylinder{
	<0,3,0>,
	<1,2,-sqrt(9 - 1 - 4)>,
	.25
	texture{ T_Chrome_3B}}

  sphere{
	<0,3,0>,
	.3
	texture{ T_Chrome_3B}}
  sphere{
	<0,0,0>,
	.4
	scale <1,1.5,1>
	texture{ T_Chrome_3B}}
   }




#declare bracoe=   object{bracod scale <1,-1,-1>}


#declare pernae=union{
  cylinder{
	<0,0,0>
	<0,0,3>
	.4
	texture{ T_Chrome_3B}}

  cylinder{
	<0,0,3>
	<-1,0,-sqrt(9-1)>
	.3
	texture{ T_Chrome_3B}}

  sphere{
	<0,0,0>,.4 texture{ T_Chrome_3B}}
  sphere{
	<0,0,3>,.5 texture{ T_Chrome_3B}}

}

#declare pernad= object{pernae}


#declare robo=union{
  object{corpo}
  object{cabeca translate <0,0,6.5>}
  object{bracod translate <0,.9,4.5>}
  object{bracoe translate <0,-.9,4.5>}
  object{pernae translate <0,.7,-3>}
  object{pernad translate <0,-.7,-3>}
}

robo