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

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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

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

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

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare raio_tronco = 0.300;

#declare cedula =
  box{ <-0.1,-0.2,0>, <+0.1,+0.2,0> }

#declare tronco =
cylinder
    {
        <0,0,0>, <0,0,5>,
        raio_tronco
        texture{ tx_fosca }
    }

#declare bico_tronco =
cone{

    <0, 0, 5>, raio_tronco,
    <0, 0, 6>, 0.1 * raio_tronco
    texture{ tx_fosca }
  }

#declare raio_cabeca = 0.5;
#declare raio_chapeu = 1;

#declare largura_membro = 1;
#declare abertura_perna = 0.2;
#declare largura_corpo  = 2*largura_membro + abertura_perna;

#declare tamanho_pe = 2;
#declare tamanho_anteperna = 3;
#declare tamanho_perna = 4;

#declare numero_quadros = 6;
#declare fase_quadro = array[numero_quadros];
#declare fase_quadro[0] = 0.0;
#declare fase_quadro[1] = 0.2;
#declare fase_quadro[2] = 0.4;
#declare fase_quadro[3] = 0.6;
#declare fase_quadro[4] = 0.8;
#declare fase_quadro[5] = 1.0;

#declare anguloABE = array[numero_quadros];
#declare anguloABE[0] = 0;
#declare anguloABE[1] = 0;
#declare anguloABE[2] = -45;
#declare anguloABE[3] = -45;
#declare anguloABE[4] = 0;
#declare anguloABE[5] = 0;

#declare anguloABD = array[numero_quadros];
#declare anguloABD[0] = 0;
#declare anguloABD[1] = 0;
#declare anguloABD[2] = 45;
#declare anguloABD[3] = 45;
#declare anguloABD[4] = 0;
#declare anguloABD[5] = 0;

#declare anguloME = array[numero_quadros];
#declare anguloME[0] = 0;
#declare anguloME[1] = 0;
#declare anguloME[2] = 0;
#declare anguloME[3] = 0;
#declare anguloME[4] = 0;
#declare anguloME[5] = 45;

#declare anguloMD = array[numero_quadros];
#declare anguloMD[0] = 0;
#declare anguloMD[1] = 0;
#declare anguloMD[2] = 0;
#declare anguloMD[3] = 0;
#declare anguloMD[4] = 0;
#declare anguloMD[5] = -45;

#declare anguloPE = array[numero_quadros];
#declare anguloPE[0] = 45;
#declare anguloPE[1] = 0;
#declare anguloPE[2] = 0;
#declare anguloPE[3] = 0;
#declare anguloPE[4] = -90;
#declare anguloPE[5] = 0;

#declare anguloPD = array[numero_quadros];
#declare anguloPD[0] = -45;
#declare anguloPD[1] = 0;
#declare anguloPD[2] = -90;
#declare anguloPD[3] = 0;
#declare anguloPD[4] = 0;
#declare anguloPD[5] = 0;

#declare anguloAPE = array[numero_quadros];
#declare anguloAPE[0] = 0;
#declare anguloAPE[1] = 0;
#declare anguloAPE[2] = 0;
#declare anguloAPE[3] = 0;
#declare anguloAPE[4] = 90;
#declare anguloAPE[5] = 0;

#declare anguloAPD = array[numero_quadros];
#declare anguloAPD[0] = 0;
#declare anguloAPD[1] = 0;
#declare anguloAPD[2] = 90;
#declare anguloAPD[3] = 0;
#declare anguloAPD[4] = 0;
#declare anguloAPD[5] = 0;

#macro cabeca()
  union{

    sphere {
      <0, 0, raio_cabeca>, // center
      raio_cabeca // radius
      texture{ tx_fosca }
    }

    cylinder
    {
        <0, 0, raio_cabeca + 0.1>, <0, 0, raio_cabeca + 0.2>,
        raio_chapeu
        texture{ tx_fosca }
    }
  }
#end

#macro eixo_membro()
  union {

    cylinder
    {
      <+largura_membro/2, 0, 0>, <-largura_membro/2, 0, 0>,
      largura_membro/2
      texture{ tx_fosca }
    }

    cylinder
    {
      <+largura_membro/2 + 0.1, 0, 0>, <-largura_membro/2 - 0.1, 0, 0>,
      largura_membro/3
      texture{ tx_verde }
    }
  }
#end

#macro membro_ponta(tamanho)
  union{

    object {eixo_membro()}

    box {
        <+largura_membro/2, 0, -largura_membro/2>, <-largura_membro/2, tamanho, largura_membro/2>
        texture{ tx_fosca }
    }

    cylinder
    {
      <+largura_membro/2, +tamanho, 0>, <-largura_membro/2, +tamanho, 0>,
      largura_membro/2
      texture{ tx_fosca }
    }
  }
#end

#macro membro(tamanho)

  union{

    object {eixo_membro()}

    box {
        <+largura_membro/2, 0, -largura_membro/2>, <-largura_membro/2, tamanho, largura_membro/2>
        texture{ tx_fosca }
    }

    object {eixo_membro() translate <0, tamanho, 0>}
  }
#end

#macro anteperna(angulo_pe)

  union {

    object { membro(tamanho_anteperna) rotate <-90, 0, 90> }

    object{ membro_ponta(tamanho_pe) rotate<angulo_pe, 0, -90> translate <0, 0, -tamanho_anteperna>}
  }
#end

#macro perna(angulo_anteperna, angulo_pe)

  union {

    object { membro(tamanho_perna) rotate <-90, 0, 90> }

    object { anteperna(angulo_pe) rotate <0, angulo_anteperna, 0> translate <0, 0, -tamanho_perna>}
  }
#end

#macro antebraco(angulo_mao)
  object{anteperna(-90 + angulo_mao) rotate <0, -90, 90>}
#end

#macro braco(angulo_antebraco, angulo_mao)
  object{perna(angulo_antebraco, -90 + angulo_mao) rotate <0, -90, 90>}
#end

#macro corpo(tamanho, angulo_perna_esquerda, angulo_anteperna_esquerda, angulo_pe_esquerdo,
                      angulo_perna_direita, angulo_anteperna_direita, angulo_pe_direito,
                      angulo_braco_esquerdo, angulo_antebraco_esquerdo, angulo_mao_esquerda,
                      angulo_braco_direito, angulo_antebraco_direito, angulo_mao_direita)

  union{

    object {eixo_membro() translate <0, (largura_membro + abertura_perna)/2, 0>}

    object {eixo_membro() translate <0, -(largura_membro + abertura_perna)/2, 0>}

    box {
        <+largura_membro/2, -largura_corpo/2 + largura_membro/2, 0>, <-largura_membro/2, largura_corpo/2 - largura_membro/2, largura_membro/2>
        texture{ tx_fosca }
    }

    box {
        <+largura_membro/2, -largura_corpo/2, -tamanho>, <-largura_membro/2, largura_corpo/2, 0>
        texture{ tx_fosca }
    }

    object {eixo_membro() rotate <0, 0, 90> translate <0, (largura_membro + abertura_perna)/2, -tamanho>}

    object {eixo_membro() rotate <0, 0, 90> translate <0, -(largura_membro + abertura_perna)/2, -tamanho>}

    object {perna(angulo_anteperna_esquerda, angulo_pe_esquerdo) rotate <0, angulo_perna_esquerda, 0> translate <0, -(largura_membro + abertura_perna)/2, -tamanho>}

    object {perna(angulo_anteperna_direita, angulo_pe_direito) rotate <0, angulo_perna_direita, 0> translate <0, (largura_membro + abertura_perna)/2, -tamanho>}

    object {braco(angulo_antebraco_esquerdo, angulo_mao_esquerda) rotate <0, 0, 0> translate <0,  -(largura_membro + abertura_perna)/2, 0>}

    object {braco(angulo_antebraco_direito, angulo_mao_direita) rotate <-180, 0, 0> translate <0,  (largura_membro + abertura_perna)/2, 0>}

    object {cabeca() /*translate <0, 0, raio_cabeca>*/ scale 4}
  }
#end

#macro interpola(f0, v0, f1, v1, fase)
  #local ss = (fase - f0)/(f1 - v0);
  #local rr = 1 - ss;
  (rr * v0 + ss * v1);
#end

#macro quadro_anterior(fase)
  #local i = 0;
  #while (i < numero_quadros - 1)
    #if((fase_quadro[i] <= fase) & (fase_quadro[i + 1] >= fase))
      #local resp = i;
    #end
    #local i = i + 1;
  #end
  resp
#end

#macro danca(fase)
  #local i = quadro_anterior(fase);

  #local abe = interpola(fase_quadro[i], anguloABE[i], fase_quadro[i + 1], anguloABE[i + 1], fase);
  #local abd = interpola(fase_quadro[i], anguloABD[i], fase_quadro[i + 1], anguloABD[i + 1], fase);

  #local me = interpola(fase_quadro[i], anguloME[i], fase_quadro[i + 1], anguloME[i + 1], fase);
  #local md = interpola(fase_quadro[i], anguloMD[i], fase_quadro[i + 1], anguloMD[i + 1], fase);

  #local pe = interpola(fase_quadro[i], anguloPE[i], fase_quadro[i + 1], anguloPE[i + 1], fase);
  #local pd = interpola(fase_quadro[i], anguloPD[i], fase_quadro[i + 1], anguloPD[i + 1], fase);

  #local ape = interpola(fase_quadro[i], anguloAPE[i], fase_quadro[i + 1], anguloAPE[i + 1], fase);
  #local apd = interpola(fase_quadro[i], anguloAPD[i], fase_quadro[i + 1], anguloAPD[i + 1], fase);

  object{ corpo(3,      // tamanho
                pd,     // angulo_perna_direita
                apd,    // angulo_ante_perna_direita
                0,
                pe,     // angulo_perna_esquerda
                ape,    // angulo_ante_perna_esquerda
                0,
                0,
                abe,    // angulo_ante_braco_esquerdo
                me      // angulo_mao_esquerda
                0,
                abd,    // angulo_antebraco_direito
                md      // angulo_mao_direita
                ) scale 0.2}

#end

#include "eixos.inc"

union{
  object{ eixos(5.00) }

  object { danca(clock)}

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 9.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)