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

#include "colors.inc"

#declare semente = seed(4345);

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

#declare beta1 = 45;
#declare tau1 = 0;
#declare phi1 = 10;
#declare phi2 = -10;

#if (clock < 0.25)
  #declare beta1 = beta1 - (clock/0.25)*45;
#else
  #if (clock < 0.5)
    #declare phi1 = phi1 - ((clock-0.25)/0.25)*20;
  #else
    #if (clock < 0.65)
      #declare tau1 = tau1 + ((clock-0.50)/0.25)*45;
    #else
      #declare phi2 = phi2 + ((clock-0.65)/0.35)*40;
      #declare tau1 = tau1 + 45;
    #end
    #declare phi1 = phi1 - 20;
  #end

  #if (clock < 0.65)
    #declare beta1 = beta1 - 45;
  #else
    #declare beta1 = beta1 - 45 + ((clock-0.65)/0.35)*30;
  #end

#end

#declare biceps = 2.5 + (beta1/45)*1.5;

#declare dedos =
  union {
  #declare i = 1;
  #while (i < 5)
  object {
    cylinder {
      <0,0,0>, <5.5,0,0>, 0.5
      rotate <0, tau1 + i*20, 20*i - 40>
      pigment { Green }
    }
  }
  #declare i = i + 1;
  #end
  }

#declare mao =
  union {
    cylinder {
      <0,0,0>, <0,0,1>, 2
      pigment { Yellow }
    }
    object {
      dedos
      translate <1.0,0,0>
    }
  }

#declare anteBraco =
  union {
    cone {
      <0,0,0>, 2.0, <12,0,0>, 1.5
      pigment { Red }
    }
    sphere {
      <1,0,0>, 2.0
      pigment { Red }
    }
    sphere {
      <12,0,0>, 1.5
      pigment { Yellow }
    }
    object {
      mao

      translate <12,0,0>
    }
  }

#declare braco =
  object {
  union {
     sphere {
       <0,0,0>, 2.8
       pigment { Yellow }
     }
     union {
       cone {
         <0,0,0>, 1.5, <7,0,0>, biceps
         pigment { Brown }
       }
       cone {
         <7,0,0>, biceps, <14,0,0>, 1.5
         pigment { Brown }
       }
     }
     object {
       anteBraco
       rotate <0,beta1,0>
       translate <14,0,0>
     }
  }
  rotate <0,phi2,phi1>
  }

#declare dois_bracos =
  union {
    object {
      braco
    }
    object {
      braco
      translate <0,15,0>
      scale <0,-1,0>
    }
  }

#declare corpo =
  union {
    cone {
      <0,0,0>, 10, <0,0,40>, 15
      pigment { Brown }
    }
    sphere {
      <0,0,-18>, 8
      pigment { Yellow }
    }
    object {
      dois_bracos
      translate <7,6,6>
    }
  }

#declare objeto =
  object {
  cylinder {
    <31,0,-10>, <31,0,10>, 2
    pigment { Blue }
  }
  rotate <0,phi2,0>
  }

union {
  object {
    corpo
    translate <0,0,-5>
  }
  objeto
}

#include "camlight.inc"
camlight(<10,0,-5>,<40,50,55>,1.00,(-z),1.0)