// Last edited on 2009-07-22 17:05:07 by stolfilocal
// Processed by remove-cam-lights

#include "colors.inc"
#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "metals.inc"
#include "glass.inc"
#include "woods.inc"
 
background{ color rgb < 0.75, 0.80, 0.85 > }

#declare e=0.1;
#declare a=10/30;
#macro cilindro(n)

#if (n=0)
  cylinder{ <0,0,e>, <0,5,e> 7
  texture {pigment {Blue}}}
#else
 union
    {
     object {cilindro(n-1) translate <0,0,0>}
     object {cilindro(n-1) translate <0,2.5,0>}
     object {cilindro(n-1) translate <-.5,2.5,0>}
     object {cilindro(n-1) translate <-.5,2.5,0>}
     cylinder{ <0,0,e>, <0,5,e>, 7 texture {pigment {Red}}}
     scale <a,a,1>
    }

#end

#end

#declare N = 4;

object {cilindro(N)}

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

#include "camlight.inc"
camlight(<0,0,0>,<10,10,10>,20.0,y,1.0)