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

background{ color rgb < 1.00, 1.00, 1.00 > }

#declare NQ=6;//Num de quadros

#declare cx=array[NQ];
#declare cx[0]=0;
#declare cx[1]=0;
#declare cx[2]=40;
#declare cx[3]=40;
#declare cx[4]=40;
#declare cx[5]=40;

#declare cy=array[NQ];
#declare cy[0]=-10;
#declare cy[1]=-10;
#declare cy[2]=-10;
#declare cy[3]=-10;
#declare cy[4]=-50;
#declare cy[5]=-10;

#declare ax=array[NQ];
#declare ax[0]=0;
#declare ax[1]=0;
#declare ax[2]=-30;
#declare ax[3]=60;
#declare ax[4]=-75;
#declare ax[5]=-30;

#declare ay=array[NQ];
#declare ay[0]=-10;
#declare ay[1]=-10;
#declare ay[2]=-10;
#declare ay[3]=0;
#declare ay[4]=15;
#declare ay[5]=-10;

#declare b=array[NQ];
#declare b[0]=15;
#declare b[1]=15;
#declare b[2]=15;
#declare b[3]=10;
#declare b[4]=10;
#declare b[5]=15;

#declare a2=array[NQ];
#declare a2[0]=10;
#declare a2[1]=20;
#declare a2[2]=20;
#declare a2[3]=-50;
#declare a2[4]=-50;
#declare a2[5]=10;

#declare b2x=array[NQ];
#declare b2x[0]=-30;
#declare b2x[1]=0;
#declare b2x[2]=-70;
#declare b2x[3]=-110;
#declare b2x[4]=-70;
#declare b2x[5]=-30;

#declare b2y=array[NQ];
#declare b2y[0]=-30;
#declare b2y[1]=40;
#declare b2y[2]=-30;
#declare b2y[3]=-30;
#declare b2y[4]=-30;
#declare b2y[5]=-30;

#declare tempo=array[NQ];
#declare tempo[0]=0.0;
#declare tempo[1]=0.2;
#declare tempo[2]=0.4;
#declare tempo[3]=0.6;
#declare tempo[4]=0.8;
#declare tempo[5]=1.0;

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

#macro quadro_anterior(fase)
        #local i=0;
        #while((i<NQ-1)&(tempo[i+1])<fase)
                #local i = i+1;
        #end
        i
#end

#macro boneco_dancando(fase)
    #local i = quadro_anterior(fase);
    #local localcx = interpola(tempo[i],cx[i],tempo[i+1],cx[i+1],fase);
    #local localcy = interpola(tempo[i],cy[i],tempo[i+1],cy[i+1],fase);
    #local localax = interpola(tempo[i],ax[i],tempo[i+1],ax[i+1],fase);
    #local localay = interpola(tempo[i],ay[i],tempo[i+1],ay[i+1],fase);
    #local localb = interpola(tempo[i],b[i],tempo[i+1],b[i+1],fase);
    #local locala2 = interpola(tempo[i],a2[i],tempo[i+1],a2[i+1],fase);
    #local localb2x = interpola(tempo[i],b2x[i],tempo[i+1],b2x[i+1],fase);
    #local localb2y = interpola(tempo[i],b2y[i],tempo[i+1],b2y[i+1],fase);
    union{
        object{ tudo(localcx,localcy,localax,localay,localb,locala2,localb2x,localb2y)}
    }
#end

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

#declare corpo_cabeca =
union{
  sphere{
        < 0.00, 0.00, 0.00 >, 0.9
        pigment{ color rgb < 0.00, 0.00, 1.00 > }
  }
  sphere{
                <0.5,0.5,0.5>, 0.2 translate <0.2, -0.3, 0>
                pigment{ color rgb < 1,1,0>}
  }
  sphere{
                <0.5,0.5,0.5>, 0.2 translate <-0.2, 0.3, 0>
                pigment{ color rgb < 1,1,0>}
  }
  sphere{
                <0.5,0.5,0.5>, 0.1  translate <0.1,0.1,-0.2>
                pigment{ color rgb < 1,1,0>}
  }
  cone {
    <0.4,-0.4,0.5>, 0.3
    <1.1, -0.8, 1.3>, 0.1
    pigment{ color rgb < 1,1,0>}
  }
  cone {
    <-0.4, 0.4, 0.5>, 0.3
    <-1.1, 0.8, 1.3>, 0.1
    pigment{ color rgb < 1,1,0>}
  }
   sphere{
                < 0.00, 0.00, 0.00 >, 1.5 translate<0,0,-2.6>
        pigment{ color rgb < 0.00, 0.00, 1.00 > }
  }

}
#declare pe =
        box{ <-0.5,-0.5,0>, <0.5,0.5,0.5>
        pigment { rgb < 1, 0, 0> }
        }

#macro canela(rotb)
union{
        cylinder {<0, 0, 0>, <0, 0, -2>, 0.25
        pigment { rgb < 0, 0, 0> }
        }
        object { pe rotate rotb*<0,1,0> translate<0,0,-2> }
}
#end

#declare canela2=
union{
        cylinder {<0, 0, 0>, <0, 0, -2>, 0.25
        pigment { rgb < 1, 0, 0> }
        }

}

#macro coxa(rotax,rotay,rotb)
union{#macro boneco_dancando(fase)
    #local i=
#end
        cylinder {<0, 0, 0>, <0, 0, -1>, 0.35
        pigment { rgb < 0, 0, 1> }
        }
        object{ canela(rotb) rotate rotax*<1,0,0> rotate rotay*<0,1,0> translate<0,0,-1>}
}
#end
#macro braco(rota)
union{
        cylinder {<0, 0, 0>, <0, 0, -1>, 0.35
        pigment { rgb < 0, 0, 1> }
        }
        object{ canela2 rotate rota*<0,1,0> translate<0,0,-1>}
        rotate <0,180,0>
}
#end

#macro tudo(rotcx,rotcy ,rotax, rotay,rotb,rota2,rotb2x,rotb2y)
union{
        object { corpo_cabeca rotate<0,0,-45>translate <0,0,3>}
        object{ coxa(rotax,rotay,rotb) rotate rotcx*<1,0,0> rotate rotcy*<0,1,0> translate<0,1,-0.5>}
        object{ coxa(rotax,rotay,rotb) rotate rotcx*<1,0,0> rotate rotcy*<0,1,0> translate<0,1,-0.5> scale <0,-1,0>}
        object{ braco(rota2) rotate rotb2x*<1,0,0> rotate rotb2y*<0,1,0> translate<0,0.7,1.5>}
        object{ braco(rota2) rotate rotb2x*<1,0,0> rotate rotb2y*<0,1,0> translate<0,0.7,1.5> scale <0,-1,0>}
}
#end

#include "eixos.inc"
union{

        object{ boneco_dancando(clock) }
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 10.0;
#declare dir_camera = <7, 0, 5>;
#declare dist_camera = 10.0;
#declare intens_luz = 0.80;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)