myEarth =
ParametricPlot3D[{Cos@u Sin@v, Sin@u Sin@v, Cos@v}, {u, 0, 2 Pi}, {v, 0, Pi},
Mesh -> None, TextureCoordinateFunction -> ({#4, 1 - #5} &),
PlotStyle -> Texture[Show[map, ImageSize -> 1000]]];
a = {-1, 1};
Animate[
Show[
Graphics3D[Sphere[{0, 0, 0}, .5],
ViewPoint -> 3.5 {Cos@t, Sin@t, 0}, SphericalRegion -> True,
PlotRange -> {a, a, a}, Axes -> False, Boxed -> False],
myEarth],
{t, 0, 2 Pi}]
Редактировать
Я нашел, откуда я позаимствовал какой-то код: http://reference.wolfram.com/mathematica/ref/Texture.html Под Применения , Текстура Земли