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

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

#declare tx_cristal =
  texture{
    pigment{ color rgb < 0.10, 0.30, 0.90 > }
    finish{ diffuse 0.8 ambient 0.5 specular 0.8 roughness 0.005 }
  }

  #declare tx_pedra =
  texture{
    pigment{ color rgb < 0.70, 0.70, 0.60 > }
    finish{ diffuse 0.8 ambient 0.5 specular 0.8 roughness 0.005 }
  }

  #declare tx_vermelho =
  texture{
    pigment{ color rgb < 0.90, 0.20, 0.30 > }
    finish{ diffuse 0.8 ambient 0.5 specular 0.8 roughness 0.005 }
  }

#declare muralha =
  box{
    <-1, -8, -2>,
    <+1, +8, +2>
    texture{ tx_pedra }
  }

#declare torre =
  cylinder{
        < 0, 0, -2 >,
        < 0, 0, +2.5 >,
    1.2
        texture{ tx_cristal }
}

#declare topo =
  cone{
        < +0.00, +0.00, +1.00 >,
        0
        < +0.00, +0.00, -1.00 >
        1.4
        texture{ tx_vermelho }
  }

#include "eixos.inc"

#declare roleta = seed(20);

#macro castelo (p, c)
        union {
          #if (c<p)
          object{ torre translate < -c*4-1, -(8.2-c), -1+c > }
          object{ torre translate < -c*4-1, +(8.2-c), -1+c > }
          object{ topo translate < -c*4-1, -(8.2-c), +2.5+c > }
          object{ topo translate < -c*4-1, +(8.2-c), +2.5 +c> }

          #local r = rand(roleta);

          #declare vazio =
                box{
                  <-2, -r, -0.25>,
                  <+2, +r, +0.25>
                  texture{ tx_pedra }
                }

          object{ muralha translate < -c*4, 0, -1+c > }

          object { castelo(p, c+1) }
          #end

        }
#end

union{
  object{ eixos(3.00) }

  object{ castelo(4, 0) }

}

#include "camlight.inc"
#declare centro_cena = < -1.00, 0.00, 2.00 >;
#declare raio_cena = 16.0;
#declare dir_camera = < 14.00, 0.00, 8.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)