Текстурирование примитива сферы

Question

Я использую Mathematica 8, и я борюсь с текстурированием. Хотя текстурирование многогранных объектов оказалось относительно простым, я столкнулся с проблемой, пытающейся текстурировать сферу. В документации единственный способ текстуры показанной сферы - использовать SphericalPlot3D, что, IMHO, является решением kludgey, тем более, что я пытаюсь выполнить операции (например: перевод) в сфере. In Toto, мой вопрос: есть ли способ текстурирования примитива сферы?

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}}]] 

Answer 2

Нечто подобное будет полезно:

sphere = SphericalPlot3D[1, {u, 0, Pi}, {v, 0, 2 Pi}, 
          TextureCoordinateFunction -> ({2 #5, 1 - 2 #4} &), 
          PlotStyle -> { Lighting -> "Neutral", Axes -> False, 
          Boxed -> False, Texture[texture]},  Mesh -> None][[1]]; 

F[k_] := Graphics3D[ Rotate[ sphere, k, {2, 1, 6}, {0, 0, 0}], Boxed -> False] 

Теперь мы можем анимировать текстурированную сферу вращающуюся (вокруг вектора {2, 1, 6} на якорь в точке {0,0,0}):

Animate[F[k], {k, 0, 2 Pi}] 

Answer 3

Просто для полноты картины, вы также можете создавать сферы с использованием текстур ParametricPlot3D.

map = ExampleData[{"TestImage", "Lena"}]; 
sphere = ParametricPlot3D[{Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]}, {u, 
    0, 2 Pi}, {v, 0, Pi}, Mesh -> None, 
TextureCoordinateFunction -> ({#4, 1 - #5} &), 
Lighting -> "Neutral", Axes -> False, Boxed -> False, 
PlotStyle -> Texture[Show[map]]] 

Если я правильно понимаю, ответ Хайке показывает, что первая часть результата является GraphicsComplex, что графический примитив.