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

#declare base = 0;
#declare alt = 0.25;
#declare largLat = 0.8;
#declare prof = 0.25;
#declare altura = alt*3;
#declare meioAltura = altura/2;
#declare incrAlt = 0.2;
#declare largBico = 0.2;
#declare larguraLateral = base+largLat*3;

#macro asa(larguraBico, alturaBico)
  box{ <larguraBico+0.5,0,altura/2>, <larguraBico+1,larguraLateral,altura/2+0.1>}
#end

#macro aviao(a11, a12, a13, a14, a21, a22, a23, a24, a31, a32, a33, a34, a41, a42, a43, a44,
                                        c11, c12, c13, c14, c21, c22, c23, c24, c31, c32, c33, c34, c41, c42, c43, c44)

        #declare alturaBico = c44.z;
        #declare larguraBico = c44.x;

        union {

                object{retalho(a11,a12,a13,a14,a21,a22,a23,a24,
                                          a31,a32,a33,a34,a41,a42,a43,a44,
                                          0.005,tx_chao,tx) translate x*larguraBico
                                          }
                object{retalho(a11,a12,a13,a14,a21,a22,a23,a24,
                                          a31,a32,a33,a34,a41,a42,a43,a44,
                                          0.005,tx_chao,tx) translate x*larguraBico scale <1,-1,1>
                                          }

                object{retalho(c11,c12,c13,c14,c21,c22,c23,c24,
                                          c31,c32,c33,c34,c41,c42,c43,c44,
                                          0.005,tx_chao,tx)
                }
                object{retalho(c11,c12,c13,c14,c21,c22,c23,c24,
                                          c31,c32,c33,c34,c41,c42,c43,c44,
                                          0.005,tx_chao,tx) scale <1,-1,1>
                }

                object{ asa(larguraBico,  alturaBico) texture{tx}}
                object{ asa(larguraBico,  alturaBico) texture{tx} scale<1,-1,1>}
        }
#end

#macro deform(P, tt)

        <P.x,
         P.y+cos(2*pi*tt),
         P.z
        >
#end

#macro deform2(P, tt)

        <P.x,
         P.y
         P.z+sin(2*pi*tt),
        >
#end

#macro deform3(P, tt)

        <P.x+abs(sin(pi*tt)/2),
         P.y,
         P.z,
        >
#end

#macro aviaoDeform(a11, a12, a13, a14, a21, a22, a23, a24, a31, a32, a33, a34, a41, a42, a43, a44,
                                        d11, d12, d13, d14, d21, d22, d23, d24, d31, d32, d33, d34, d41, d42, d43, d44, tt)

        aviao(a11, deform2(a12, tt), deform2(a13, tt), a14,
                        a21, deform(a22, tt),  deform(a23, tt),  a24,
                        a31, deform(a32, tt),  deform(a33, tt),  a34,
                        a41, deform2(a42, tt), deform2(a43, tt), a44,
                        deform3(d11, tt), deform3(d12, tt), deform3(d13, tt), d14,
                        deform3(d21, tt), deform3(d22, tt),  deform3(d23, tt),  d24,
                        deform3(d31, tt), deform3(d32, tt),  deform3(d33, tt),  d34,
                        deform3(d41, tt), deform3(d42, tt), deform3(d43, tt), d44)

#end

#macro quadro(tt)

#include "colors.inc"
#include "textures.inc"
#include "woods.inc"
#include "stones.inc"

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

#declare tx = texture{
      pigment { color Blue }
      finish { phong 1 }
}

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

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

#local a22 = <base+largLat,     prof*2,         alt/2>;
#local a23 = <base+largLat*2, prof*2,   alt/2>;
#local a32 = <base+largLat,     prof*2,         alt*2>;
#local a33 = <base+largLat*2, prof*2,   alt*2>;

#local b11 = < base,  0, meioAltura>;
#local b21 = <base,   0, meioAltura>;
#local b31 = <base,   0, meioAltura>;
#local b41 = <base,   0, meioAltura>;

#local b22 = <base+largBico,    prof*2,         alt+incrAlt>;
#local b23 = <base+largBico*2, prof*2, alt/2+incrAlt>;
#local b32 = <base+largBico,    prof*2,         b22.z+incrAlt>;
#local b33 = <base+largBico*2, prof*2, b23.z+incrAlt>;

#local b12 = <base+largBico,     0, alt>;
#local b13 = <base+largBico*2, 0, alt/2>;

#local b42 = <base+largBico,     0, b32.z+incrAlt>;
#local b43 = <base+largBico*2, 0, b33.z+incrAlt>;

#local b24 = (b23+a22)/2;
#local b34 = (b33+a32)/2;

#local a21 = b24;
#local a31 = b34;

#local a12 = <a22.x,  0,        0>;
#local a13 = <a23.x,  0,        0>;
#local a42 = <a22.x,  0,   a32.z+alt>;
#local a43 = <a23.x,  0,        a33.z+alt>;

#local a11 = (b13+a12)/2;
#local a41 = (b43+a42)/2;

#local b14 = a11;
#local b44 = a41;

#local a24 = <a23.x+largLat, a23.y,     a23.z>;
#local a34 = <a33.x+largLat, a33.y,     a33.z>;

#local a14 = <a23.x+largLat, 0,         0>;
#local a44 = <a33.x+largLat, 0,         a33.z+alt>;

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

union{
  object{ eixos(3.00) }
  object{ chao texture{Silver_Metal}}
  object{ aviaoDeform(a11, a12, a13, a14, a21, a22, a23, a24, a31, a32, a33, a34, a41, a42, a43, a44,
                                        b11, b12, b13, b14, b21, b22, b23, b24, b31, b32, b33, b34, b41, b42, b43, b44, tt)
                        texture{tx}}
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 3.0;
#declare dir_camera = < -1, 0.5, 1 >;
#declare dist_camera = 3.0;
#declare intens_luz = 2.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)

#end

quadro(clock)