// 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_preta =
  texture{
    pigment{ color rgb < 0.20, 0.20, 0.20 > }
    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_rosquinha =
 texture{
   pigment{ color rgb < 0.566, 0.276, 0.076 > }
   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 chao =
  box{ <-70,-70,-6>, <+70,+70,-5> }

#declare orelha =
  cone{ <0,0,0> , 0.50, <0,0,1>, 0 texture{tx_fosca}}

#declare bola =
  sphere{ < 0,0,0 >, 0.50  texture{tx_fosca}}

#declare NQ = 8;

#declare ombro = array[NQ];

#declare ombro[0] = -75;
#declare ombro[1] = -40;
#declare ombro[2] = 60;
#declare ombro[3] = 110;
#declare ombro[4] = 60;
#declare ombro[5] = 30;
#declare ombro[6] = -40;
#declare ombro[7] = -75;

#declare cotovelo = array[NQ];

#declare cotovelo[0] = 0;
#declare cotovelo[1] = 45;
#declare cotovelo[2] = 45;
#declare cotovelo[3] = 0;
#declare cotovelo[4] = 45;
#declare cotovelo[5] = 45;
#declare cotovelo[6] = 45;
#declare cotovelo[7] = 0;

#declare rodaOmbro = array[NQ];

#declare rodaOmbro[0] = 0;
#declare rodaOmbro[1] = 90;
#declare rodaOmbro[2] = 120;
#declare rodaOmbro[3] = 180;
#declare rodaOmbro[4] = 120;
#declare rodaOmbro[5] = 90;
#declare rodaOmbro[6] = 90;
#declare rodaOmbro[7] = 0;

#declare perna = array[NQ];

#declare perna[0] = 0;
#declare perna[1] = 15;
#declare perna[2] = 32;
#declare perna[3] = 45;
#declare perna[4] = 32;
#declare perna[5] = 15;
#declare perna[6] = 7;
#declare perna[7] = 0;

#declare faseQuadro = array[NQ];
#declare faseQuadro[0] = 0;
#declare faseQuadro[1] = 1/7;
#declare faseQuadro[2] = 2/7;
#declare faseQuadro[3] = 3/7;
#declare faseQuadro[4] = 4/7;
#declare faseQuadro[5] = 5/7;
#declare faseQuadro[6] = 6/7;
#declare faseQuadro[7] = 1;

#macro gato(ombroEsquerdo, cotoveloEsquerdo, rodaOmbroEsquerdo,
            ombroDireito, cotoveloDireito,rodaOmbroDireito
            coxaEsquerda, joelhoEsquerdo, peEsquerdo
            coxaDireita, joelhoDireita, peDireita)

  union{
    object{bola scale 2}
    object{bracoCompleto(cotoveloDireito, 1) rotate<0,0,rodaOmbroDireito> rotate<-ombroDireito+30 ,0,0> translate <0,0,1> rotate<60,0,0>}
    object{bracoCompleto(cotoveloEsquerdo, 0)rotate<0,0,-rodaOmbroEsquerdo> rotate<ombroEsquerdo -30,0,0> translate <0,0,1> rotate<-60,0,0>}
    object{coxa(joelhoEsquerdo,peEsquerdo) rotate<coxaEsquerda -30 ,0,0> translate <0,0,-1> rotate<30,0,0>}
    object{coxa(joelhoDireita,peDireita) rotate<-coxaDireita +30,0,0>  translate <0,0,-1> rotate<-30,0,0>}
    object{cabeca() translate <0,0,1>}
  }
#end

#macro cabeca()
  union{
    object{ bola  translate <0,0,0.4>}
    object {orelha scale 0.4 translate <0,-0.15,0.75>}
    object {orelha scale 0.4 translate <0,+0.15,0.75>}
  }
#end

#macro bracoCompleto(cotovelo, flag)
  union{
    object{ bola scale 0.37}
    object{ cylinder{ <0,0,0>, <0,0,+1> ,0.175 texture{tx_fosca}} }
    object{anteBraco(flag) rotate<cotovelo,0,90> translate<0,0,+1> }
  }
#end

#macro anteBraco(flag)
  #if(flag =0)
  union{
    object{ bola scale 0.37}
    object{ cylinder{ <0,0,0>, <0,0,0.85> ,0.175 texture{tx_fosca}} }
    object { box  {<0,-0.3,0>, <0.1,0.3,0.6> texture{tx_fosca}} translate<0,0,0.85>}
  }
  #else
  union{
    object{ bola scale 0.37}
    object{ cylinder{ <0,0,0>, <0,0,0.85> ,0.175 texture{tx_fosca}} }
    object{ cylinder{ <+0.1,0,0.5>, <-0.1,0,0.5> ,0.175 texture{tx_preta}} translate<0.1,0,0> }
    object { box  {<0,-0.3,0>, <0.1,0.3,0.6> texture{tx_fosca}} translate<0,0,0.85>}
  }
  #end
#end

#macro coxa(joelho, pe)
  union{
    object{ bola scale 0.37}
    object{ cylinder{ <0,0,0>, <0,0,-1> ,0.175 texture{tx_fosca}} }
    object{canela(pe) rotate<0,joelho,0> translate<0,0,-1> }
  }
#end

#macro canela(pe)
  union{
    object{ bola scale 0.37}
    object{ cylinder{ <0,0,0>, <0,0,-0.85> ,0.175 texture{tx_fosca}} }
    object { peObject() rotate<0,-90,0> rotate<0,pe,0> translate<0,0,-0.85> }
  }
#end

#macro peObject()
    union{
      object { box  {<0,-0.2,0.2>, <0.3,0.2,-0.8> texture{tx_fosca}} }
}
#end

#macro animar(fase)
  #local i= faseAnterior(fase);
  object {gato(
          interpola(faseQuadro[i],faseQuadro[i+1],ombro[i],ombro[i+1],fase),
          interpola(faseQuadro[i],faseQuadro[i+1],cotovelo[i],cotovelo[i+1],fase),
          interpola(faseQuadro[i],faseQuadro[i+1],rodaOmbro[i],rodaOmbro[i+1],fase),
          interpola(faseQuadro[i],faseQuadro[i+1],ombro[i],ombro[i+1],fase),
          interpola(faseQuadro[i],faseQuadro[i+1],cotovelo[i],cotovelo[i+1],fase),
          interpola(faseQuadro[i],faseQuadro[i+1],rodaOmbro[i],rodaOmbro[i+1],fase),
          interpola(faseQuadro[i],faseQuadro[i+1],perna[i],perna[i+1],fase),0,0,
          interpola(faseQuadro[i],faseQuadro[i+1],perna[i],perna[i+1],fase),0,0
          )translate <-6,-3,-2>}
#end

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

#macro faseAnterior(fase)
 #local i=0;
 #while (i < NQ - 1)
   #if ((faseQuadro[i] <= fase) & (faseQuadro[i+1] >= fase))
     #local resp = i;
   #end
   #local i = i+1;
 #end
 resp
#end

#include "eixos.inc"

object{ chao texture{ tx_xadrez }  }

object{animar(clock)}
#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 6.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 70.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)