// Last edited on 2023-12-30 05:41:59 by stolfi
#version 3.7; global_settings { assumed_gamma 2.2 }

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

#declare tx_plastico = 
  texture{
    pigment{ color rgb < 0.50, 0.90, 0.50 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

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


#macro placa()
  #declare painel = box{ <1.3, 2,1>, <+1,+4,3> texture{ tx_painel } }
  union {
    box{ <0, 0,0>, <+1,+4,5> texture{ tx_plastico } } 
    object { painel translate <0, -1, 0> }
  }
#end

#macro base()
  union {
    object { placa() rotate <0, -30, 180> translate <0, 4, 0> }
    object { placa() rotate <0, -30, 0> translate <8, 0, 0> }
  }
#end

#macro coluna()
  union {
    cylinder { <0, 0, 0>, <0, 0, 7>, 0.5 texture {tx_plastico } }
    object { ponta() rotate<45, 0, 0> translate <0, 0, 7> }
  }
  
#end 

#macro ponta() 
  union {
     box{ <-1, -1, -1>, <+1,+1,1> texture{ tx_plastico } }
     cylinder {
        <0, 0, -1.5>, <0, 0, 1.5>, 0.5       
        texture {tx_painel } 
      } 
      cylinder {
        <0, -1.5, 0>, <0, 1.5, 0>, 0.5       
        texture {tx_painel } 
      } 
       cylinder {
        <-1.5, 0, 0>, <1.5, 0, 0>, 0.5       
        texture {tx_painel } 
      } 
  }
#end 

#macro templo()
  union {
    object { base() }
    object { base() rotate <0, 0, 90> translate <6, -2, 0>}
    object { coluna() translate <3.5, 2, 0>}
  }
#end

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

#local dir_sol = direcao_do_sol(lat, lon, mes, hora);

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 = < -1.5, -3.5,  0.0 >;
#declare cmax = < +9.5, +7.5, +9.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.65*vlength(cmax-cmin);
#declare intens_luz = 1.20;
// #declare vista = 3;
camsol(centro_cena, raio_cena, vista, dir_norte, dir_sol, intens_luz)