Новое в системе Wolfram
Mathematica
8: Усовершенствованная 2D и 3D графика
◄
предыдущая
|
следующая
►
Графика и визуализация
Использование действительного вебкам видео в качестве текстуры
Использование действительного видео, полученного с веб-камеры в качестве текстуры на многограннике.
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
»