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

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

#declare tinta_vermelho = 
  texture {
    pigment { color rgb < 0.90, 0.20, 0.10 > }
    finish { diffuse 0.8 ambient 0.1 }
  }

#declare tinta_azul = 
  texture {
    pigment { color rgb < 0.20, 0.40, 0.90 > }
    finish { diffuse 0.8 ambient 0.1 }
  }

#declare parede=
box{
 <-5,0,-5 >, <15,5,5>
  texture { tinta_azul }
}

#declare torre=
cylinder {
      < -7.50, 0, 0.00 >,
      < -7.50, 10.00, 0.00 >,
      2.5
      texture { tinta_vermelho }
    }

#declare ponta_torre=
cone{
<-7.50,10.00,0.00>, 2.5
<-7.50,12.00,0.00>, 0
texture{ tinta_vermelho }
}

#declare torre_pronta=
union{
object{torre}
object{ponta_torre}
}

#declare unidade_castelo=
union{
  object{parede}
  object{torre_pronta}
  object{torre_pronta translate<25,0,0>}
}

#declare mini=
object{unidade_castelo scale<0.5,0.5,0.5> translate<0,5,0>}

#macro fractal(n)

 #if(n=0)
 
  object { unidade_castelo }
  

 #else
 
   union{
   object{
   fractal(n-1) 
   scale<0.5,0.5,0.5> translate<0,5,0> } 
   
   object{fractal(n-1)}

}
  
 #end
#end

#declare castelo_pronto=
  fractal(3)

#declare castelo=
  union{
  #declare i = 0;
         #while ( i < 3 )
               object{castelo_pronto translate<30, 0, 0>}
                #declare i = i+1;
         #end
  }

#declare N = 7;

union{
object{fractal(N)}
//object{fractal(N) translate<30,0,0>}
//object{fractal(N) translate <-30,0,0>}
}

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

#include "camlight.inc"
camlight(<5,0,0>,<3,5,10>,40.0,y,1.0)