// Last edited on 2023-12-28 14:37:49 by stolfi

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

/// Original version by jstolfi
// Moved Around by jevs

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

#include "retalho.inc"

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.80, 0.95, 0.75 >, color rgb < 0.85, 0.85, 0.85 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 5.0
  }

#declare chao = disc { <0, 0, 0>, <0, 0, 1>, 200 texture { tx_xadrez } }

#macro cadeira(perna, assento, encosto)

  #local oPerna =   retalho(perna,   rdb, cret0, 3)
  #local oAssento = retalho(assento, rdb, cret1, 3)
  #local oEncosto = retalho(encosto, rdb, cret2, 3)

  union {
    object{oPerna}
    object{oAssento}
    object{oEncosto}   
  }
#end

#macro poltrona()

  #local matPerna = array[4][4];
  #local matAssento = array[4][4];
  #local matEncosto = array[4][4];


  #local matPerna[0][0] = <0, 0, 0>;
  #local matPerna[0][1] = <0, 1, 0>;
  #local matPerna[0][2] = <0, 2, 0>;
  #local matPerna[0][3] = <0, 3, 0>;

  #local matPerna[1][0] = <1, 0, 2>;
  #local matPerna[1][1] = <1, 1, 2>;
  #local matPerna[1][2] = <1, 2, 2>;
  #local matPerna[1][3] = <1, 3, 2>;

  #local matPerna[2][0] = <2, 0, 4>;
  #local matPerna[2][1] = <2, 1, 4>;
  #local matPerna[2][2] = <2, 2, 4>;
  #local matPerna[2][3] = <2, 3, 4>;

  #local matPerna[3][0] = <0,0,0>;
  #local matPerna[3][1] = <0,0,0>;
  #local matPerna[3][2] = <0,0,0>;
  #local matPerna[3][3] = <0,0,0>;

  #local matAssento[0][0] = <0,0,0>;
  #local matAssento[0][1] = <0,0,0>;
  #local matAssento[0][2] = <0,0,0>;
  #local matAssento[0][3] = <0,0,0>;

  #local matAssento[1][0] = <4, 0, 4>;
  #local matAssento[1][1] = <4, 1, 4>;
  #local matAssento[1][2] = <4, 2, 4>;
  #local matAssento[1][3] = <4, 3, 4>;

  #local matAssento[2][0] = <5, 0, 4>;
  #local matAssento[2][1] = <5, 1, 4>;
  #local matAssento[2][2] = <5, 2, 4>;
  #local matAssento[2][3] = <5, 3, 4>;

  #local matAssento[3][0] = <0,0,0>;
  #local matAssento[3][1] = <0,0,0>;
  #local matAssento[3][2] = <0,0,0>;
  #local matAssento[3][3] = <0,0,0>;

  //Encosto
  #local matEncosto[0][0] = <0,0,0>;
  #local matEncosto[0][1] = <0,0,0>;
  #local matEncosto[0][2] = <0,0,0>;
  #local matEncosto[0][3] = <0,0,0>;

  #local matEncosto[1][0] = <7, 0, 3>;
  #local matEncosto[1][1] = <7, 1, 3>;
  #local matEncosto[1][2] = <7, 2, 3>;
  #local matEncosto[1][3] = <7, 3, 3>;

  #local matEncosto[2][0] = <7.5, 0, 8>;
  #local matEncosto[2][1] = <7.5, 1, 8>;
  #local matEncosto[2][2] = <7.5, 2, 8>;
  #local matEncosto[2][3] = <7.5, 3, 8>;

  #local matEncosto[3][0] = <8, 0, 12>;
  #local matEncosto[3][1] = <8, 1, 12>;
  #local matEncosto[3][2] = <8, 2, 12>;
  #local matEncosto[3][3] = <8, 3, 12>;

  #local matBraco = array[4][4];
  #local matBraco[0][0] = <0, 0, 0>;
  #local matBraco[0][1] = <0, 1, 0>;
  #local matBraco[0][2] = <0, 2, 0>;
  #local matBraco[0][3] = <0, 3, 0>;

  #local matBraco[1][0] = <4, 0, 4>;
  #local matBraco[1][1] = <4, 1, 4>;
  #local matBraco[1][2] = <4, 2, 4>;
  #local matBraco[1][3] = <4, 3, 4>;

  #local matBraco[2][0] = <5, 0, 4>;
  #local matBraco[2][1] = <5, 1, 4>;
  #local matBraco[2][2] = <5, 2, 4>;
  #local matBraco[2][3] = <5, 3, 4>;

  #local matBraco[3][0] = <6, 0, 5>;
  #local matBraco[3][1] = <6, 1, 5>;
  #local matBraco[3][2] = <6, 2, 5>;
  #local matBraco[3][3] = <6, 3, 5>;

  #local matPerna[3][0] = (matPerna[2][0]+matAssento[1][0])/2;
  #local matPerna[3][1] = (matPerna[2][1]+matAssento[1][1])/2;
  #local matPerna[3][2] = (matPerna[2][2]+matAssento[1][2])/2;
  #local matPerna[3][3] = (matPerna[2][3]+matAssento[1][3])/2;

  #local matAssento[0][0] = (matPerna[2][0]+matAssento[1][0])/2;
  #local matAssento[0][1] = (matPerna[2][1]+matAssento[1][1])/2;
  #local matAssento[0][2] = (matPerna[2][2]+matAssento[1][2])/2;
  #local matAssento[0][3] = (matPerna[2][3]+matAssento[1][3])/2;


  #local matAssento[3][0] = (matAssento[2][0]+matEncosto[1][0])/2;
  #local matAssento[3][1] = (matAssento[2][1]+matEncosto[1][1])/2;
  #local matAssento[3][2] = (matAssento[2][2]+matEncosto[1][2])/2;
  #local matAssento[3][3] = (matAssento[2][3]+matEncosto[1][3])/2;

  //Encosto
  #local matEncosto[0][0] = (matAssento[2][0]+matEncosto[1][0])/2;
  #local matEncosto[0][1] = (matAssento[2][1]+matEncosto[1][1])/2;
  #local matEncosto[0][2] = (matAssento[2][2]+matEncosto[1][2])/2;
  #local matEncosto[0][3] = (matAssento[2][3]+matEncosto[1][3])/2;

  object{ cadeira(matPerna, matAssento, matEncosto) }

#end

object{ chao  translate < 0,0,-6 > texture{ tx_xadrez } }

#declare duas = false;

#declare cmin = < -0.5, -0.5,  -0.5 >;
#declare cmax = < +9.0, +3.5, +12.5 >;

#if (duas)
  #declare disp = < 0, 0, 0>;
  #declare cmin = cmin - disp;
  #declare cmax = cmax + disp;
  object{ poltrona() translate -disp }
  object{ poltrona() translate +disp }
#else
  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.65*vlength(cmax-cmin);
#declare dist_camera = 7*raio_cena;

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