// 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 }
  }

#macro pe ()
  cylinder {
    < 0.0, 0.0, 0.0 >,
    < 0.00, 0.8, 0.0 >,
    0.2
    texture { tinta_A }
  }
 #end

 #macro canela (gama)
 union{
  cylinder {
    < 0.0, 0.0, 0.1 >,
    < 0.00, 0.0, -1.0 >,
    0.2
    texture { tinta_A }
  }
  object {pe() rotate gama*x translate -0.9*z}
  }
 #end

#macro perna (beta, gama)
union{
  cylinder {
    < 0.0, 0.0, 0.2 >,
    < 0.00, 0.0, -1.50 >,
    0.2
    texture { tinta_B }
  }
  object {canela (gama) rotate beta*x translate -1.5*z}
 }
 #end

 #macro bicho (alfa, beta, gama)
union{
  sphere {
    < 1, 1, 1.60 >, 0.90
    texture { tinta_A }
  }
  box{
        <0.00, 0.00, 0.00 >,
        <2.00, 2.00, 2.00 >
        texture { tinta_B }
  }
  object {perna (beta, gama) rotate alfa*x translate 1.5*y translate 1.5*x translate 0.2*z}
  object {perna (beta, gama) rotate 180*z rotate -alfa*x translate 0.5*y translate 1.5*x translate 0.2*z}
 }
 #end

#declare t0 = 0.0;
#declare t1 = 0.25;
#declare t2 = 0.50;
#declare t3 = 0.750;
#declare t4 = 1.0;
#declare alfa0 = 45.0;
#declare alfa1 = 60.0;
#declare alfa2 = 0.0;
#declare alfa3 = 30.0;
#declare alfa4 = 45.0;
#declare beta0 = -90.0;
#declare beta1 = -120.0;
#declare beta2 = 0.0;
#declare beta3 = -60.0;
#declare beta4 = -90.0;
#declare gama0 = 45.0;
#declare gama1 = 60.0;
#declare gama2 = 0.0;
#declare gama3 = 30.0;
#declare gama4 = 45.0;
#declare fase0 = 0.0;
#declare fase1 = 0.5;
#declare fase2 = 1.0;

#macro interpola (ta, va, tb, vb, tt)
        #local s= (tt-ta)/(tb-ta);
        ((1-s)*va+s*vb)
#end

box{
        <3.00, -1.00, -3.5 >,
        <-1.00, 3.00, -1.6 >
        texture { tinta_B }
  }

#if ((clock >= t0)&(clock <= t1))
        #declare alfa = interpola (t0, alfa0, t1, alfa1,clock);
        #declare        beta = interpola (t0, beta0, t1, beta1,clock);
        #declare        gama = interpola (t0, gama0, t1, gama1,clock);
        object { bicho (alfa, beta, gama) translate <0,0,-cos(2*pi*tt)> }

#end

#if ((clock > t1)&(clock <= t2))
        #declare alfa = interpola (t1, alfa1, t2, alfa2,clock);
        #declare        beta = interpola (t1, beta1, t2, beta2,clock);
        #declare        gama = interpola (t1, gama1, t2, gama2,clock);
        object { bicho (alfa, beta, gama) translate <0,0,-cos(2*pi*tt) >}

#end
#if ((clock > t2)&(clock <= t3))
        #declare alfa = interpola (t2, alfa2, t3, alfa3,clock);
        #declare        beta = interpola (t2, beta2, t3, beta3,clock);
        #declare        gama = interpola (t2, gama2, t3, gama3,clock);
        object { bicho (alfa, beta, gama) translate <0,0,-cos(2*pi*tt)>}
#end
#if ((clock > t3)&(clock <= t4))
        #declare alfa = interpola (t3, alfa3, t4, alfa4,clock);
        #declare        beta = interpola (t3, beta3, t4, beta4,clock);
        #declare        gama = interpola (t3, gama3, t4, gama4,clock);
        object { bicho (alfa, beta, gama) translate <0,0,-cos(2*pi*tt)>}
#end
union {

  }

#end

quadro(clock)

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_loc = <10.00,6.00,0.00>
// #local cam_vec = <10.00,6.00,0.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,6.414,<10,10,10>,11.662,z,1.2)