// 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_shuriken = 
  texture{
    pigment{ color rgb < 0, 0, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }
  
#declare tx_asa = 
  texture{
    pigment{ color rgb < 0.9, 1, 0.9 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_fosca = 
  texture{
    pigment{ color rgb < 0.75, 0.25, 0.05 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }




// ======================================================================
// DESCRIÇÃO DA CENA 

#declare raio = 2.000;

// Partes da cena:

#declare norte =
  cone {
    < 0, 0, 0 >, 2.0
    < 0, 0, 8 >, 0.0
    texture{ tx_shuriken }
  }
  
#declare hole =
  cylinder{
    < 0, -5, 0 >
    < 0, 5, 0 >
    1
    texture{ tx_fosca }
  }
  
#declare shuriken = 
  difference{
    union{
      object{ norte }
      object{ norte rotate < 0, -90, 0 > }
      object{ norte rotate < 0, 90, 0 > }
      object{ norte rotate < 0, 180, 0 > }
    }
    object{ hole }
  }
  
#declare cone_asa =
  cone{
    < 0, 0, 0 > 0.8
    < 0, 0, 5 > 0.2
    texture{ tx_asa }
  }
  
#declare hole_asa =
  box{
    < -3, -3, -3 >
    < 3, 0, 7 >
    texture{ tx_fosca }
  }
  
#declare asa = 
  difference{
    object{ cone_asa }
    object{ hole_asa }
    rotate < 45, 0, 0 >
  }
  
#declare filme = 
  union{
    object{ shuriken }
    object{ asa rotate < abs(sin(2*pi*clock))*90, 0, 70 >  translate <1, -1, 1 > }
    object{ asa rotate < abs(sin(2*pi*clock))*90, 0, -70 >  translate <-1, -1, 1 > }
    translate < sin(2*2*pi*clock)*4, 0, cos(2*2*pi*clock)*4> 
  }
  

#include "eixos.inc"

// Aqui está a cena, finalmente:

union{
  //object{ eixos(10.00) }
  
  object{ filme }

}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 15.0;
#declare dir_camera = < 10.00, 15.00, 6.00 >;
#declare dist_camera = 30.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)