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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb <  1.00, 1.0, 1.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_vermelho =
  texture{
    pigment{ color rgb <  1.00, 0.0, 0.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_met =
  texture {
    pigment { colour red 0.500 green 0.500 blue 0.500 filter 0.300}
    finish { metallic }
  }

#declare tx_fosca2 =
  texture{
    pigment{ color rgb < 0.00, 1.00, 1.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca3 =
  texture{
    pigment{ color rgb < 0.00, 1.00, 0.00 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca4 =
  texture{
    pigment{ color rgb <  1.00, 1.0, 0.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

 #macro constroi_muro (a)
  union{

    #if (4-a >= 2)

      constroi_muro(a+0.4)

    #else
      torus{ 4-a, 0.1 rotate <90,0,0> translate <0, 0, 0.1>}

    #end

       torus{ 4-a, 0.1 rotate <90,0,0> translate <0, 0, 1>}

   }
  #end

#macro constroi_castelo (b,c)
union{

    #if (b<4)
      constroi_castelo(b+1, c+1)
    #else

      cone {< 0.00, 0.0, 0 >, 1.5/b, <0, 0, (4/b)>, 0 translate <0, 2 - 2/c, 4- 4/c>}
      cone {< 0.00, 0.0, 0 >, 1.5/b, <0, 0, (4/b)>, 0 translate <0, -2 + 2/c, 4- 4/c>}
    #end
    cone {< 0.00, 0.0, 0 >, 1.5/b, <0, 0, (4/b)>, 0 translate <0, -2 + 2/c, 4- 4/c>}
    cone {< 0.00, 0.0, 0 >, 1.5/b, <0, 0, (4/b)>, 0 translate <0, 2 - 2/c, 4- 4/c>}

  texture {tx_fosca2}}

#end

#include "eixos.inc"
#include "textures.inc"
union{
  object{ eixos(5.0) }
  object {constroi_muro(0) }
  object{constroi_castelo(1,1)}

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 8.0;
#declare dir_camera = < 5.01, 2.01, 2.01 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)