// Exercicio 2 - MC930
// Nilton Volpato - RA 003243

#include "colors.inc"

background { color Black }


light_source {
  < -14.00, 20.00, -50.00 >
  color rgb < 1, 1, 1 >
} 


camera {
  location  < 0, 12, -25 >
  look_at   0
} 

#declare cor_centro =
  texture {
    pigment { color rgb <0,1,0> }
    normal { bumps 1 scale 1 }
    finish { phong 1 }
  }

#declare cor_sup =
  texture {
    pigment { color rgb <0,.6,.9> }
  }

#declare cor_tentaculo =
  texture {
    pigment { color Yellow }
    normal { wrinkles /*waves*/ 1 scale .6 }
    finish { phong 1 }
  }


#declare raio_c = 10;
#declare raio_s = 0.8;
#declare raio_t = 0.8;

#declare centro =
  blob {
    threshold .1
    sphere { 0, raio_c, 1 texture { cor_centro } }
    
    //sphere { <0,0,-8>, raio_s, 1 texture { cor_sup } }
    //sphere { <-8,0,0>, raio_s, 1 texture { cor_sup } }

    sphere { <0,9,0>, raio_t, 1  texture { cor_tentaculo } }
    sphere { <.1,10,-.5>, raio_t, 1  texture { cor_tentaculo } }
    sphere { <-.5,11,.1>, raio_t, 1  texture { cor_tentaculo } }

    
    #declare uu=0;
    #declare maxuu=6.28;
    #declare uustep=2*0.628;

    #declare vv=0;
    #declare maxvv=6.28;//3.14;
    #declare vvstep=2*0.314;
    
    #while ( uu <= maxuu )
      #declare vv=0;
      #while ( vv <= maxvv )
	sphere { 
	  9*<cos(uu)*sin(vv),sin(uu)*sin(vv),cos(vv)>,
	  raio_t, 1  texture { cor_tentaculo } }
	sphere {
	  10*<cos(uu)*sin(vv),sin(uu)*sin(vv),cos(vv)> + <.1,0,-.5>, 
	  //<.1,10,-.5>, 
	  raio_t, 1  texture { cor_tentaculo } }
	sphere { 
	  11*<cos(uu)*sin(vv),sin(uu)*sin(vv),cos(vv)> + <.1,0,-.5>, 
	  //<-.5,11,.1>, 
	  raio_t, 1  texture { cor_tentaculo } }
	#declare vv=vv+vvstep;
      #end
      #declare uu=uu+uustep;
    #end

  }

object { centro }