// Last edited on 2003-04-12 06:31:15 by stolfi

#include "colors.inc"
#include "stones.inc"

background{ 0.2*Blue}
camera {
    location 0.90*<20, 1, -30>
    look_at <0,-1.5,0>
    angle 40
  }
  
light_source { 10*<500, 1500, -1000> 1.0*White }
light_source { 10*<-500, 300, -1000> 1.0*White }     
light_source { 10*<1000, 200, 500> 0.7*White }

plane {
  y, -11.3
  texture { T_Stone10} }     
  
   
#declare olho =
  sphere {
    < -1.00, 4.00, -2.00 >, .5
    pigment {Blue} 
  }

#declare boca =
  sphere {
    < 0.00, 2.00, -2.00 >, .5
    pigment {Red }
  }

#declare corpo = 
  cylinder {
    < 0.00, -5.00, 0.00 >,
    < 0.00, 0.00, 0.00 >,
    2
    pigment {Brown }
  }

#declare cabeca =
  sphere {
    < 0.00, 3.50, 0.00 >, 2.5
    pigment { Brown  }
  }

#declare membrossup = 
  cylinder {
    < -2, -1.00, 0.00 >,
    < 2, 1.00, 0.00 >,
    0.55
    pigment { Black }
  }
#declare membrosinf = 
  cylinder {
    < 0, -5.00, 0.00 >,
    < 0, -9.00, 0.00 >,
    0.55
    pigment { Black }
  }
#declare pescoco = 
  cylinder {
    < 0.00, 0.00, 0.00 >,
    < 0.00, 1.10, 0.00 >,
    0.35
    pigment { Black }
  }





union{
	object{ olho }
	object{ olho translate <2, 0, 0 >}
	object{ boca }
	object { cabeca }
	object { membrossup translate < -3.9, -1.46, 0>  }
	object { membrossup  scale < -1, 1, 1> translate<3.9,-1.46,0> }
	object {corpo}
	object { membrosinf translate <-1.5,0,0>}
	object {membrosinf scale<-1,1,1> translate<1.5,0,0>}
	object {pescoco}
}