// Last edited on 2003-03-20 09:57:06 by stolfi
#include "colors.inc"

#background { color rgb < 0.0, 0.2, 0.1 > }

  camera {
    location <-10, 10,-30>
    look_at <0, 0,0>
  }

 light_source { <5 ,10 , -10> color 0.7*White }
 light_source { <-10 ,7 , -15> color 1.4*White }
  
 #declare cabeca=
  union{
      //orelhas (difference)
       difference{
         sphere{<-2.5,0.3,0> 1 scale <1, 1.5, .5>}
         sphere{<-2.5,0.3,-1> 1  scale <1, 1.5, 1>}
           }
	difference {
           sphere{<2.5,0.3,0> 1 scale <1,1.5, .5>}
	   sphere{<2.5,0.3,-1> 1 scale <1,1.5, 1>}
	   }
       sphere {<0,0,0>, 2 scale <1,1.5,1>}
       //parte externa do olho
       sphere {< -.5, .5, -1> 1 scale <1,1.5,1> pigment{White}}
       sphere {< .5, .5, -1> 1 scale <1,1.5,1> pigment {White}}
       //iris do olho
       sphere{< -.6,.6, -1.3> .7 scale <1,1.5,1,> pigment {Black}}
       sphere{< .6,.6, -1.3> .7 scale <1,1.5,1,> pigment {Black}}
       
       sphere {< -.3, -.9, -2.5> 1  scale <.9,1.1,.9> }
       sphere {< .3, -.9, -2.5> 1  scale <.9,1.1,.9>}
       pigment {Brown}
       }

#declare mao=
  union {
     sphere{<0,0,0>, 1.3 scale <1.5,1,.5>}
     cylinder {<0,0,0>, <-3,0,0>,.5 }
     cylinder {<-1.3,0,0>, <-1.3,-2.5,0>,.5 }
     cylinder {<-.5,0,0>, <-.5,-3,0>,.5 }
     cylinder {<0.3,0,0>, <0.3,-2.3,0>,.5 }
     cylinder {<1.1,0,0>, <1.1,-2,0>,.5 }
     pigment {Brown}
     }

     #declare corpo=
     union{
     cylinder{<0,5,0>,<0,7.3,0>,.5}
     sphere {<0,0,0>,  3 scale <.8,2,.5>}
     //braços
     cylinder {<-1,4,0>,<-7,0,0>, .5}
     cylinder {<-1,4,0>,<-7,0,0>, .5 scale <-1,1,1>}
     //pernas
     cylinder {<1,-3,0>,<3,-12,0>, .5}
     cylinder {<1,-3,0>,<3,-12,0>, .5 scale<-1,1,1>}
     sphere{ <0,0,-1.3>, 2 scale <.8,2,.6> pigment {White}}
     pigment {Brown}
     }

     union{
      object {cabeca translate<0,10,0>}
      object {corpo}
      //maos
      object{mao scale <.8,.8,.8>translate <-5.5,-3,0>rotate z*-30}
      object{mao scale <-.8,.8,.8>translate <5.5,-3,0> rotate z*30}
      //pes
      object {mao scale <.8,.8,.8> rotate y*180 rotate x*90 translate <-3,-12,0> }
      object {mao scale <.8,.8,.8> rotate x*90 translate <3,-12,0> }
      }