// Last edited on 2023-12-28 08:54:50 by stolfi

// Raio da grade debug:
// #declare rdb = 0.05;
#declare rdb = 0;

background{ color rgb < 0.8, 0.8, 0.9 > }

// ======================================================================
// PARTES
#include "retalho.inc"

#declare braco = array[4][4];
#declare braco[0][0] = <-2, 0, 0>;
#declare braco[0][1] = <1, 0, 0>;
#declare braco[0][2] = <2, 0, 0>;
#declare braco[0][3] = <3, 0, 0>;
#declare braco[1][0] = <-2, 0, 1>;
#declare braco[1][1] = <1, 0, 1>;
#declare braco[1][2] = <2, 0, 1>;
#declare braco[1][3] = <3, 0, 1>;
#declare braco[2][0] = <-2, -1, 1>;
#declare braco[2][1] = <1, -1, 1>;
#declare braco[2][2] = <2, -1, 1>;
#declare braco[2][3] = <3, -1, 1>;
#declare braco[3][0] = <-2, -1, 0>;
#declare braco[3][1] = <1, -1, 0>;
#declare braco[3][2] = <2, -1, 0>;
#declare braco[3][3] = <3, -1, 0>;

#declare assento = array[4][4];
#declare assento[0][0] = <-2, -1, 0>;
#declare assento[0][1] = <1, -1, 0>;
#declare assento[0][2] = <2, -1, 0>;
#declare assento[0][3] = <3, -1, 0>;
#declare assento[1][0] = <-2, -1, -1>;
#declare assento[1][1] = <1, -1, -1>;
#declare assento[1][2] = <2, -1, -1>;
#declare assento[1][3] = <3, -1, -1>;
#declare assento[2][0] = <-2, -1, -2>;
#declare assento[2][1] = <1, -1, -2>;
#declare assento[2][2] = <2, -1, -2>;
#declare assento[2][3] = <3, -1, -2>;
#declare assento[3][0] = <-2, -4, -2>;
#declare assento[3][1] = <1, -4, -2>;
#declare assento[3][2] = <2, -4, -2>;
#declare assento[3][3] = <3, -4, -2>;

#declare perna = array[4][4];
#declare perna[0][0] = <3, -1, 0>;
#declare perna[0][1] = <3, -1, -1>;
#declare perna[0][2] = <3, -1, -2>;
#declare perna[0][3] = <3, -4, -2>;
#declare perna[1][0] = 2 * perna[0][0] - assento[0][2];
#declare perna[1][1] = 2 * perna[0][1] - assento[1][2];
#declare perna[1][2] = 2 * perna[0][2] - assento[2][2];
#declare perna[1][3] = 2 * perna[0][3] - assento[3][2];
#declare perna[2][0] = <4, -1, -3>;
#declare perna[2][1] = <4, -2, -3>;
#declare perna[2][2] = <4, -3, -3>;
#declare perna[2][3] = <4, -4, -3>;
#declare perna[3][0] = <5, -1, -5>;
#declare perna[3][1] = <5, -2, -5>;
#declare perna[3][2] = <5, -3, -5>;
#declare perna[3][3] = <5, -4, -5>;

#declare pe = array[4][4];
#declare pe[0][0] = <5, -1, -5>;
#declare pe[0][1] = <5, -2, -5>;
#declare pe[0][2] = <5, -3, -5>;
#declare pe[0][3] = <5, -4, -5>;
#declare pe[1][0] = 2 * pe[0][0] - perna[2][0];
#declare pe[1][1] = 2 * pe[0][1] - perna[2][1];
#declare pe[1][2] = 2 * pe[0][2] - perna[2][2];
#declare pe[1][3] = 2 * pe[0][3] - perna[2][3];
#declare pe[2][0] = <6, -1, -7>;
#declare pe[2][1] = <6, -2, -7>;
#declare pe[2][2] = <6, -3, -7>;
#declare pe[2][3] = <6, -4, -7>;
#declare pe[3][0] = <8, -1, -6>;
#declare pe[3][1] = <8, -2, -6>;
#declare pe[3][2] = <8, -3, -6>;
#declare pe[3][3] = <8, -4, -6>;

#declare encosto = array[4][4];
#declare encosto[0][0] = <-2, -1, 0>;
#declare encosto[0][1] = <-2, -1, -1>;
#declare encosto[0][2] = <-2, -1, -2>;
#declare encosto[0][3] = <-2, -4, -2>;
#declare encosto[1][0] = 2 * encosto[0][0] - assento[0][1];
#declare encosto[1][1] = 2 * encosto[0][1] - assento[1][1];
#declare encosto[1][2] = 2 * encosto[0][2] - assento[2][1];
#declare encosto[1][3] = 2 * encosto[0][3] - assento[3][1];
#declare encosto[2][0] = <-3, -1, 4>;
#declare encosto[2][1] = <-3, -2, 4>;
#declare encosto[2][2] = <-3, -3, 4>;
#declare encosto[2][3] = <-3, -4, 4>;
#declare encosto[3][0] = <-4, -1, 6>;
#declare encosto[3][1] = <-4, -2, 6>;
#declare encosto[3][2] = <-4, -3, 6>;
#declare encosto[3][3] = <-4, -4, 6>;

#macro meia_poltrona(c0,c1,c2,c3,c4)
    union {
        object { retalho(braco,   rdb, c0, 3) }
        object { retalho(assento, rdb, c1, 3) }
        object { retalho(perna,   rdb, c2, 3) }
        object { retalho(pe,      rdb, c3, 3) }
        object { retalho(encosto, rdb, c4, 3) }
    }
#end

#macro poltrona()
    union {
        object { meia_poltrona(cret0,cret1,cret2,cret3,cret4) }
        object { meia_poltrona(cret2,cret3,cret4,cret5,cret6) scale <+1, -1, +1> translate <0, -8, 0> }
    }
#end
// ======================================================================

#declare duas = false;

#if (duas)
  #declare cmin = < -10, -10, -10 >;
  #declare cmax = < +10, +10, +10 >;
  object{ poltrona() translate -10*y }
  object{ poltrona() translate +10*y }
#else
  #declare cmin = <  -6,  -9, -8 >;
  #declare cmax = <  +9,  +1, +7 >;
  object{ poltrona() }
#end

#include "eixos.inc"
#if (rdb > 0) object{ eixos(5.0) } #end

#include "gaiola.inc"
#if (rdb > 0) object{ gaiola(cmin,cmax) } #end
#if (rdb = 0) object{ gaipiso(cmin,cmax) } #end

#declare centro_cena = (cmin + cmax)/2;
#declare raio_cena = 0.55*vlength(cmax-cmin);
#declare dist_camera = 7*raio_cena;

#include "camlight.inc"
#declare dir_camera = < 7, 5, 3 >;
#declare intens_luz = 1.2;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)