Новое в системе Wolfram
Mathematica
8: Усовершенствованная 2D и 3D графика
◄
предыдущая
|
следующая
►
Графика и визуализация
Текстуры на параметрически заданных поверхностях
Использование текстур для отражения материальных свойств параметрических поверхностей.
In[1]:=
X
torus[t_] := ParametricPlot3D[{Cos[u] (3 + Cos[v]), Sin[u] (3 + Cos[v]), Sin[v]}, {u, 0, 2 \[Pi]}, {v, 0, 2 \[Pi]}, TextureCoordinateFunction -> ({2 #4, #5} &), PlotStyle -> Directive[Specularity[White, 50], Texture[ExampleData[{"ColorTexture", t}]]], Axes -> False, Lighting -> "Neutral", Mesh -> None, Boxed -> False];
In[2]:=
X
Grid[Partition[ Table[torus[ t], {t, {"Ash", "BurlOak", "CheetahFur", "Kingwood", "Metal1", "Metal4", "Vavona", "WhiteMarble", "YellowMarble"}}], 3]]
Out[2]=