// Last edited on DATE TIME by USER
// Processed by remove-cam-lights
#macro interpola(ta, va, tb, vb, tt)
  #local s = (tt-ta)/(tb-ta);
  ((1-s)*va+s+vb)
#end

#declare t0 = 0.000;
#declare t1 = 0.250;
#declare t2 = 0.500;
#declare t3 = 0.750;
#declare t4 = 1.000;

#declare alfa0 = -30;
#declare alfa1 = 0;
#declare beta0 = 80;
#declare beta1 = 0;
#declare gama0 = -60;
#declare gama1 = 0;

#declare tinta_A =
  texture {
    pigment { color rgb < 0.55, 0.80, 0.55 > }
    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()
  box{<0,0,0>,<0.2,0.1,0.05>}
#end

#macro anteperna(alfa)
union{
  box{<0,0,0>,<0.1,0.1,0.5>}
  object{ pe() translate<0,0,-0.025> rotate alfa*y}
}
#end

#macro perna(alfa, beta)
union{
  cone{<0.05,0.05,0>,0.05, <0.05,0.05,0.6>,0.07 texture{tinta_A}}
  object{anteperna(alfa) translate<0,0,-0.45> rotate beta*y texture{tinta_A}}
}
#end

#declare chassis =
union{
  box{ <0, 0, 0>, <1, 0.5, 0.3> }
  box{ <1,0,0>, <1.15,0.5, 0.15>}
  cylinder{<1,0,0.15>,<1,0.5,0.15>,0.15}
}

#macro saltopode(alfa, beta, gama)
union{
  object{chassis texture{tinta_B}}
  object{perna(alfa, beta) translate<0.3,0.05,-0.55> rotate gama*y}
  object{perna(alfa, beta) translate<0.3,0.40,-0.55> rotate gama*y}
}
#end

#macro cena(alfa, beta, gama, pos_x, pos_z)

#include "eixos.inc"

union
{
  object{ eixos(3.0) }

  object{saltopode(alfa, beta, gama) translate<pos_x,0,pos_z>}
}
#end

#macro quadro(tt)

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

#declare raio = 2.000;

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

#declare ctt4 = cos(6*pi*tt);

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

#if((tt>=t0) & (tt<t2))
  #declare alfa=interpola(t0, alfa0, t2, alfa1, tt);
  #declare beta=interpola(t0, beta0, t2, beta1, tt);
  #declare gama=interpola(t0, gama0, t2, gama1, tt);
#else
  #declare alfa=interpola(t2, alfa1, t4, alfa0, tt);
  #declare beta=interpola(t2, beta1, t4, beta0, tt);
  #declare gama=interpola(t2, gama1, t4, gama0, tt);
#end

#if(tt>t2)
  #declare tt2 = 1-tt;
#else
  #declare tt2 = tt;
#end

object { cena(alfa, beta, gama, tt*5, tt2*3) }

#end

quadro(clock)

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

#include "camlight.inc"
camlight(<0,0,0>,5.924,<10,10,10>,10.770,z,1.2)