// 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 phi = (sqrt(5) - 1)/2;

#declare quantos_valores = 2;
#declare valores = array[quantos_valores];
#declare valores[0] = 31;
#declare valores[1] = 0;

#declare valores2 = array[quantos_valores];
#declare valores2[0] = 31;
#declare valores2[1] = 0;

#declare roleta = seed(417); // gerador aleatorio

#macro esfera ()
    sphere {
      <0, 0, 0>, // center
      0.4        // radius
      texture{ tx_plastico }
  }
#end

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

#macro interpola_nova(t0,v0,v1,v2,v3,t1,tt)

  #local v01    = interpola(t0, v0,   t1, v1,  tt);
  #local v12    = interpola(t0, v1,   t1, v2,  tt);
  #local v23    = interpola(t0, v2,   t1, v3,  tt);
  #local v012   = interpola(t0, v01,  t1, v12, tt);
  #local v123   = interpola(t0, v12,  t1, v23, tt);
  #local v0123  = interpola(t0, v012, t1, v123,tt);

  v0123

#end

#macro ponto(xx)

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

#end

#macro grafico(x0, y0, y1, y2, y3, x3, N)

  union {
    #local espaco = (x3 - x0)/N;
    #local i = 0;

    #while(i < N)
      #local x_t = x0 + espaco * i;
      #local y_t = interpola_nova(x0, y0, y1, y2, y3, x3, x_t);
      #local i = i + 1;
      object { ponto(0) translate y_t }

      #if((x_t/9 < clock) & ((x_t + 0.08)/9) > clock)
        object{ esfera() translate y_t }
      #end
    #end
  }
#end

#macro posicao(tempo)

#end

#include "eixos.inc"
#include "retalho.inc"

union{

  object{ eixos(5.00) }

  #local y0b = <2, 2, 3>;
  #local y0c = <0, 5, 2>;

  #local y1b = <7, 4, 1>;
  #local y1c = <3, 2, 0>;

  #local y2b = <8, 4, 6>;
  #local y2c = <3, 6, 2>;

  #local y3b = <6, 1, 3>;
  #local y3c = <4, 2, 5>;

  #local y0a = (y0b + y3c)/2; //<5, 3>;
  #local y0d = (y0c + y1b)/2;
  #local y1d = (y1c + y2b)/2;
  #local y2d = (y2c + y3b)/2;
  #local y1a = y0d;
  #local y2a = y1d;
  #local y3a = y2d;

  union {

    union {
      object{ grafico(1, y0a, y0b, y0c, y0d, 3, 100) }
      object{ grafico(3, y1a, y1b, y1c, y1d, 5, 100) }
      object{ grafico(5, y2a, y2b, y2c, y2d, 7, 100) }
      object{ grafico(7, y3a, y3b, y3c, y0a, 9, 100) }
      translate <8, 0, 0> scale 0.7
    }

  }

  #local p11a = <4, 1, 2.3>;
  #local p12a = <4, 2, 2.2>;
  #local p13a = <4, 3, 2.4>;

  #local p21a = <5, 1, 2.4>;
  #local p22a = <5, 2, 2.4>;
  #local p23a = <5, 3, 2.2>;

  #local p31a = <6, 1, 2.8>;
  #local p32a = <6, 2, 2.5>;
  #local p33a = <6, 3, 2.3>;

  #local p41a = <7, 1, 2.5>;
  #local p42a = <7, 2, 2.6>;
  #local p43a = <7, 3, 2.2>;

  #local p12b = <1, 2, 3.0>;
  #local p13b = <1, 3, 3.5>;
  #local p14b = <1, 4, 3.2>;

  #local p22b = <2, 2, 3.1>;
  #local p23b = <2, 3, 3.7>;
  #local p24b = <2, 4, 3.5>;

  #local p32b = <3, 2, 3.9>;
  #local p33b = <3, 3, 3.3>;
  #local p34b = <3, 4, 3.0>;

  #local p42b = <4, 2, 3.2>;
  #local p43b = <4, 3, 3.4>;
  #local p44b = <4, 4, 3.7>;

  #local p11c = <4, 3, 2.3>;
  #local p12c = <4, 4, 2.2>;
  #local p13c = <4, 5, 2.4>;
  #local p14c = <4, 6, 2.2>;

  #local p21c = <5, 3, 2.4>;
  #local p22c = <5, 4, 2.4>;
  #local p23c = <5, 5, 2.2>;
  #local p24c = <5, 6, 2.3>;

  #local p31c = <6, 3, 2.8>;
  #local p32c = <6, 4, 2.5>;
  #local p33c = <6, 5, 2.3>;
  #local p34c = <6, 6, 2.4>;

  #local p41c = <7, 3, 2.5>;
  #local p42c = <7, 4, 2.6>;
  #local p43c = <7, 5, 2.2>;
  #local p44c = <7, 6, 2.3>;

  #local p14a = (p13a + p12b)/2;
  #local p24a = (p23a + p22b)/2;
  #local p34a = (p33a + p32b)/2;
  #local p44a = (p43a + p42b)/2;

  #local p11b = p14a;
  #local p21b = p24a;
  #local p31b = p34a;
  #local p41b = p44a;

  #local p14b = (p13b + p12c)/2;
  #local p24b = (p23b + p22c)/2;
  #local p34b = (p33b + p32c)/2;
  #local p44b = (p43b + p42c)/2;

  #local p11c = p14b;
  #local p21c = p24b;
  #local p31c = p34b;
  #local p41c = p44b;

}

#include "camlight.inc"
#declare centro_cena = < 1.00, 0.00, 0.00 >;
#declare raio_cena = 15.0;

#declare dir_camera = < 14.00, 7.00, 10.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)