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

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

#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 torre =
 union {
  object {
   cylinder {<0,0,0>,<0,0,1>,0.4}
   texture{tinta_A}
  }
  object {
   cone {<0,0,1>,0.4 <0,0,1.3> 0.02}
   texture{tinta_A}
  } 
 
 object {
  cylinder {<-0.21,0,0.7>,<-0.21,0,1>,0.2}
 }
}

#declare muro_baixo =
 union {
  object {
   box {<0,-0.4,0>,<0,-0.5,0.6>}  
  texture{tinta_A}
  }
}

#declare muro_alto =
 union {
  object {
   box {<0,-0.5,0>,<0,-0.6,0.7>}  
  texture{tinta_A}
  }
}
#declare muro_lateral =
 union {
     object {muro_baixo translate<0,-0.2,0>}
     object {muro_alto translate<0,-0.2,0>}
     object {muro_baixo translate<0,-0.4,0>}
     object {muro_alto translate<0,-0.4,0>}
     object {muro_baixo translate<0,-0.6,0>}
     object {muro_alto translate<0,-0.6,0>}
     object {muro_baixo translate<0,-0.8,0>}
     object {muro_alto translate<0,-0.8,0>}
     object {muro_baixo translate<0,-1,0>}
     object {muro_alto translate<0,-1,0>}
     object {muro_baixo translate<0,-1.2,0>}
  texture{tinta_A}
  rotate <0,0,90>
}
#declare e=0.1;
#declare tt=5/30;
#declare dist =0;
#macro Sierp(n)
 #if (n=0)
  union{
   object {torre}
  }
 #else
  union{ object {torre}
     object {muro_baixo}
     object {muro_alto}
     object {muro_baixo translate<0,-0.2,0>}
  union{
   object { Sierp(n-1)
   scale<1,1,1.2> 
   }    
   translate<0,-1.1,0> 
  }
  }
 #end
#end

#declare N=3;
union {
 object { Sierp(N) 
 }
 object { Sierp(N) 
  translate <2,0,0>}
 object {muro_lateral translate<0,0.2,0>}
 object {muro_lateral translate<0,-(N*1.1),0>}

}

// Original camera parameters:
// #local cam_ctr = <0.00,-1,0>
// #local cam_vec = (<-7.00,2,7.00>-<0.00,-1,0>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.0,-N*0.55,0.0>,<10,7,5>,10.0,z,1.0)