// MC930 - Trabalho prático 12 - 2s2003
// Fernando Kenji Iwai

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

background{ SummerSky }

camera {
  location  <  -20, -20, 20.00 >
  right     <  1.0, 0.00, 0.00 >
  up        <  0.00, 0.00, 1.00 >
  sky       <  0.00, 1.00, 0.00 >
  look_at   <  0, 0, 0 >
} 

light_source {
  1*< 30.00, 50.00, 50.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 20.00, 20.00, 20.00 >
  color rgb 0.5*< 1,1,1 >
}

light_source {
  1*< -20.00, -20.00, 20.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 20.00, -20.00, 20.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< -20.00, 20.00, 20.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< -20.00, -20.00, -20.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< -20.00, 20.00, -20.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 20.00, -20.00, -20.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< -20.00, -20.00, -20.00 >
  color rgb 0.5*< 1,1,1 >
}




light_source {
  1*< 0.00, 0.00, 0.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 20.00, 0.00, 0.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 0.00, 20.00, 0.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< -20.00, 0.00, 0.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 0.00, -20.00, 0.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 0.00, 0.00, 50.00 >
  color rgb 0.5*< 1,1,1 >
}

light_source {
  1*< 100.00, 100.00, 50.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 0, 100.00, 50.00 >
  color rgb 0.5*< 1,1,1 >
}


light_source {
  1*< 100.00, 0.00, 50.00 >
  color rgb 0.5*< 1,1,1 >
}

light_source {
  100*< 5.00, 15.00, -15.00 >
  color rgb 1.3*< 1,1,1 >
}

light_source {
  100*< -5.00, 15.00, -20.00 >
  color rgb 1.1*< 1,1,1 >
}

#declare tx1 =
  texture {
    pigment { Pink }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.2 }
  }


#declare terra = blob{
threshold 0.001 
sphere{
<0,0,0>,10,1
scale <1,0.9,1>
}

#declare delta = 0.7+0.5*clock;
#declare raio =1+clock;
#declare temp=1;

#declare i=-5;


#while (i<6) 
#declare j=-5;
#while (j<6)
sphere{<0,0,0>,raio,temp
translate delta*<10,0,0>
rotate <0,240+2*i,15+2*j>}

#declare j=j+1;
#end
#declare i=i+1;
#end


 
}


object{terra
pigment {image_map {png "earth-land.png" map_type 1}}
rotate 60*clock*x
}


/*
sphere{<0,0,0>,12
scale <1,0.9,1>
hollow
texture{pigment{color rgb<1,1,1> transmit 1}}
interior{
    media{
    scattering{1 ,0.05*<0.1,0.1,0.1>}
    }
   }
}
*/

plane{
z, -20
texture{Starfield}
}