1、画一个球面：
SphericalPlot3D[1 , {u, 0, Pi}, {v, 0, 2 Pi}]
2、去掉表面的网格线：
SphericalPlot3D[1 , {u, 0, Pi}, {v, 0, 2 Pi}, Mesh -> None]
3、准备一个祥云图片。
4、写下祝福语，并转化为图片的形式：
Show[Rasterize[Style["\n新 年 快 乐\n狗 年 旺 旺\n", 100, Blue, Bold]],
ImageSize -> {600, 600}]
5、把祥云图案和祝福语合并到一起：
ImageCompose[b, RemoveBackground[祝福语图片, White]]
祝福语图片要透明化才行。
6、把这个图片张贴到球的表面上，代码如下图。
7、然后，改变观察点，就相当于球面旋转。
具体操作，请看《用Mathematica旋转3D图形——ViewPoint用法》。
