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

#include "textures.inc"

background{ color rgb < 0, 0, 0 > }

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

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

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

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

#declare tx_rosa =
  texture{
    pigment{ color rgb < 1, 0.5, 1 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#macro castelo(i)
        #if ( i >= 2.4 )
        union{
                        difference {
                                cylinder { < 0, 0, 0 >, < 0, 0, 3 >, i texture { tx_azul } }
                                cylinder { < 0, 0, -0.1 >, < 0, 0, 3.1 >, (i-0.2) texture { tx_azul } }
                        }

                        merge {
                                cylinder { < 0, -(i-0.7), 0 >, < 0, -(i-0.7), 3.5 >, 0.5 texture { tx_amarelo } }
                                cone {
                                        < 0, -(i-0.7), 3.5 >, 0.5
                                        < 0, -(i-0.7), 4.5 >, 0
                                        texture { tx_amarelo }
                                }
                                cylinder { < 0, i-0.7, 0 >, < 0, i-0.7, 3.5 >, 0.5 texture { tx_amarelo } }
                                cone {
                                        < 0, i-0.7, 3.5 >, 0.5
                                        < 0, i-0.7, 4.5 >, 0
                                texture { tx_amarelo }
                                }
                        }
        }
        #else
                castelo( 2.4 )
        #end
        #if ( (i-2.4) >= 2.4 )
                castelo( (i-2.4) )
        #end
#end

castelo(7.2)

#include "eixos.inc"

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 6.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 1600.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)