// Last edited on 2005-01-05 23:41:22 by stolfi
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare raio = 2.000;

#declare tinta_Cinza =
  texture {
    pigment { color < 0.5, 0.5, 0.5 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_Azul =
  texture {
    pigment { color < 0.4, 0.5, 0.9 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_Vermelha =
  texture {
    pigment { color < 0.9, 0.1, 0.1 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_Marrom =
  texture {
    pigment { color < 0.5, 0.1, 0.1 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare c=clock;
#declare t1=0.33;
#declare t2=0.66;
#declare t3=1;

#declare dedo =
  difference {
    cylinder {
      < 0, 0, 0 >,
      < 0, 0.3, 0 >,
      0.5
      texture {tinta_Vermelha}
    }
    cylinder {
      < 0, -0.1, 0 >,
      < 0, 0.4, 0 >,
      0.3
      texture {tinta_Vermelha}
    }
    box { <0,0,0> <1,1,1> translate <-0.5,-0.1,0> }
    #if (c<t1)
      rotate y*3*c*75
    #else
      rotate y*75
      #if (c<t2)

      #end
    #end
  }

#declare mao =
  union {
    cylinder{ <0,0,0>, <0.5,0,0>, 0.3 texture{tinta_Vermelha} }
    object{dedo translate <0.9,-0.15,0>}
    object{dedo rotate x*180 translate <0.9,0.15,0>}
    #if (c<t1)
      rotate x*3*c*180
    #else
      rotate x*180
      #if (c<t2)

      #end
    #end

  }

#declare antebraco =
  union {
    cylinder {
      < 0, 0, 0 >,
      < 3, 0, 0 >,
      0.4
      texture {tinta_Vermelha}
    }
    object{mao translate <3,0,0>}
    #if (c<t1)
      rotate y*120*3*c
    #else
      rotate y*120
      #if (c<t2)

      #end
    #end

  }

#declare braco =
  union {
    cylinder {
      < 0, 0, 0 >,
      < 5, 0, 0 >,
      0.5
      texture {tinta_Vermelha}
    }
    object{antebraco translate <5,0,0>}
    #if (c<t1)
      rotate y*-45*3*c
    #else
      rotate y*-45
      #if (c<t2)
        rotate y*20*(c-t1)*3
      #else
        rotate y*20
      #end
    #end

  }

#declare ombro =
  union {
    cylinder {
      < 0, 0, 0 >,
      < 0, 0, -2 >,
      0.7
      texture {tinta_Vermelha}
    }
    object{braco}
    #if (c>=t2)
      rotate 55*z*3*(c-t2)
    #end
  }

#declare corpo =
  cylinder {
    <0,0,-0.5>,
    <0,0,1>,
    1
    texture {tinta_Vermelha}
    scale <1,2,1>
    translate <0,2,0>
}

#declare pescoco =
  cylinder {
    <0,0,0>,
    <0,0,2>,
    0.5
    texture {tinta_Vermelha}
    translate <0,2,1>
}

#declare cabeca =
  cylinder {
    <0,0,0>,
    <0,0,2.5>,
    1.5
    texture {tinta_Vermelha}
    translate <0,2,3>
}

#declare copo =
  cylinder {
    <0,0,0>,
    <0,0,1>,
    0.4
    texture {tinta_Azul}
    translate<4.1,2,0>
    #if (c>=t2)
      rotate -55*y*3*(c-t2)
    #end
  }

 union{
   object{ombro}
   object{ombro scale<1,1,-1> translate<0,0,-4>}
   rotate 90 *x
 }
 object{corpo}
 object{pescoco}
 object{cabeca}
 object{copo}

#include "camlight.inc"
camlight(<3,0,1>,<12,15,5>,1.00,z,1.0)