// Last edited on 2009-07-23 13:49:48 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, 1.4 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  

#declare tinta_C = 
  texture {
    pigment { color rgb < 0.90, 1.80, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_D = 
  texture {
    pigment { color rgb < 0.50, 0.80, 2.5 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare circulo = difference{
 
 cylinder{<0,0,0>,<0,0,4>,10  texture { tinta_A } }
 cylinder{<0,0,-1>,<0,0,5>,8  texture { tinta_A } } 

}

#declare torre = cylinder{
  <9,0,4>,<9,0,7>,1  texture { tinta_B } 
}

#declare lateral = union{
 #declare i=0;
 #while (i < 28)
  object {torre rotate<0,0,13*i>}
 #declare i=i+1;
 #end
}

#declare tudo = 
 union{
  object {circulo}
  object {lateral}  
}

#declare n=30;
#declare var = 1;

#macro casa(n)
 #if (n = 0)
  object {tudo}
 #else
  union{
   
    object {casa(n-1) translate<n,0,0> rotate<0,0,15> scale<0.1,0.1,1.4>}
    
   object {tudo}
          scale<var,var,var>  
   
  }
  #end
#end

#declare N = 2;

union { casa(N) }

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <10,20,20.00>
// #local cam_sky = z

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