New in Wolfram
Mathematica
8: Gráficos 2D y 3D mejorados
◄
previous
|
next
►
Gráficos y visualización
Video de webcam en tiempo real como textura
Use video de webcam en tiempo real con textura en un poliedro.
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
»