// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2010-03-04 15:44:01 by stolfi

// ======================================================================
// CORES E TEXTURAS

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

#declare tx_texto = 
  texture{
    pigment{ color rgb < 1, 0.75, 0.85 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

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

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


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

#declare tx_bandeira = 
  texture{ uv_mapping
    pigment{ image_map { jpeg "Inglaterra.jpg"} }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_piso = 
  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
  }





// ======================================================================
// DESCRIÇÃO DA CENA 
#declare raio = 1.000;

#macro interpole (ta, va, tb, vb, var)
  #local s = (var-ta)/(tb-ta);
  ((1-s)*va + s*vb)
#end

// Partes da cena:  

#macro predio ()
  union {
     box {<4,4,0>, <-4,-4,15>}   
  
  }

#end

#macro janela  (dy, h)
  union {
     box {<5.5,1,0>, <-5.5,-1,1>}       
     translate <0,dy,h>
  }

#end

#macro haste  (dx, dy, h)
  union {
     box {<0.15,0.15,-1>, <-0.15,-0.15,3>}       
     translate <dx,dy,h>
      texture {tx_red}
  }

#end

#macro anuncio  (dx, dy, h, foto, posy, posz)
  union {
     box {<3,3,0.05>, <-3,-3,-0.05>}       
      texture {
        pigment{ image_map { jpeg foto} scale (2.5) rotate 90*z translate <1.25,1.3,0>}
        finish{ diffuse 0.9 ambient 0.1 }
      scale 2.0}
      rotate 90*y
      translate <4,0+posy,5+posz>
  }

#end

#macro quadro(tt)

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

#declare t0 = 0.000;
#declare t1 = 0.125;
#declare t2 = 0.25;
#declare t3 = 0.375;
#declare t4 = 0.500;

#declare t5 = 0.625;
#declare t6 = 0.75;
#declare t7 = 0.875;
#declare t8 = 1.000;



// Aqui está a cena, finalmente:
union {
    //predio + janelas
    difference {
       predio ()
       union {
          janela (2, 13)
         janela (-2, 13)
          janela (2, 10)
         janela (-2, 10)
        }
        texture {tx_tapete} 
    }  

//========================================
//PONTO 1
//========================================
  
    #declare p111 = <0,3,0>;
    #declare p112 = <0,3,1>;
    #declare p113 = <0,3,2>;
    #declare p114 = <0,3,3>;

    #declare p121 = <0,2,0>;
    #declare p122 = <0,2,1>;
    #declare p123 = <0,2,2>;
    #declare p124 = <0,2,3>;

    #declare p131 = <0,1,0>;
    #declare p132 = <0,1,1>;
    #declare p133 = <0,1,2>;
    #declare p134 = <0,1,3>;

    #declare p141 = <0,0,0>;
    #declare p142 = <0,0,1>;
    #declare p143 = <0,0,2>;
    #declare p144 = <0,0,3>;

//========================================
//PONTO 2
//========================================

    #declare p211 = <0,3,0>;
    #declare p212 = <0,3,1>;
    #declare p213 = <0,3,2>;
    #declare p214 = <0,3,3>;

    #declare p221 = <0,2,-0.75>;
    #declare p222 = <-1.5,2,0.25>;
    #declare p223 = <-1.5,2,1.25>;
    #declare p224 = <0,2,2.25>;

    #declare p231 = <0,1,0.75>;
    #declare p232 = <1.5,1,1.75>;
    #declare p233 = <1.5,1,2.75>;
    #declare p234 = <0,1,3.75>;

    #declare p241 = <0,0,0>;
    #declare p242 = <0,0,1>;
    #declare p243 = <0,0,2>;
    #declare p244 = <0,0,3>;

//========================================
//PONTO 3
//========================================

    #declare p311 = <0,3,0>;
    #declare p312 = <0,3,1>;
    #declare p313 = <0,3,2>;
    #declare p314 = <0,3,3>;

    #declare p321 = <0,2,0.75>;
    #declare p322 = <1.5,2,1.75>;
    #declare p323 = <1.5,2,2.75>;
    #declare p324 = <0,2,3.75>;

    #declare p331 = <0,1,-0.25>;
    #declare p332 = <-1.5,1,0.25>;
    #declare p333 = <-1.5,1,1.25>;
    #declare p334 = <0,1,2.25>;

    #declare p341 = <0,0,0>;
    #declare p342 = <0,0,1>;
    #declare p343 = <0,0,2>;
    #declare p344 = <0,0,3>;

//========================================
//FASE 1
//========================================
    #if ((tt >= t0) & (tt < t1)) 
    #local fase = 1*((tt-t0)/(t1-t0));
    #declare foto = "spfc.jpg";

    #declare p11 = interpole(0,p111,1,p211,fase);
    #declare p12 = interpole(0,p112,1,p212,fase);
    #declare p13 = interpole(0,p113,1,p213,fase);
    #declare p14 = interpole(0,p114,1,p214,fase);

    #declare p21 = interpole(0,p121,1,p221,fase);
    #declare p22 = interpole(0,p122,1,p222,fase);
    #declare p23 = interpole(0,p123,1,p223,fase);
    #declare p24 = interpole(0,p124,1,p224,fase);

    #declare p31 = interpole(0,p131,1,p231,fase);
    #declare p32 = interpole(0,p132,1,p232,fase);
    #declare p33 = interpole(0,p133,1,p233,fase);
    #declare p34 = interpole(0,p134,1,p234,fase);

    #declare p41 = interpole(0,p141,1,p241,fase);
    #declare p42 = interpole(0,p142,1,p243,fase);
    #declare p43 = interpole(0,p143,1,p243,fase);
    #declare p44 = interpole(0,p144,1,p244,fase);


  #end

//========================================
//FASE 2
//========================================
  #if ((tt >= t1) & (tt < t2)) 
    #local fase = 1*((tt-t1)/(t2-t1));
    #declare foto = "spfc.jpg";

    #declare p11 = interpole(0,p211,1,p111,fase);
    #declare p12 = interpole(0,p212,1,p112,fase);
    #declare p13 = interpole(0,p213,1,p113,fase);
    #declare p14 = interpole(0,p214,1,p114,fase);

    #declare p21 = interpole(0,p221,1,p121,fase);
    #declare p22 = interpole(0,p222,1,p122,fase);
    #declare p23 = interpole(0,p223,1,p123,fase);
    #declare p24 = interpole(0,p224,1,p124,fase);

    #declare p31 = interpole(0,p231,1,p131,fase);
    #declare p32 = interpole(0,p232,1,p132,fase);
    #declare p33 = interpole(0,p233,1,p133,fase);
    #declare p34 = interpole(0,p234,1,p134,fase);

    #declare p41 = interpole(0,p241,1,p141,fase);
    #declare p42 = interpole(0,p242,1,p143,fase);
    #declare p43 = interpole(0,p243,1,p143,fase);
    #declare p44 = interpole(0,p244,1,p144,fase);

  #end

//========================================
//FASE 3
//========================================
  #if ((tt >= t2) & (tt < t3)) 
    #declare foto = "spfc2.jpg";
    #local fase = 1*((tt-t2)/(t3-t2));

    #declare p11 = interpole(0,p111,1,p311,fase);
    #declare p12 = interpole(0,p112,1,p312,fase);
    #declare p13 = interpole(0,p113,1,p313,fase);
    #declare p14 = interpole(0,p114,1,p314,fase);

    #declare p21 = interpole(0,p121,1,p321,fase);
    #declare p22 = interpole(0,p122,1,p322,fase);
    #declare p23 = interpole(0,p123,1,p323,fase);
    #declare p24 = interpole(0,p124,1,p324,fase);

    #declare p31 = interpole(0,p131,1,p331,fase);
    #declare p32 = interpole(0,p132,1,p332,fase);
    #declare p33 = interpole(0,p133,1,p333,fase);
    #declare p34 = interpole(0,p134,1,p334,fase);

    #declare p41 = interpole(0,p141,1,p341,fase);
    #declare p42 = interpole(0,p142,1,p343,fase);
    #declare p43 = interpole(0,p143,1,p343,fase);
    #declare p44 = interpole(0,p144,1,p344,fase);

  #end

//========================================
//FASE 4
//========================================
  #if ((tt >= t3) & (tt <= t4)) 
    #local fase = 1*((tt-t3)/(t4-t3));
    #declare foto = "spfc2.jpg";  

    #declare p11 = interpole(0,p311,1,p111,fase);
    #declare p12 = interpole(0,p312,1,p112,fase);
    #declare p13 = interpole(0,p313,1,p113,fase);
    #declare p14 = interpole(0,p314,1,p114,fase);

    #declare p21 = interpole(0,p321,1,p121,fase);
    #declare p22 = interpole(0,p322,1,p122,fase);
    #declare p23 = interpole(0,p323,1,p123,fase);
    #declare p24 = interpole(0,p324,1,p124,fase);

    #declare p31 = interpole(0,p331,1,p131,fase);
    #declare p32 = interpole(0,p332,1,p132,fase);
    #declare p33 = interpole(0,p333,1,p133,fase);
    #declare p34 = interpole(0,p334,1,p134,fase);

    #declare p41 = interpole(0,p341,1,p141,fase);
    #declare p42 = interpole(0,p342,1,p143,fase);
    #declare p43 = interpole(0,p343,1,p143,fase);
    #declare p44 = interpole(0,p344,1,p144,fase);
 

  #end


//========================================
//FASE 1
//========================================
    #if ((tt >= t4) & (tt < t5)) 
    #local fase = 1*((tt-t4)/(t5-t4));
    #declare foto = "spfc.jpg";

    #declare p11 = interpole(0,p111,1,p211,fase);
    #declare p12 = interpole(0,p112,1,p212,fase);
    #declare p13 = interpole(0,p113,1,p213,fase);
    #declare p14 = interpole(0,p114,1,p214,fase);

    #declare p21 = interpole(0,p121,1,p221,fase);
    #declare p22 = interpole(0,p122,1,p222,fase);
    #declare p23 = interpole(0,p123,1,p223,fase);
    #declare p24 = interpole(0,p124,1,p224,fase);

    #declare p31 = interpole(0,p131,1,p231,fase);
    #declare p32 = interpole(0,p132,1,p232,fase);
    #declare p33 = interpole(0,p133,1,p233,fase);
    #declare p34 = interpole(0,p134,1,p234,fase);

    #declare p41 = interpole(0,p141,1,p241,fase);
    #declare p42 = interpole(0,p142,1,p243,fase);
    #declare p43 = interpole(0,p143,1,p243,fase);
    #declare p44 = interpole(0,p144,1,p244,fase);


  #end

//========================================
//FASE 2
//========================================
  #if ((tt >= t5) & (tt < t6)) 
    #local fase = 1*((tt-t5)/(t6-t5));
    #declare foto = "spfc.jpg";

    #declare p11 = interpole(0,p211,1,p111,fase);
    #declare p12 = interpole(0,p212,1,p112,fase);
    #declare p13 = interpole(0,p213,1,p113,fase);
    #declare p14 = interpole(0,p214,1,p114,fase);

    #declare p21 = interpole(0,p221,1,p121,fase);
    #declare p22 = interpole(0,p222,1,p122,fase);
    #declare p23 = interpole(0,p223,1,p123,fase);
    #declare p24 = interpole(0,p224,1,p124,fase);

    #declare p31 = interpole(0,p231,1,p131,fase);
    #declare p32 = interpole(0,p232,1,p132,fase);
    #declare p33 = interpole(0,p233,1,p133,fase);
    #declare p34 = interpole(0,p234,1,p134,fase);

    #declare p41 = interpole(0,p241,1,p141,fase);
    #declare p42 = interpole(0,p242,1,p143,fase);
    #declare p43 = interpole(0,p243,1,p143,fase);
    #declare p44 = interpole(0,p244,1,p144,fase);

  #end

//========================================
//FASE 3
//========================================
  #if ((tt >= t6) & (tt < t7)) 
    #declare foto = "spfc2.jpg";
    #local fase = 1*((tt-t6)/(t7-t6));

    #declare p11 = interpole(0,p111,1,p311,fase);
    #declare p12 = interpole(0,p112,1,p312,fase);
    #declare p13 = interpole(0,p113,1,p313,fase);
    #declare p14 = interpole(0,p114,1,p314,fase);

    #declare p21 = interpole(0,p121,1,p321,fase);
    #declare p22 = interpole(0,p122,1,p322,fase);
    #declare p23 = interpole(0,p123,1,p323,fase);
    #declare p24 = interpole(0,p124,1,p324,fase);

    #declare p31 = interpole(0,p131,1,p331,fase);
    #declare p32 = interpole(0,p132,1,p332,fase);
    #declare p33 = interpole(0,p133,1,p333,fase);
    #declare p34 = interpole(0,p134,1,p334,fase);

    #declare p41 = interpole(0,p141,1,p341,fase);
    #declare p42 = interpole(0,p142,1,p343,fase);
    #declare p43 = interpole(0,p143,1,p343,fase);
    #declare p44 = interpole(0,p144,1,p344,fase);

  #end

//========================================
//FASE 4
//========================================
  #if ((tt >= t7) & (tt <= t8)) 
    #local fase = 1*((tt-t7)/(t8-t7));
    #declare foto = "spfc2.jpg";  

    #declare p11 = interpole(0,p311,1,p111,fase);
    #declare p12 = interpole(0,p312,1,p112,fase);
    #declare p13 = interpole(0,p313,1,p113,fase);
    #declare p14 = interpole(0,p314,1,p114,fase);

    #declare p21 = interpole(0,p321,1,p121,fase);
    #declare p22 = interpole(0,p322,1,p122,fase);
    #declare p23 = interpole(0,p323,1,p123,fase);
    #declare p24 = interpole(0,p324,1,p124,fase);

    #declare p31 = interpole(0,p331,1,p131,fase);
    #declare p32 = interpole(0,p332,1,p132,fase);
    #declare p33 = interpole(0,p333,1,p133,fase);
    #declare p34 = interpole(0,p334,1,p134,fase);

    #declare p41 = interpole(0,p341,1,p141,fase);
    #declare p42 = interpole(0,p342,1,p143,fase);
    #declare p43 = interpole(0,p343,1,p143,fase);
    #declare p44 = interpole(0,p344,1,p144,fase);
 

  #end


// posiacao do anuncio
#declare posy = cos(2*pi*tt);
#declare posz = sin(2*pi*tt);


    //Instanciando bandeiras + hastes
    object {
      union {
        retalho(
        p11,p12,p13,p14,
        p21,p22,p23,p24,
        p31,p32,p33,p34,
        p41,p42,p43,p44,
        0.01,
        tx_red,tx_bandeira)
        
        haste(0,0,0)
      }
      translate <3,0,16>
    }

     object { 
       union {
        retalho(
        p11,p12,p13,p14,
        p21,p22,p23,p24,
        p31,p32,p33,p34,
        p41,p42,p43,p44,
        0.01,
        tx_red,tx_bandeira)
        
        haste(0,0,0 )
      }
      translate <-3,0,16>
    }


    // anuncio
    object { anuncio (5,0,5, foto, posy, posz)}

    //chao
    box{<15,15, 0>, <-15,-15,-0.5> texture {tx_piso}   }

    //ajeita a escala e a localizacao da cena
    scale (0.7)
    translate <0,0,-4>
}


#end

 

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 20.0;
#declare dir_camera = <17.00-5*clock, 5.00+9*clock, 10.00-clock>;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)

quadro(clock)