// Last edited on 2009-07-23 14:02:21 by stolfilocal
// Processed by remove-cam-lights

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

#declare raio = 2.000;

#declare tinta_A = 
  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_B = 
  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_C = 
  texture {
    pigment { color rgb <1, 0, 0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare box1=
 box{
 <0,0,0>
 <-0.1,-0.1,-0.1>
    texture { tinta_C }
  }

#declare torre =
    union{
     cylinder {
   < 0, 0, 1> , 
   < 0, 0 ,0> ,
    0.25
  texture { tinta_C }
 }

 object{box1 translate<0,0,1.09> translate<0,-0.10,0> }
 object{box1 translate<0,0,1.09> translate<0,-0.10,0>  rotate<0,0,90>} 
 object{box1 translate<0,0,1.09> translate<0,-0.10,0>  rotate<0,0,180>}
 object{box1 translate<0,0,1.09> translate<0,-0.10,0>  rotate<0,0,270>}
}

#declare muro = 
  box{
    <0,0,0>
    <-0.2,-2,1>
    texture { tinta_C }
    }

#macro mySierp(n)
#if(n=0)
      union{
   object{torre}
   object{torre translate<0,-4,0>}   
   object{torre translate<0,-4,0> translate<-4,0,0>}
   object{torre translate<0,-4,0> translate<-4,0,0> translate<0,4,0>}   
   object{muro scale<1,2,1> translate<-4,0,0>}
   object{muro scale<1,2,1>} 
   object{muro scale<1,2,1> rotate<0,0,-90>}
   object{muro scale<1,2,1> rotate<0,0,90> translate<-4,0,0> translate<0,-4,0>}
    }
#else
 union{
 object{mySierp(n-1)}
 union{
  object{mySierp(n-1) translate<-0.3,0,0> translate<0,-0.3,0>}
  scale<3/4,3/4,6/5>
 }
 }
#end

#end

#declare N = 5;
union{
  object{mySierp(N) translate<0,0,-3>}
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <8.00,4.00,4.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,<10,7,5>,10.0,z,1.0)