// Last edited on 2023-12-30 10:00:42 by stolfi
#version 3.7; global_settings { assumed_gamma 2.2 }

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

#include "direcao_do_sol.inc"
#include "parametros.inc"

#declare tx_predio =
  texture{
    pigment{ color rgb 4*< 0.211, 0.211, 0.211 > }
    finish{ diffuse 0.8 ambient 0.2 }
  }

#declare tx_painel =
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.2 ambient 0.8 }
  }


#macro predio()
    #local p1 = box
    {
        <-4.88,-4.88,-5>,
        <4.88, 4.88, 1.56>
        texture{ tx_predio }
    }

    object { p1 }
#end

#macro teto_1()
    #local t1 = box
    {
        <-2,-2,0>,
        <2, 2, 0.3>
        texture{ tx_predio }
    }

    #local p1 = box
    {
        <-1,-1,0>,
        <1, 1, 0.4>
        texture{ tx_painel }
    }

    #local q1 = union {
        object {t1 rotate <0, 45, 0> translate <3.44, 0, 3> }
        object {p1 rotate <0, 45, 0> translate <3.44, 0, 3> }

        object {t1 rotate <0, 45, 90> translate <0,3.44, 3> }
        object {p1 rotate <0, 45, 90> translate <0,3.44, 3> }
    }

    #local q2 = object { q1 rotate <0,0,180>}

    #local topo = union {
        object { t1 translate <0,0,4.44>}
        object { p1 translate <0,0,4.44> }
    }
    union {
        object { topo }
        object { q1 }
        object { q2 }
    } 
#end

#macro teto_2()
    #local t1 = box
    {
        <-4.88,-4.88,0>,
        <4.88, 4.88, 0.3>
        texture{ tx_predio }
    }

    #local p1 = box
    {
        <-2,-2,0>,
        <2, 2, 0.4>
        texture{ tx_painel }
    }

    union {
        object {t1 rotate <0, 45, 90> translate <0, 8.3936, -2> }
        object {p1 rotate <0, 45, 90> translate <0, 8.3936, -2> }
    } 
#end

#macro templo()
  union{
    object { predio() }
    object { teto_1() }
    object { teto_2() }
  }
#end

object{ templo() }

#local dir_norte = < 0.0, cos(radians(lat)), sin(radians(lat)) >; 
#local dir_sol = direcao_do_sol(lat, lon, mes, hora);

#include "eixos.inc"
#local cmp_eixos = 5.0;
// object{ eixos(cmp_eixos) }

#declare cmin = < -5.0,  -5.0, -5.0 >;
#declare cmax = < +5.0, +12.5, +5.0 >;
#declare centro_cena = (cmin + cmax)/2;

#include "gaiola.inc"
// object{ gaiola(cmin,cmax) }
object{ gaichao(cmin,cmax) }

#include "camsol.inc"
#declare raio_cena = 0.70*vlength(cmax-cmin);
#declare intens_luz = 1.20;
// #declare vista = 3;
camsol(centro_cena, raio_cena, vista, dir_norte, dir_sol, intens_luz)