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

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

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

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

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

#declare tx_grade =
texture{
    pigment{ color rgb < 0.30, 0.30, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare roleta = seed(19);
#declare scale_roda = .2;

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

#macro fB(p)
   #local fator=(p.y*-.2-.7)*2.5;
   #declare p=<p.x*fator, p.y, p.z*fator>;
#end

#macro fC(p)
   #declare p=<p.x/(p.y+17),  p.y*1.4,  p.z/(p.y+17)>;
#end

#macro meioaviao(deformacao)
   #local a12=<0,1,2>;
   #local a13=<0,2,2>;
   #local a14=<0,0,.4>;
   #local a22=<-1,1,2>;
   #local a23=<-1,2,2>;
   #local a24=<-1,0,.4>;
   #local a32=<-1,1,0>;
   #local a33=<-1,2,0>;
   #local a34=<-1,0,0>;
   #local a42=<0,1,0>;
   #local a43=<0,2,0>;
   #local a44=<0,0,0>;

   #local b12=<0,-10,3>;
   #local b13=<0,-5,3>;
   #local b22=<-3,-10,3>;
   #local b23=<-3,-5,3>;
   #local b32=<-3,-10,0>;
   #local b33=<-3,-5,0>;
   #local b42=<0,-10,0>;
   #local b43=<0,-5,0>;

   #if(mod(deformacao,2) = 1) //1 ou 3
      fB(b12);
      fB(b13);
      fB(b22);
      fB(b23);
      fB(b32);
      fB(b33);
      fB(b42);
      fB(b43);
   #end

   #local c11=<0,-16,7>;
   #local c12=<0,-15,6>;
   #local c13=<0,-14,5>;
   #local c21=<-.2,-16,7>;
   #local c22=<-.5,-15,6>;
   #local c23=<-1,-14,5>;
   #local c31=<-.2,-16,2>;
   #local c32=<-.5,-15,1>;
   #local c33=<-1,-14,0>;
   #local c41=<0,-16,2>;
   #local c42=<0,-15,1>;
   #local c43=<0,-14,0>;

   #if(deformacao >= 2) //2 ou 3
      fC(c11)
      fC(c12);
      fC(c13);
      fC(c21);
      fC(c22);
      fC(c23);
      fC(c31);
      fC(c32);
      fC(c33);
      fC(c41);
      fC(c42);
      fC(c43);
   #end

   #local a11=(a12+b13)/2;
   #local a21=(a22+b23)/2;
   #local a31=(a32+b33)/2;
   #local a41=(a42+b43)/2;

   #local b14=a11;
   #local b24=a21;
   #local b34=a31;
   #local b44=a41;

   #local b11=(b12+c13)/2;
   #local b21=(b22+c23)/2;
   #local b31=(b32+c33)/2;
   #local b41=(b42+c43)/2;

   #local c14=b11;
   #local c24=b21;
   #local c34=b31;
   #local c44=b41;

   union{
      object{
         retalho(
               a11,a12,a13,a14,
               a21,a22,a23,a24,
               a31,a32,a33,a34,
               a41,a42,a43,a44,
               0.00000000000001,
               tx_grade, tx_a)
      }

      object{
         retalho(
               b11,b12,b13,b14,
               b21,b22,b23,b24,
               b31,b32,b33,b34,
               b41,b42,b43,b44,
               0.00000000000001,
               tx_grade, tx_b)
      }

      object{
         retalho(
               c11,c12,c13,c14,
               c21,c22,c23,c24,
               c31,c32,c33,c34,
               c41,c42,c43,c44,
               0.00000000000001,
               tx_grade, tx_c)
      }
   }
#end

union{
   object{ eixos(3.00) }

   union{
      object{ meioaviao(0) } //nenhuma deformacao
      object{ meioaviao(0) scale <-1,1,1>}
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1>} texture {tx_a} }
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1> scale <-1,1,1>} texture {tx_a} }
      translate -8*x+8*z
   }

   union{
      object{ meioaviao(1) } //somente a primeira deformacao
      object{ meioaviao(1) scale <-1,1,1>}
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1>} texture {tx_a} }
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1> scale <-1,1,1>} texture {tx_a} }
   }

   union{
      object{ meioaviao(2) } //somente a segunda deformacao
      object{ meioaviao(2) scale <-1,1,1>}
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1>} texture {tx_a} }
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1> scale <-1,1,1>} texture {tx_a} }
      translate 8*x-4*z
   }

   union{
      object{ meioaviao(3) } //ambas as deformacoes
      object{ meioaviao(3) scale <-1,1,1>}
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1>} texture {tx_a} }
      object{ box{ <0,0,0> <5,1,.5> translate <0,-5,1> scale <-1,1,1>} texture {tx_a} }
      translate 16*x-8*z
   }

   translate <-10,5,0>

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 30.0;
#declare dir_camera = < 1.00, .50, 1.00 > ;
#declare dist_camera = 18.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)