// Last edited on 2009-10-11 20:16:55 by stolfilocal
// 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 tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

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

#declare furo =
  cylinder {
    < -1.00, -2.00, -2.00 >,
    < +1.00, +2.00, +2.00 >,
    1.50
    texture { tinta_B }
  }

#declare pino =
  cylinder {
    < -2.00, +2.00, -1.00 >,
    < +2.00, -2.00, +1.00 >,
    0.5 + 0.3*stt
    texture { tinta_B }
  }

#declare raio = 2.000;

#declare junta =
        sphere { <0,0,0>, 0.15 texture{tx_fosca} }

#macro pe()
        box{ < 0.5,0.8,0.2 >, < 0,0,0 > texture{tx_fosca}}
#end

#macro pe_canela(ang_pe)
        union
        {
                object{junta}
                cylinder{< 0,0,0 >,< 0,0,-1 >, 0.1 texture{tx_fosca}}
                object{junta translate <0,0,-1.1>}
                object{ pe() rotate ang_pe*x translate <-0.25,-0.25,-1.3> }
        }
#end

#macro perna(ang_joelho, ang_pe)
        union
        {
                object{junta}
                cylinder{ < 0,0,0 >, < 0,0,-1 >, 0.1 texture{tx_fosca}}
                object{ pe_canela(ang_pe) rotate ang_joelho*x translate <0,0,-1> }
        }
#end

#macro galinha(
                        ang_ponta_asa_esq,
                        ang_ponta_asa_dir,
                        ang_asa_esq,
                        ang_asa_dir,
                        ang_cabeca,
                        ang_pescoco,
                        ang_perna_diant_esq,
                        ang_perna_diant_dir,
                        ang_perna_central_esq,
                        ang_perna_central_dir,
                        ang_perna_traseiro_esq,
                        ang_perna_traseiro_dir,
                        ang_joelho_diant_esq,
                        ang_joelho_diant_dir,
                        ang_joelho_central_esq,
                        ang_joelho_central_dir,
                        ang_joelho_traseiro_esq,
                        ang_joelho_traseiro_dir,
                        ang_pe_diant_esq,
                        ang_pe_diant_dir,
                        ang_pe_central_esq,
                        ang_pe_central_dir,
                        ang_pe_traseiro_esq,
                        ang_pe_traseiro_dir,
                        )
        union
        {
                sphere{ < 0,0,0 >, 1.8  scale <0.4,0,0.4> texture{ tx_fosca }}

                object{ perna(ang_joelho_central_dir, ang_pe_central_dir) rotate ang_perna_central_dir*x translate <0.8,0,-0.1> }
                object{ perna(ang_joelho_central_esq, ang_pe_central_esq) rotate ang_perna_central_esq*x translate <0.8,0,-0.1> scale <-1,1,1>}

                object{ perna(ang_joelho_diant_dir, ang_pe_diant_dir) rotate ang_perna_diant_dir*x translate <0.8,0.95,-0.1> }
                object{ perna(ang_joelho_diant_esq, ang_pe_diant_esq) rotate ang_perna_diant_esq*x translate <0.8,0.95,-0.1> scale <-1,1,1>}

                object{ perna(ang_joelho_traseiro_dir, ang_pe_traseiro_dir) rotate ang_perna_traseiro_dir*x translate <0.8,-0.95,-0.1> }
                object{ perna(ang_joelho_traseiro_esq, ang_pe_traseiro_esq) rotate ang_perna_traseiro_esq*x translate <0.8,-0.95,-0.1> scale <-1,1,1>}

                object{ cabeca_pescoco(ang_cabeca) rotate ang_pescoco*x translate <0.1,1.8,-0.1> }

                object{ asa(ang_ponta_asa_dir) rotate ang_asa_dir*y translate <0.5,-0.4,0.5> }
                object{ asa(ang_ponta_asa_esq) rotate ang_asa_esq*y translate <0.5,-0.4,0.5> scale <-1,1,1>}
        }
#end

#macro cabeca()
        union
        {
                sphere{ < 0,0,0 >, 0.3 texture{ tx_fosca }}
                cone{ < 0,0.15,0 >, 0 < 0,0,0 >, 0.1 translate <0.15,0.3,0.10> texture{tx_fosca}}
        }
#end

#macro cabeca_pescoco(ang_cabeca)
        union
        {
                object{junta}
                cylinder{ < 0,0,0 >, < 0.1,0.1,1.4 >, 0.1 texture{tx_fosca}}
                object{ cabeca() rotate ang_cabeca*x translate <0,0,1.35> }
        }
#end

#macro ponta_asa()
        union
        {
                box{ < 0.8,1,0.1 >, <0,0,0> texture{ tx_fosca }}
        }
#end

#macro asa(ang_ponta_asa)
        union
        {
                box{ < 1.2,1.4,0.1 >, <0,0,0> texture{ tx_fosca }}
                object{ ponta_asa() rotate ang_ponta_asa*y translate <1.25,0.2,0> }
        }
#end

#macro galinha_andando(tt)

#declare ang_ponta_asa_esq = 18;
#declare ang_ponta_asa_dir = 10;
#declare ang_asa_esq = -20;
#declare ang_asa_dir = -20;
#declare ang_cabeca = -10;
#declare ang_pescoco = -15;
#declare ang_perna_diant_esq = -20;
#declare ang_perna_diant_dir = -20;
#declare ang_perna_central_esq = -20;
#declare ang_perna_central_dir = -20;
#declare ang_perna_traseiro_esq = -20;
#declare ang_perna_traseiro_dir = -20;
#declare ang_joelho_diant_esq = 30;
#declare ang_joelho_diant_dir = 30;
#declare ang_joelho_central_esq = 30;
#declare ang_joelho_central_dir = 30;
#declare ang_joelho_traseiro_esq = 30;
#declare ang_joelho_traseiro_dir = 30;
#declare ang_pe_diant_esq = -10;
#declare ang_pe_diant_dir = -10;
#declare ang_pe_central_esq = -10;
#declare ang_pe_central_dir = -10;
#declare ang_pe_traseiro_esq = -10;
#declare ang_pe_traseiro_dir = -10;

#declare ta = tt;

define_angulo_perna(ang_perna_diant_dir, ang_joelho_diant_dir, ang_pe_diant_dir, ta)

define_angulo_perna(ang_perna_diant_esq, ang_joelho_diant_esq, ang_pe_diant_esq, mod(ta + 0.5, 1))

define_angulo_perna(ang_perna_central_dir, ang_joelho_central_dir, ang_pe_diant_dir, mod(ta + 0.5, 1))

define_angulo_perna(ang_perna_central_esq, ang_joelho_central_esq, ang_pe_diant_esq, ta)

define_angulo_perna(ang_perna_traseiro_dir, ang_joelho_traseiro_dir, ang_pe_diant_dir, ta)

define_angulo_perna(ang_perna_traseiro_esq, ang_joelho_traseiro_esq, ang_pe_diant_esq, mod(ta + 0.5, 1))

object
{
        galinha(ang_ponta_asa_esq,
                        ang_ponta_asa_dir,
                        ang_asa_esq,
                        ang_asa_dir,
                        ang_cabeca,
                        ang_pescoco,
                        ang_perna_diant_esq,
                        ang_perna_diant_dir,
                        ang_perna_central_esq,
                        ang_perna_central_dir,
                        ang_perna_traseiro_esq,
                        ang_perna_traseiro_dir,
                        ang_joelho_diant_esq,
                        ang_joelho_diant_dir,
                        ang_joelho_central_esq,
                        ang_joelho_central_dir,
                        ang_joelho_traseiro_esq,
                        ang_joelho_traseiro_dir,
                        ang_pe_diant_esq,
                        ang_pe_diant_dir,
                        ang_pe_central_esq,
                        ang_pe_central_dir,
                        ang_pe_traseiro_esq,
                        ang_pe_traseiro_dir
                        )

}

#end

#macro define_angulo_perna(a, b, c, te)
        #local t0 = 0.0000;
        #local t1 = 0.2000;
        #local t2 = 0.4000;
        #local t3 = 0.6000;
        #local t4 = 0.8000;
        #local t5 = 1.0000;
        #local a0 = -20;
        #local a1 = -10;
        #local a2 = +15;
        #local a3 = +20;
        #local a4 = 0;
        #local a5 = -20;
        #local b0 = 30;
        #local b1 = 45;
        #local b2 = 45;
        #local b3 = 10;
        #local b4 = 20;
        #local b5 = 30;
        #local c0 = -10;
        #local c1 = 10;
        #local c2 = 20;
        #local c3 = -20;
        #local c4 = -10 + a4 + b4;
        #local c5 = -20 + a5 + b5;

        #if(te >= t1 & te < t2)
                interpola_perna(a, b, c, a0, b0, c0, a1, b1, c1, te, t0, t1)
        #end
        #if(te >= t1 & te < t2)
                interpola_perna(a, b, c, a1, b1, c1, a2, b2, c2, te, t1, t2)
        #end
        #if(te >= t2 & te < t3)
                interpola_perna(a, b, c, a2, b2, c2, a3, b3, c3, te, t2, t3)
        #end
        #if(te >= t3 & te < t4)
                interpola_perna(a, b, c, a3, b3, c3, a4, b4, c4, te, t3, t4)
        #end
        #if(te >= t4 & te < t5)
                interpola_perna(a, b, c, a4, b4, c4, a5, b5, c5, te, t4, t5)
        #end

#end

#macro interpola_perna(a, b, c, a0, b0, c0, a1, b1, c1, tt, t0, t1)
        #local rr = (tt-t0)/(t1-t0);
        #declare a = interpola(a0, a1, rr);
        #declare b = interpola(b0, b1, rr);
        #declare c = interpola(c0, c1, rr);
#end

#macro interpola(x0, x1, rr)
        (1-rr)*x0 + rr*x1
#end

  union {
    object { galinha_andando(clock) }
  }

#end

quadro(clock)

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

#include "camlight.inc"
camlight(<0,0,-0.7>,4.7,<10,10,10>,30.0,z,1.2)