// Last edited on 2023-12-28 17:16:33 by stolfi

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

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

#include "retalho.inc"

#macro desenha (altura, largura, inclinacao, c0,c1,c2)

  #local assento = array[4][4]
  #local assento[0][0] = <0,0   ,0>;
  #local assento[1][0] = <0,largura/3,0>;
  #local assento[2][0] = <0,2*largura/3,0>;
  #local assento[3][0] = <0,largura  ,0>;

  #local assento[0][1] = <-1,0   ,-0.7>;
  #local assento[1][1] = <-1,largura/3,-0.7>;
  #local assento[2][1] = <-1,2*largura/3,-0.7>;
  #local assento[3][1] = <-1,largura  ,-0.7>;

  #local assento[0][2] = <-1 - cos(radians(90-inclinacao)),0          ,sin(radians(90-inclinacao))>;
  #local assento[1][2] = <-1 - cos(radians(90-inclinacao)),largura/3  ,sin(radians(90-inclinacao))>;
  #local assento[2][2] = <-1 - cos(radians(90-inclinacao)),2*largura/3,sin(radians(90-inclinacao))>;
  #local assento[3][2] = <-1 - cos(radians(90-inclinacao)),largura    ,sin(radians(90-inclinacao))>;

  #local assento[0][3] = <-1 - 2*cos(radians(90-inclinacao)),0   ,2*sin(radians(90-inclinacao))>;
  #local assento[1][3] = <-1 - 2*cos(radians(90-inclinacao)),largura/3,2*sin(radians(90-inclinacao))>;
  #local assento[2][3] = <-1 - 2*cos(radians(90-inclinacao)),2*largura/3,2*sin(radians(90-inclinacao))>;
  #local assento[3][3] = <-1 - 2*cos(radians(90-inclinacao)),largura  ,2*sin(radians(90-inclinacao))>;


  #local perna = array[4][4]
  #local perna[0][0] = assento[0][0];
  #local perna[1][0] = assento[1][0];
  #local perna[2][0] = assento[2][0];
  #local perna[3][0] = assento[3][0];

  #local perna[0][1] = 2*assento[0][0] - assento[0][1]; 
  #local perna[1][1] = 2*assento[1][0] - assento[1][1] ;
  #local perna[2][1] = 2*assento[2][0] - assento[2][1] ;
  #local perna[3][1] = 2*assento[3][0] - assento[3][1] ;

  #local perna[0][2] = <+0.6,0   ,-1>;
  #local perna[1][2] = <+0.6,largura/3,-1>;
  #local perna[2][2] = <+0.6,2*largura/3,-1>;
  #local perna[3][2] = <+0.6,largura  ,-1>;

  #local perna[0][3] = <1.5,0   ,-1.5>;
  #local perna[1][3] = <1.5,largura/3,-1.5>;
  #local perna[2][3] = <1.5,2*largura/3,-1.5>;
  #local perna[3][3] = <1.5,largura  ,-1.5>;


  #local braco = array[4][4]
  #local braco[0][0] = assento[3][0];
  #local braco[1][0] = assento[3][1];
  #local braco[2][0] = assento[3][2];
  #local braco[3][0] = assento[3][3];

  #local braco[0][1] = 2*assento[3][0] - assento[2][0]; 
  #local braco[1][1] = 2*assento[3][1] - assento[2][1] ;
  #local braco[2][1] = 2*assento[3][2] - assento[2][2] ;
  #local braco[3][1] = 2*assento[3][3] - assento[2][3] ;

  #local braco[0][2] = <-1, largura+0.2, 0>;
  #local braco[1][2] = <-1, largura+0.2, 0.33>;
  #local braco[2][2] = <-1, largura+0.2, 0.66>;
  #local braco[3][2] = <-1, largura+0.2, 1>;

  #local braco[0][3] = <-0, largura+1, 1>;
  #local braco[1][3] = <-0.33, largura+1, 1>;
  #local braco[2][3] = <-0.66, largura+1, 1>;
  #local braco[3][3] = <-1, largura+1, 1>;
  union {
    object{retalho(assento, rdb, c0, 3) translate <0, 0, altura>}
    object{retalho(perna,   rdb, c1, 3) translate <0, 0, altura>}
    object{retalho(braco,   rdb, c2, 3) translate <0, 0, altura>} 
  }

#end

#macro poltrona(altu,larg,incl)
  union{
    object{ desenha(altu,larg,incl, cret0,cret1,cret2) }
    object{ desenha(altu,larg,incl, cret3,cret4,cret5) scale <1, -1, 1> }
  }
#end

#declare duas = true;

#declare cmin = < -3.0, -2.5, -2.5 >;
#declare cmax = < +2.5, +2.5, +3.0 >;

#if (duas)
  #declare disp = < 0, 2.0, 0>;
  #declare cmin = cmin - disp;
  #declare cmax = cmax + disp;
  object{ poltrona(0.00, 0.50, 20.00) translate -disp }
  object{ poltrona(1.00, 0.75, 45.00) translate +disp }
#else
  object{ poltrona(0.50, 0.63, 33.00) }
#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.50*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)