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

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

#declare tinta_vermelho = 
  texture {
    pigment { color rgb < 0.65, 0.0, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_verde = 
  texture {
    pigment { color rgb < 0.00, 0.65, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_azul = 
  texture {
    pigment { color rgb < 0.30, 0.40, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_preto = 
  texture {
    pigment { color rgb < 0.00, 0.00, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_branco = 
  texture {
    pigment { color rgb < 1.0, 1.0, 1.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare cilindro=
cylinder {
      < -10.00, -20.00, -20.00 >,
      < +10.00, +20.00, +20.00 >,
      5.0
      texture { tinta_azul }
    }

#macro fractal(n)

 #if(n=0)
  object{ cilindro }
 #else
  union{
   object{
     fractal(n-1) 
     rotate <15,0,0> 
     scale <0.5,0.5,0.5> 
     translate <1,1,1>
   } 
   
   object{
     fractal(n-1)
     rotate<-15,0,0> 
     scale<0.5,0.5,0.5> 
     translate<-1,-1,-1>   
   }
  }
 #end
#end

#declare N = 7;
union{
object{fractal(N)}
//object{fractal(7) scale<-1,0,0>}  
}

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

#include "camlight.inc"
camlight(<1,0,0>,<-10,10,5>,5*128.0/pow(1.8,N),y,1.0)