// Last edited on 2009-07-22 16:11:49 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare tinta_1 = 
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_2 = 
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_3 = 
  texture {
    pigment { color rgb < 0.5, 0.4, 0.6 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_4 = 
  texture {
    pigment { color rgb < 0.2, 0.1, 1.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_5 = 
  texture {
    pigment { color rgb < 0.7, 0.7, 0.9 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_6 = 
  texture {
    pigment { color rgb < 1, 0, 0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare raio = 3;
#declare s = 0.5;

#macro fractal (n)
   #if (n = 0)
      sphere { <0,0,0>, raio
      texture {tinta_1}}
   #else
      union
      {
         sphere
  {
     <0,0,0>, raio
            texture {tinta_2}
         }
  
         object
  {
            fractal (n-1)
     scale <s,s,s>     
            translate <raio*(1+s),0,0>
     texture {tinta_3}
  }

         object
  {
     fractal (n-1)
     scale <s,s,s>     
            translate <-raio*(1+s),0,0>
     texture {tinta_4}
  }

         object
  {
     fractal (n-1)
     scale <s,s,s>
     translate <0,raio*(1+s),0>
     texture {tinta_5}
  }

         object
  {
     fractal (n-1)
     scale <s,s,s>
     translate <0,-raio*(1+s),0>
     texture {tinta_6}
  }
      }
   #end
#end

object {fractal (4)}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <0,0,18>
// #local cam_sky = y

#include "camlight.inc"
camlight(<0,0,0>,<5,4,10>,25.0,y,1.0)