// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

#include "textures.inc"
background{ color rgb < 0.5,0.5,0.5 > }

  #declare tx_prata =
  texture{
    pigment{ color rgb < 0.51, 0.55, 0.51 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_button1 =
  texture{
    pigment{ color rgb < 0.50,0.16,0.16 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

  #declare tx_button2 =
  texture{
    pigment{ color rgb < 0,0,0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

  #declare tx_tela =
  texture{
    pigment{ color rgb < 0.50,0.50,0.50 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare raio = 1.000;
#declare torre =
union
{
cylinder{< 0, 0, 0 >, <0,0,2>, 0.30
texture{tx_button1} }
 cone {
     <0,0,2>, 0.3    // Center and radius of one end
     <0,0,3>, 0.00    // Center and radius of other end
    texture {Glass2}
  }
  cone {
     <0,0,2.5>, 0.3    // Center and radius of one end
     <0,0,3.5>, 0.00    // Center and radius of other end
    texture {Glass2}
  }

}

#declare castelo=
union{
box{ < 0, 0, 0 >, < +3, +3, +1 >
        texture{tx_prata}
  }
 object{ torre translate < 0,0,0 >}
 object{ torre translate < 0,3,0 >}
 object{ torre translate < 3,0,0 >}
 object{ torre translate < 3,3,0 >}
}

#macro muro(i)
#if (i< 8)
object{ castelo  scale <1/i,1/i,1>  translate <0,0,0+(1)*(i)>}
#if (i!=1)
object{ castelo  scale <1/i,1/i,1>  translate <3/i,0,0+(1)*(i)>}
object{ castelo  scale <1/i,1/i,1>  translate <0,3/i,0+(1)*(i)>}
object{ castelo  scale <1/i,1/i,1>  translate <3/i,3/i,0+(1)*(i)>}
#end
#declare i=i+1;
muro(i)
#end
#end

#include "eixos.inc"

#declare i = 1;
   muro(i)

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 18.0;
#declare dir_camera = < 17.00, 10.00, 8.00 >;
#declare dist_camera = 20.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)