Novos Recursos do
Mathematica
8: Gráficos 2D e 3D Melhorados
◄
anterior
|
próximo
►
Gráficos & Visualização
Texturas em superfícies paramétricas
Use texturas para especificar propriedades de materiais de superfícies parametrizadas.
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]=