// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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

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

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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.40, 0.40, 0.40 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca2 =
  texture{
    pigment{ color rgb < 0.80, 0.40, 0.40 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare chao =
  box{ <-20,-20,-1>, <+20,+20,0> }

#macro roda(r)
  cylinder{
    <0,0,0>,
    <0,0.1,0>,
    r
    texture{tx_fosca}
  }

#end

#macro cano(n)
  cylinder{
    <0,0,0>,
    <n,0,0>,
    0.05
    texture{tx_fosca2}
  }
#end

#macro base(r,n)
 union{
  object{roda(r)}
  object{roda(r) translate<0,n+0.05,0>}
  object{cano(n+0.05) rotate<0,0,90>}
  object{cano(1.5*n) translate<0,n/2-0.025,0>}
  object{cano(1.5*n) translate<0,n/2+0.125,0>}
  object{roda(r/2) translate<n*1.5,n/2+0.025,0>}
 }
#end

#macro meio_sofa(n,m,r,tx1,tx2,f)

   #local taxa = f/40;
   #if(taxa < 0.8)
     #local taxa = 0.8;
   #end
   #if(taxa>2.5)
     #local taxa = 2.5;
   #end

 union{
   #local A=array[4][4];
   #local A[0][0] = <0*n+(n/5),0*2/3*m+(m/5),0>;
   #local A[0][1] = <0*n,1*2/3*m,0>;
   #local A[0][2] = <0*n,2*2/3*m,0>;
   #local A[0][3] = <0*n+(n/5),3*2/3*m-(m/5),0>;
   #local A[1][0] = <0.3*n,0*2/3*m,(n/2)*taxa>;
   #local A[1][1] = <0.3*n,1*2/3*m,(n/2)*taxa>;
   #local A[1][2] = <0.3*n,2*2/3*m,(n/2)*taxa>;
   #local A[1][3] = <0.3*n,3*2/3*m,(n/2)*taxa>;
   #local A[2][0] = <2.7*n,0*2/3*m,(n/2)*taxa>;
   #local A[2][1] = <2.7*n,1*2/3*m,(n/2)*taxa>;
   #local A[2][2] = <2.7*n,2*2/3*m,(n/2)*taxa>;
   #local A[2][3] = <2.7*n,3*2/3*m,(n/2)*taxa>;
   #local A[3][0] = <3*n-(n/5),0*2/3*m+(m/5),0>;
   #local A[3][1] = <3*n,1*2/3*m,0>;
   #local A[3][2] = <3*n,2*2/3*m,0>;
   #local A[3][3] = <3*n-(n/5),3*2/3*m-(m/5),0>;

   #local B=array[4][4];
   #local B[0][0] = A[0][0];
   #local B[0][1] = A[0][1];
   #local B[0][2] = A[0][2];
   #local B[0][3] = A[0][3];
   #local B[1][0] = <0.3*n,0*2/3*m,(-n/2)*taxa>;
   #local B[1][1] = <0.3*n,1*2/3*m,(-n/2)*taxa>;
   #local B[1][2] = <0.3*n,2*2/3*m,(-n/2)*taxa>;
   #local B[1][3] = <0.3*n,3*2/3*m,(-n/2)*taxa>;
   #local B[2][0] = <2.7*n,0*2/3*m,(-n/2)*taxa>;
   #local B[2][1] = <2.7*n,1*2/3*m,(-n/2)*taxa>;
   #local B[2][2] = <2.7*n,2*2/3*m,(-n/2)*taxa>;
   #local B[2][3] = <2.7*n,3*2/3*m,(-n/2)*taxa>;
   #local B[3][0] = A[3][0];
   #local B[3][1] = A[3][1];
   #local B[3][2] = A[3][2];
   #local B[3][3] = A[3][3];

   #local C=array[4][4];
   #local C[0][0] = A[0][3];
   #local C[0][1] = A[0][3];
   #local C[0][2] = B[0][3];
   #local C[0][3] = B[0][3];
   #local C[1][0] = A[1][3];
   #local C[1][1] = <0.3*n,3*2/3*m+(0.2*taxa),(n/2)*taxa>;
   #local C[1][2] = <0.3*n,3*2/3*m+(0.2*taxa),(-n/2)*taxa>;
   #local C[1][3] = B[1][3];
   #local C[2][0] = A[2][3];
   #local C[2][1] = <2.7*n,3*2/3*m+(0.2*taxa),(n/2)*taxa>;
   #local C[2][2] = <2.7*n,3*2/3*m+(0.2*taxa),(-n/2)*taxa>;
   #local C[2][3] = B[2][3];
   #local C[3][0] = A[3][3];
   #local C[3][1] = A[3][3];
   #local C[3][2] = B[3][3];
   #local C[3][3] = B[3][3];

   #local D=array[4][4];
   #local D[0][0] = A[0][0];
   #local D[0][1] = A[0][0];
   #local D[0][2] = B[0][0];
   #local D[0][3] = B[0][0];
   #local D[1][0] = A[1][0];
   #local D[1][1] = <0.3*n,0*2/3*m-(0.2*taxa),(n/2)*taxa>;
   #local D[1][2] = <0.3*n,0*2/3*m-(0.2*taxa),(-n/2)*taxa>;
   #local D[1][3] = B[1][0];
   #local D[2][0] = A[2][0];
   #local D[2][1] = <2.7*n,0*2/3*m-(0.2*taxa),(n/2)*taxa>;
   #local D[2][2] = <2.7*n,0*2/3*m-(0.2*taxa),(-n/2)*taxa>;
   #local D[2][3] = B[2][0];
   #local D[3][0] = A[3][0];
   #local D[3][1] = A[3][0];
   #local D[3][2] = B[3][0];
   #local D[3][3] = B[3][0];
  object{
   retalho(A[0][0],A[0][1],A[0][2],A[0][3],A[1][0],A[1][1],A[1][2],A[1][3],A[2][0],A[2][1],A[2][2],A[2][3],A[3][0],A[3][1],A[3][2],A[3][3],r, tx1,tx2)
  }
  object{
   retalho(B[0][0],B[0][1],B[0][2],B[0][3],B[1][0],B[1][1],B[1][2],B[1][3],B[2][0],B[2][1],B[2][2],B[2][3],B[3][0],B[3][1],B[3][2],B[3][3],r, tx1,tx2)
  }
  object{
   retalho(C[0][0],C[0][1],C[0][2],C[0][3],C[1][0],C[1][1],C[1][2],C[1][3],C[2][0],C[2][1],C[2][2],C[2][3],C[3][0],C[3][1],C[3][2],C[3][3],r, tx1,tx1)
  }
  object{
   retalho(D[0][0],D[0][1],D[0][2],D[0][3],D[1][0],D[1][1],D[1][2],D[1][3],D[2][0],D[2][1],D[2][2],D[2][3],D[3][0],D[3][1],D[3][2],D[3][3],r, tx1,tx1)
  }
 }
#end

#include "eixos.inc"
#include "retalho.inc"

#macro sofaciclo(r,b,n,m,f)
 union{
  object{ base(r,b)}
  object{meio_sofa(n,m,0.00000001,tx_plastico2,tx_plastico,f) translate<0,0.3,0.2>}
  object{meio_sofa(-n,m,0.00000001,tx_plastico2,tx_plastico,f) rotate<0,75,0> translate<0,0.3,0.2>}
 }
#end

union{
  object{ eixos(3.00) }
  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }
  object{ sofaciclo(0.5,1.8,0.65,0.65,90) rotate<0,0,30> translate<1,-1,0>}
  object{ sofaciclo(0.5,1.8,0.65,0.65,0) rotate<0,0,30> translate<1,3,0>}

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 6.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)