Wolfram
Mathematica
8의 신기능: 향상된 2D 및 3D 그래픽
◄
이전
|
다음
►
그래픽 및 시각화
Web 카메라의 실시간 영상을 텍스처로 사용
Web 카메라의 실시간 영상을 다면체의 텍스처로 사용할 수 있습니다.
In[1]:=
X
Graphics3D[{Specularity[White, 30], Dynamic[Texture[CurrentImage[]], EdgeForm[ Opacity[1/ 10]]], (Append[#1, {VertexTextureCoordinates -> With[{n = Length[First[#1]]}, Table[1/2 {Cos[(2 \[Pi] i)/n], Sin[(2 \[Pi] i)/n]} + {1/2, 1/ 2}, {i, 0, n - 1}]]}] &) /@ Flatten[Normal[ PolyhedronData["RhombicHexecontahedron", "Faces"]]]}, Lighting -> "Neutral", Boxed -> False, ViewAngle -> 18 \[Degree]]
Play Animation
»
Stop Animation
»