wolfram-mathematica - 纹理球体基元

Question

我正在使用 Mathematica 8 并且我正在努力处理纹理。尽管多面体对象的纹理已被证明相对简单，但我在尝试对球体进行纹理处理时遇到了问题。在文档中，显示球体纹理的唯一方法是使用 SphericalPlot3D ，恕我直言，这是一个笨拙的解决方案，特别是因为我试图在球体上执行操作(例如:翻译)。总而言之，我的问题是:有没有办法对球体基元进行纹理化？

Answer 1

你不能纹理 Sphere直接，但您可以使用例如创建带纹理的球体SphericalPlot3D并提取第一部分以获得您可以使用 Translate 操作的原语。 .例如

sphere = SphericalPlot3D[1, th, phi, Mesh -> False, PlotPoints -> 25,
  PlotStyle -> {Opacity[1], Texture[ExampleData[{"ColorTexture", "GiraffeFur"}]]},
  TextureCoordinateFunction -> ({#4, #5} &)][[1]];

Graphics3D[Translate[sphere, {{0, 0, 0}, {2, 2, 2}}]]