// 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 d(p)

   #declare p = <p.x * 1.5, p.y, p.z * 2.5>;

#end

#macro e(p)

  #declare p = <p.x * 3.0, p.y * 2.0, p.z * 2.0>;

#end

#macro f(p)

  #declare p = <p.x * 0.5, p.y * 2.0, p.z>;

#end

#macro aviao_deformado(a12, a22, a32, a42, a13, a23, a33, a43,
                       b12, b22, b32, b42, b13, b23, b33, b43,
                       c12, c22, c32, c42, c13, c23, c33, c43
                       d1, d2)

  #if (d1 = d2)
    e(a12)
    e(a22)
    e(a32)
    e(a42)
    e(a13)
    e(a23)
    e(a33)
    e(a43)
    d(b12)
    d(b22)
    d(b32)
    d(b42)
    d(b13)
    d(b23)
    d(b33)
    d(b43)
    f(c12)
    f(c22)
    f(c32)
    f(c42)
    f(c13)
    f(c23)
    f(c33)
    f(c43)
  #end

  #if (d1 > d2)
    f(a12)
    f(a22)
    f(a32)
    f(a42)
    f(a13)
    f(a23)
    f(a33)
    f(a43)
    e(b12)
    e(b22)
    e(b32)
    e(b42)
    e(b13)
    e(b23)
    e(b33)
    e(b43)
    d(c12)
    d(c22)
    d(c32)
    d(c42)
    d(c13)
    d(c23)
    d(c33)
    d(c43)
  #end

  #if (d1 < d2)
    d(a12)
    d(a22)
    d(a32)
    d(a42)
    d(a13)
    d(a23)
    d(a33)
    d(a43)
    f(b12)
    f(b22)
    f(b32)
    f(b42)
    f(b13)
    f(b23)
    f(b33)
    f(b43)
    e(c12)
    e(c22)
    e(c32)
    e(c42)
    e(c13)
    e(c23)
    e(c33)
    e(c43)
  #end

#end

#macro meioaviao(i1, i2)
   #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>;

   #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 (i1 = i2)
   aviao_deformado(a12, a22, a32, a42, a13, a23, a33, a43,
                   b12, b22, b32, b42, b13, b23, b33, b43,
                   c12, c22, c32, c42, c13, c23, c33, c43
                   1, 1)
   #end

   #if (i1 > i2)
   aviao_deformado(a12, a22, a32, a42, a13, a23, a33, a43,
                   b12, b22, b32, b42, b13, b23, b33, b43,
                   c12, c22, c32, c42, c13, c23, c33, c43
                   2, 1)
   #end

   #if (i1 < i2)
   aviao_deformado(a12, a22, a32, a42, a13, a23, a33, a43,
                   b12, b22, b32, b42, b13, b23, b33, b43,
                   c12, c22, c32, c42, c13, c23, c33, c43
                   1, 2)
   #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(1, 1) }
      object{ meioaviao(1, 1) scale -x}

      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 -x} texture {tx_a} }
      translate -6 * x
   }

   union {
      object{ meioaviao(1, 2) }
      object{ meioaviao(1, 2) scale -x}

      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 -x} texture {tx_a} }
      translate 15 * y
      translate 6 * x
   }

}

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