New in Wolfram
Mathematica
8: Enhanced 2D and 3D Graphics
◄
previous
|
next
►
Graphics & Visualization
Textures on Parametric Surfaces
Use textures to specify material properties of parametric surfaces.
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]=