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

#include "textures.inc"
background{ color rgb < 0.2, 0.2, 0.5 > }

#declare tx_cinza =
  texture{
    pigment{ color rgb < 0.745, 0.745, 0.745 > }

  }

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

#declare tx_green =
  texture{
    pigment{ color rgb < 0, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
#declare tx_black =
  texture{
    pigment{ color rgb < 0, 0, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#macro Interpola4(p0,p1,p2,p3,tt)
  #local p01=interpola2(p0,p1,tt);
  #local p12=interpola2(p1,p2,tt);
  #local p23=interpola2(p2,p3,tt);
  #local p012=interpola2(p01,p12,tt);
  #local p123=interpola2(p12,p23,tt);
  #local p0123=interpola2(p012,p123,tt);
  p0123
#end

 #macro interpola2(p0, p1, tt)
  ((1-tt)*p0 + tt*p1)
#end

#macro tentaculo(p0,p1,p2,q1,q2,q3)
#declare p3=(p2+q1)/2;
#declare i=0;
#while (i<1)
sphere{
  Interpola4(p0,p1,p2,p3,i),
  Interpola4(0.8,0.7,0.7,0.6,i)
  texture{tx_green}}
#declare i=i+0.01;
#end

#declare i=0;
#while (i<1)
sphere{
  Interpola4(p3,q1,q2,q3,i),
  Interpola4(0.6,0.5,0.4,0.3,i)
  texture{tx_green}}
#declare i=i+0.01;
#end
#end
sphere{<0,0,0>,2}
#if (clock<0.5)
#declare temp=clock;
#else
#declare temp=1-clock;
#end
tentaculo(<0,0,0>,<0,2+(1-temp),-2,>,<0,4+temp,-3>,<0,4,-4>,<0,4,-4>,<0,3,-5-2*temp>)
tentaculo(<0,-2,0>,<0+(1-temp),-3+(1-temp),-1+(1-temp)>,<0+temp,-4+temp,-2+temp>,<0,-4,-3>,<0,-3,-3>,<02*temp,-2-2*temp,-2-2*temp>)
tentaculo(<2,0,0>,<3,0+(1-temp),-1,>,<3,0+temp,-2>,<4,0,-3>,<3,0,-3>,<2,0,-2-2*temp>)
#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 15.0;
#declare dir_camera = < 28.00, 14.00, 8.00 >;

#declare dist_camera = 200.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)