// Last edited on 2003-12-13 22:15:29 by stolfi
#include "colors.inc"
#include "math.inc"

#declare ctr = <0,0,0>;
#declare camDir = <-0.3,8,0.2>;

camera {
  location   ctr + 2.80*camDir
  right      1.00*x
  up         1.00*y
  sky        y
  look_at    ctr
}

light_source {
  50*<-0.4,0.6,-0.4>
  color 1.4 * White
}

light_source {
  50*<-0.4,0.6,-0.1>
  color 0.8 * White
}

light_source {
  50*<-0.1,0.6,-0.4>
  color 0.6 * White
}

background{color rgb 0.5*< 0.30, 0.40, 0.50 >}

#declare GLOBO =
  blob {
    threshold .5
    sphere { <0,0,0>, 5, 1 }
    #declare i=0;
    #while (i<10*clock)
      cylinder { <3+i,0,0>,<4+i,0,0>,0.2 + 0.2*i, 1 rotate -136*y rotate 31*z}
      #declare i=i+1;
    #end
    sphere { <5+5*clock,0,0>, 2*clock,1 rotate -136*y rotate 31*z}
}

#declare GLOBO_COM_IMAGEM = object{
  GLOBO
  pigment { image_map {png "../txmaps/earth-land.png" map_type 1}}// scale 3.4*<2,2,2> translate <0,15,0>}
  rotate 90*x
  rotate -140*z
}

union{
  object {GLOBO_COM_IMAGEM}
  rotate -90*y
}