// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2003-07-31 12:50:37 by stolfi

// ======================================================================
// CÂMERA 

#include "colors.inc"
#include "skies.inc"
#include "stoneold.inc"
camera {
  location  <  -5.00, 10.00, 2.00 >  // Posição do observador.
  right     -3.0*x                 // Largura RELATIVA da imagem.
  up        2.25*y                 // Altura RELATIVA da imagem.      
  sky       z                      // Qual direção é "para cima"?
  look_at   <  0.00, 0.00, 5.00 >  // Para onde a câmera está apontando.
} 
// Nota: os parâmetros "right" e "up" devem ter a mesma proporção
// que os parâmetros ${WIDTH} e ${HEIGHT} no Makefile.

// ======================================================================
// FONTES DE LUZ

light_source {
  10 * < +0.0, +30.0, +10.0 >              // Posição da lâmpada.
  color rgb 1.2 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

light_source {
  10 * < -10.0, -10.0, +10.0 >             // Posição da lâmpada.
  color rgb 0.8 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

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

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

plane { z, -1.29
   texture {Grnt13}
}

sky_sphere {S_Cloud3}

sphere {
	<0,0,0>, 4 pigment {image_map{png "earth-land.png" map_type 1}}
	rotate <0,0,360*1.8*clock>
	translate <7,0,4>
}



difference{
	blob{
	    threshold .65

	    sphere{<0,0,5>, 3, 1 pigment{Yellow}}	
	    sphere{<0,0,2.5>, 6, 1 pigment{Yellow}}
	    sphere{<0,0,0>,0.6, 1 pigment{Yellow} scale<1,1,1.4> translate <0,1.5+1*clock,2.5>}
	    sphere{<0,0,0>,0.6, 1 pigment{Red} translate<0,1.9+1*clock,2.3>}
	    cylinder{<0,2.5,2.5>,<0,2.6+clock*4,2.5>, 0.7, 1 pigment{Yellow}}
	}
	
}



#declare olho = 
	union{
		sphere{<1,2,3.5>, 0.8 pigment{White}}
		sphere{<1,2.8,3.5>,0.2 pigment{Black}}
	}

object{olho}
object{olho scale <-1,1,1>}

#declare limite=10;

#declare j=0;

#while (j < limite)
	#declare i=0;
	#while (i < limite)
		cylinder {<0,0,0>, <0,2+clock*2,0>, 0.2 pigment{Black} rotate x*i*180/limite rotate z*j*180/limite translate<0,0,5>}
		#declare i = i+1;
	#end

	#declare j=j+1;
#end