怎么在球面上写字？

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用法》。