// Last edited on 2010-12-17 09:53:57 by stolfilocal
// Processed by remove-cam-lights

#macro quadro(tt)

#include "eixos.inc"

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

#declare marrom =
  texture{
    pigment{ color rgb < 0.9, 0.2, 0.2 > }
                finish{ diffuse 0.8 ambient 0.01 specular 0.5 roughness 0.005 }
  }

  #declare lol =
    texture{
      pigment{ color rgb < 0.0, 0.5, 0.8 > }
                      finish{ diffuse 0.8 ambient 0.01 specular 0.5 roughness 0.005 }
    }

    #declare verde =
      texture{
        pigment{ color rgb < 0.15, 0.90, 0.15 > }
                finish{ diffuse 0.8 ambient 0.01 specular 0.5 roughness 0.005 }
      }

      #declare tx_plastico =
        texture{
          pigment { image_map { jpeg "aviao-combustivel.jpg" } rotate <0, 90, 0> scale 10 }
              finish{ diffuse 0.8 ambient 0.01 specular 0.5 roughness 0.005 }
        }

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

          #declare tx_fosca =
            texture{
               pigment { image_map { jpeg "brasil.jpg" } rotate <0, 90, 0> scale 2 }
                  finish{ diffuse 0.9 ambient 0.1 }
            }

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

              #declare tx_espelho =
                texture{
                  pigment{ color rgb < 1.00, 0.85, 0.30 > }
                      finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
                }

                #declare tx_vidro =
                  texture{
                    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
                        finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.05 }
                  }

                  #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 raio = 10.000;

#declare ctt = cos(4*pi*tt);

#declare stt = sin(4*pi*tt);

#declare caixa =
box{<-5,-5,-5> <5,5,5>}

#macro peh(fase)
union
{
  object { cylinder {<0,0,0> <0,4,0> 0.5}}
  rotate<30+30*sin(2*pi*fase+30),0,0>
}
#end

#macro anteperna(fase)
  union
  {
    object{peh(fase) texture{tx_fosca}}
    object{cylinder{<0,0,0> <0,0,4> 0.5}}
    translate<0,0,-4>
    rotate<-60-60*sin(2*pi*fase+30),0,0>
  }
#end

#macro coxas(fase)
union
{
  object{anteperna(fase) texture{tx_fosca}}
  object{cylinder{<0,0,0> <0,0,4> 0.5}}
  translate<0,0,-4>
    rotate<+30+30*sin(2*pi*fase+30),0,0>
}
#end

#macro armacao(fase, posz)
union
{
  #local angz = 0;
  #if (posz > 0)
    #local angz = 180;
  #end
  object{ box{ <-1,-1,-1> <1,1,1> } rotate <0, 0, angz> translate <0,posz,posz/2 + 2*cos(2*pi*fase)-2> }
  object{coxas(fase) rotate <0, 0, angz> translate <-1,posz,posz/2 + 2*cos(2*pi*fase)-2>}
  object{coxas(fase) rotate <0, 0, angz> translate<1,posz,posz/2 + 2*cos(2*pi*fase)-2>}
}
#end

#macro voo(fase)
union
{
  #local angx = 360 * fase;
  #local angz = 180 * fase;

  object{box{ <-1,-1,-1> <1,1,1> rotate <angx, 0, angz> translate <0,20*fase,10*fase+ 5-20*(fase-0.5)*(fase-0.5)>} }
  object{coxas(0) rotate <angx, 0, angz> translate <-2,20*fase,10*fase+5-20*(fase-0.5)*(fase-0.5)>}
  object{coxas(0) rotate <angx, 0, angz> translate <2,20*fase,10*fase+5-20*(fase-0.5)*(fase-0.5)>}
}
#end

#macro voo1(fase)
union
{
  #local angx = 360 * (1 - fase);
  #local angz = 180 * (1 - fase);

  object{box{ <-1,-1,-1> <1,1,1> rotate <angx, 0, angz> translate <0,20+20*fase,10-10*fase+5-20*(fase-0.5)*(fase-0.5)>} }
  object{coxas(0) rotate <angx, 0, angz> translate <-1,20+20*fase,10-10*fase+5-20*(fase-0.5)*(fase-0.5)>}
  object{coxas(0) rotate <angx, 0, angz> translate <1,20+20*fase,10-10*fase+5-20*(fase-0.5)*(fase-0.5)>}
}
#end

          #if(clock <= 0.25 )
            object{armacao(4*clock, 0) texture{tx_fosca}}
          #end
            #if(clock>=0.25 & clock <= 0.5)
            object{voo(4*(clock-0.25)) texture{tx_fosca}}
          #end
          #if(clock >= 0.5 & clock <= 0.75)
             object{armacao(4*clock, 20) texture{tx_fosca}}
          #end
          #if(clock>=0.75)
             object{voo1(4*(clock-0.75)) texture{tx_fosca}}
          #end

          object{caixa texture{tx_plastico} translate<0,-20,-4>}
          object{caixa texture{tx_plastico} translate<0,0,-14>}
          object{caixa texture{tx_plastico} translate<0,20,-4>}
          object{caixa texture{tx_plastico} translate<0,40,-14>}
          object{caixa texture{tx_plastico} translate<0,60,-4>}

          object{ eixos(100.00) }

#end

          quadro(clock)

// Original camera parameters:
// #local cam_ctr = (<0.00,40*clock,0.00>)
// #local cam_loc = (<50.00,40*clock,10.00>)
// #local cam_vec = ((<50.00,40*clock,10.00>)-(<0.00,40*clock,0.00>))
// #local cam_sky = z

#include "camlight.inc"
camlight((<0.00,40*clock,0.00>),20.000,<10,10,10>,20.0,z,1.2)