// Last edited on 2010-12-16 00:40:53 by stolfilocal
// Processed by remove-cam-lights

#declare tx_vidro =
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare tx_vermelho=
  texture{
    pigment{ color rgb < 1.00, 0, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_branco=
  texture{
    pigment{ color rgb < 1, 1, 1 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#macro quadro(tt)

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

#declare raio = 2.000;

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

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

#macro pe()
    box{ <-1,-0.4,-1> , <4,0.4,2> texture{tx_branco} }
#end

#macro canela(ape)
  union{
    cylinder{<0,0,0>,<0,-5,0>,1 texture{tx_branco} }
    sphere {<0,-4,0>,1 texture{tx_vermelho}}
    object { pe() rotate ape*z translate -5*y }
}
#end

#macro coxa(ape,acanela)
  union{
    cylinder{<0,0,0>,<0,-8,0>,1 texture{tx_branco}}
    sphere {<0,-7,0>,1 texture{tx_vermelho}}
    object{ canela(ape) rotate acanela*z translate -8*y}
}
#end

#macro perna(ape,acanela,acoxa)
  union{
     cylinder{<0,0,0>,<0,-10,0>,1 texture{tx_branco}}
    sphere {<0,-9,0>,1 texture{tx_vermelho}}
     object{ coxa(ape,acanela) rotate -acoxa*z translate -10*y}
}
#end

#macro corpo(ape,acanela,acoxa)
   union{
     box{<-5,0,5>,<5,0.5,-5> texture{tx_branco}}
     object{ perna(ape,acanela,acoxa) translate 4*z  }
     object{ perna(ape,acanela,acoxa) translate -4*z  }
}

#end

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

#declare t0 = 0;
#declare t1 = 0.25;
#declare t2 = 0.5;
#declare t3 = 0.75;
#declare t4 = 1;

#declare ape0 = 90;
#declare ape1 = 90;
#declare ape2 = 90;
#declare ape3 = 0;
#declare ape4 = 90;

#declare acanela0 = -15;
#declare acanela1 = -30;
#declare acanela2 = 0;
#declare acanela3 = 0;
#declare acanela4 = -15;

#declare acoxa0 = 45;
#declare acoxa1 = 60;
#declare acoxa2 = 30;
#declare acoxa3 = 0;
#declare acoxa4 = 45;

#declare altura0 = 0;
#declare altura1 = 5;
#declare altura2 = 8;

#declare fase0=0.00;
#declare fase1 = 0.50;
#declare fase2 = 1.00;

#macro armacao(fase)

#if (fase<0.5)
#declare ape = interpola(t0,ape0,t1,ape1,fase);
#declare acanela = interpola(t0,acanela0,t1,acanela1,fase);
#declare acoxa = interpola(t0,acoxa0,t1,acoxa1,fase);
#declare altura = interpola(t0,altura0,t1,altura1,fase);
#end

#if (fase>=0.5)
#declare ape = interpola(t1,ape1,t2,ape2,fase);
#declare acanela = interpola(t1,acanela1,t2,acanela2,fase);
#declare acoxa = interpola(t1,acoxa1,t2,acoxa2,fase);
#declare altura = interpola(t0,altura1,t1,altura2,fase);
#end
object{corpo(ape,acanela,acoxa) translate altura*y}
#end

#macro voo(h,fase)

#if (fase<0.5)
#declare ape = interpola(t2,ape2,t3,ape3,fase);
#declare acanela = interpola(t2,acanela2,t3,acanela3,fase);
#declare acoxa = interpola(t2,acoxa2,t3,acoxa3,fase);
#declare altura = interpola(t0,altura0,t1,h,fase);
object{corpo(ape,acanela,acoxa) translate altura*y}

#end

#if (fase>=0.5)
#declare ape = interpola(t3,ape3,t4,ape4,fase);
#declare acanela = interpola(t3,acanela3,t4,acanela4,fase);
#declare acoxa = interpola(t3,acoxa3,t4,acoxa4,fase);
#declare altura = interpola(t0,h,t1,altura0,fase);
object{corpo(ape,acanela,acoxa) translate altura*y}
#end
#end

#macro voo_geral(h,p,q,fase)
#local r = interpola(0,p,1,q,fase);
object {voo(h,fase) translate r}
#end

#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,0,0>,3 texture{tx_branco}}

  union {
        object{voo_geral(4,<0,0,0>,<0,0,10>,clock)}
 }

#end

quadro(clock)

// Original camera parameters:
// #local cam_ctr = <2.00,-5.00,0.00>
// #local cam_loc = <0.00,20.00,-20.00>
// #local cam_vec = (<0.00,20.00,-20.00>-<2.00,-5.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<2.00,-5.00,0.00>,50.00,<10,10,10>,100.0,y,1.2)