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

background{ color rgb < 0.00, 0.64, 0.00 > }

#declare NQ = 6;

#declare arg_pe = array[NQ];
#declare arg_pe[0] = 0;
#declare arg_pe[1] = 120;
#declare arg_pe[2] = 120;
#declare arg_pe[3] = 0;
#declare arg_pe[4] = 0;
#declare arg_pe[5] = 0;

#declare arg_pd = array[NQ];
#declare arg_pd[0] = 0;
#declare arg_pd[1] = 0;
#declare arg_pd[2] = 120;
#declare arg_pd[3] = 120;
#declare arg_pd[4] = 0;
#declare arg_pd[5] = 0;

#declare arg_be = array[NQ];
#declare arg_be[0] = 90;
#declare arg_be[1] = -90;
#declare arg_be[2] = 180;
#declare arg_be[3] = 90;
#declare arg_be[4] = 180;
#declare arg_be[5] = 90;

#declare arg_bd = array[NQ];
#declare arg_bd[0] = 90;
#declare arg_bd[1] = -90;
#declare arg_bd[2] = 180;
#declare arg_bd[3] = 90;
#declare arg_bd[4] = 180;
#declare arg_bd[5] = 90;

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

#declare tx_plastico =
  texture{
    pigment{ color rgb < 0.40, 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, 0, 0 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#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 0.5
  }

#declare cabeca =
  cylinder {
    < 0.25,0,10>
    <-0.25,0,10>,
    1
    texture { tx_plastico }
}

#declare corpo =
  cylinder {
    < 0,0,5>
    <0,0,9>,
    0.7
    texture { tx_plastico }
  }

#declare perna =
  cylinder {
    < 0,0,0>
    <0,0,-2.5>,
    0.4
    texture { tx_plastico }
}

#declare canela =
  cylinder {
    < 0,0,0>
    <0,0,-2>,
    0.3
    texture { tx_plastico }
}

#declare bota =
  cylinder {
    < 0,0,0>
    <0,-1.5,0>,
    0.5
    texture { tx_plastico }
}

#declare braco =
  cylinder {
    < 0,0,0>
    <-1.5,-1.5,0>,
    0.4
    texture { tx_plastico }
}

#declare pulso =
  cylinder {
    < 0,0,0>
    <0,-2,0>,
    0.3
    texture { tx_plastico }
 }

#declare cinto =
  cylinder {
    < 0,0,5.5>
    <0,0,5.7>,
    0.75
    texture { tx_xadrez }
}

#declare espada =
  cylinder {
    < 0,0,0>
    <0,0,-3>,
    0.1
    texture { tx_fosca }
}

#declare chao =
  box{ <-20,-20,-1>, <+20,+20,0> }

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

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

#macro mombro(a,b)
        union{
                object{ mbraco(b) rotate a*z }
        }
#end

#macro mbraco(b)
    union {
      object { braco }
      object { pulso rotate b*z translate <-1.5,-1.5,0>  }
   }
#end

#macro mperna(a,b,c)
    union {
      object { mcanela (b,c) rotate a*x }
   }
#end

#macro mcanela(b,c)
     union {
      object { perna } // -1 -1  1
      object { mbota(c) rotate b*x translate <0,0,-2.5>}
    }
#end

#macro mbota(c)
    union {
      object { canela }
      object {bota rotate c*x translate <0,0,-2>}
   }
#end

#macro boneco (a1,b1,c1,d1,e1,a2,b2,c2,d2,e2)
    union {
      object { cabeca rotate 90*z }
      object { corpo }
      object { cinto }
      object { mombro(a1,b1) translate <0,0.7,8> }
      object { mombro(a2,b2) translate <0,0.7,8> scale <-1,0,0> }
      object{ mperna(c1,d1,e1) translate <0.4,0,5>}
      object{ mperna(c2,d2,e2) translate <0.4,0,5> scale <-1,0,0>}
    }
#end

#include "eixos.inc"

#macro boneco_dancando (delT)
    #local i = quadro_anterior(delT);
    #local be = intpol(fg[i], arg_be[i], fg[i+1], arg_be[i+1], delT);
    #local bd = intpol(fg[i], arg_bd[i], fg[i+1], arg_bd[i+1], delT);
    #local pe = intpol(fg[i], arg_pe[i], fg[i+1], arg_pe[i+1], delT);
    #local pd = intpol(fg[i], arg_pd[i], fg[i+1], arg_pd[i+1], delT);
    object { boneco
          (
            -30+be,
            -60,
            0-pe,
           0,
               0,
             -30+bd,
             -60,
             0-pd,
            0,
                0
           )
      }
#end

union {
  object { chao }
  object { eixos(10.00) }
  object { boneco_dancando(clock) }
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 18.0;
#declare dir_camera = < 10, -10, 15.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)