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