// Tentativa de Macaco
// 18/03/2003 Thiago Barroso Fonte Boa

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

sky_sphere{ 
  pigment {Blue_Sky}
}

light_source {
  <1, -3, -4>
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  <  8, -5.6, -9 >
  look_at   <  0, -5.6, 0 >
} 

plane{y,-12
  texture {T_Stone15}
}

#declare cranio=
union{
  sphere{
    <0, 0, 0>,1
    pigment {color rgb <0.9,0.7,0.6>}
    scale <1.0,1.8,1.0>
  }

  sphere{
    <0,-0.4,-0.5>,0.6
    pigment {color rgb <0.8,0.7,0.6>}
    scale <1.0,1.3,1.0>
  }
}

#declare olho=
union{
  sphere{
    <-0.3,0.6,-0.8>,0.2
    pigment {color rgb <1,1,1>}
  }
}

#declare cabeca=
union{
  object{cranio}
  object{olho}
  object{olho scale<-1,1,1>}
}

#declare tronco=
union{
  cone{
    <0.0,0.0,0.0>,1.6
    <0.0,-3.6,0.0>,1
    pigment {color rgb <0.9,0.7,0.6>}
    scale <1.4,1.0,0.6>
    translate <0,-2.6,0>
  }
  cylinder{
    <0,0,0>,<0,5,0>,0.3
    pigment {color rgb <0.9,0.7,0.6>}
    translate <0,-5,0>
  }
}

#declare perna=
union{
  cylinder{
    <0,0,0>,<-0.4,-2.5,-0.3>,0.5
    pigment {color rgb <0.9,0.7,0.6>}
  }
  cylinder{
    <-0.4,-2.2,-0.3>,<-0.2,-4.5,0>,0.5
    pigment {color rgb <0.9,0.7,0.6>}
  }
  translate <-1,-5,2.8>
}

#declare braco=
union{
  cylinder{
    <0,0,0>,<-0.4,-1.8,1>,0.3
    pigment {color rgb <0.9,0.7,0.6>}
  }
  cylinder{
    <-0.4,-1.7,1>,<0.2,-2.5,-0.4>,0.3
    pigment {color rgb <0.9,0.7,0.6>}
  }
  rotate <0,0,-20>
  translate <-1.5,-2.6,1.1>
}

#declare corpo=
union{
  object{cabeca}
  object{tronco rotate <-30,0,0>}
  object{perna}
  object{perna scale <-1,1,1>}
  object{braco}
  object{braco scale <-1,1,1>}
}

object{corpo translate <0,-2.2,0>}