// Last edited on 2003-03-20 09:05:03 by stolfi
// arquivo de descricao de cena para POV-ray
// Laboratório 1 - MC930 - 1S/2003
// Marcelo Bello RA 992119

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

light_source {
  < -10, 20.00, -47.00 >
  color rgb 1.2*< 1.00, 1.00, 1.00 >
} 

light_source {
  < 40, 20.00, 17.00 >
  color rgb 0.6*< 1.00, 1.00, 1.00 >
} 

camera {
  location  1.0*<  20.00, 10.00, -37.00 >
  look_at   <  0.00, 0.00, 0.00 >
} 


#declare texturaPeloMacaco =
  texture {
    pigment { color rgb < 0.6, 0.2, 0.2 > }
}


#declare texturaPeleMacaco =
  texture {
    pigment { color rgb < 1.0, 0.5, 0.5 > }
  }


#declare cabecaMacaco =
union{
  // cranio
  difference {
    sphere { < 0.00, 13.00, 0.00 >, 5.0 texture{ texturaPeloMacaco } }
    cylinder { < 0.00, 13.00, -3.00 >, < 0.00, 13.00, -5.00 >, 4.0 texture{ texturaPeloMacaco } } 
  }
  // focinho
  difference {
    sphere { < 0.00, 12.0, -3.00 >, 2.5 texture{ texturaPeleMacaco } }
    cylinder{ < 0.00, 11.8, -3.00 >, <0.00, 12.2, -3.00 >, 2.5 texture{ texturaPeloMacaco } } 
  }
  // orelha esquerda
  difference {
    cylinder { < 3.50, 16.50, -1.00 >, < 3.50, 16.50, 1.00 >, 1.5 texture{ texturaPeloMacaco } }
    cylinder { < 3.50, 16.50, -1.01 >, < 3.50, 16.50, 0.50 >, 1.3 texture{ texturaPeleMacaco } }
  }
  // orelha direita
  difference {
    cylinder { < -3.50, 16.50, -1.00 >, < -3.50, 16.50, 1.00 >, 1.5 texture{ texturaPeloMacaco } }
    cylinder { < -3.50, 16.50, -1.01 >, < -3.50, 16.50, 0.50 >, 1.3 texture{ texturaPeleMacaco } }
  }
}

#declare troncoMacaco =
union {
  sphere { < 0.00, -0.40, 0.00 >, 5 scale < 1.20, 1.80, 0.80 > texture{ texturaPeloMacaco } }
}

#declare pernaEsquerda =
union {
  cylinder { < 2.20, -8.00, 0.00 >, < 6.00, -13.00, 0.00>, 1.30 texture{ texturaPeloMacaco } }
  cylinder { < 6.00, -12.70, 0.00 >, < 6.00, -21.00, 0.00>, 1.30 texture{ texturaPeloMacaco } }
}

#declare pernaDireita =
union {
  cylinder { < -2.20, -8.00, 0.00 >, < -6.00, -13.00, 0.00>, 1.30 texture{ texturaPeloMacaco } }
  cylinder { < -6.00, -12.70, 0.00 >, < -6.00, -21.00, 0.00>, 1.30 texture{ texturaPeloMacaco } }
}

#declare bracoDireito =
union {
  cylinder { < -3.50, 6.20, 0.00 >, < -10.00, 15.00, 0.00>, 1.30 texture{ texturaPeloMacaco } }
}

declare bracoEsquerdo =
union {
  cylinder { < 3.10, 6.00, 0.00 >, < 13.50, 3.00, 0.00>, 1.30 texture{ texturaPeloMacaco } }
}


union{
  object{ cabecaMacaco }
  object{ troncoMacaco }
  object{ pernaEsquerda }
  object{ pernaDireita }
  object{ bracoDireito }
  object{ bracoEsquerdo }
}