// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

#macro quadro(tt)

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

#declare raio = 2.000;

#declare ctt = cos(2*pi*tt);

#declare stt = sin(2*pi*tt);

#declare tinta_A =
  texture {
    pigment { color rgb < 0.55 + 0.45*ctt, 0.80, 0.55 - 0.5*ctt > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare bola =
  sphere {
    < 0.00, 0.00, 0.00 >, 2.00
    texture { tinta_B }
  }

object{
   union {

      union { //cabeca
         object { bola scale .7 translate <0,0,1> } //cranio
         object { bola scale .15 translate <-.4,1.4,1.2> } //olhos
         object { bola scale .15 translate <+.4,1.4,1.2> } //olhos
         object { cone { <0,1.3,.7> .2 <0,2.5,.7> 0 } } //nariz
      }

      #declare alfa=-2*pi*tt;
      #declare beta=2*sin(1+pi/2 * (4*tt));
      #declare R=2.3;

      union {
         object { bola } //tronco
         object { cylinder { <1,.7,1> <3,.9,1.5+beta> .5 } } //braco1
         object { cylinder { <-1,.7,1> <-3,.9,1.5+beta> .5 } } //braco2
         scale 1.5 translate <0,-1.5,-2.5>
      }
} texture {tinta_B }
scale .5

translate <0,R*cos(alfa),R*sin(alfa)>

}

#end

quadro(clock)

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_loc = <8.00,4.00,2.00>
// #local cam_vec = <8.00,4.00,2.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,5.041,<10,10,10>,9.165,z,1.2)