Novos Recursos do
Mathematica
8: Gráficos 2D e 3D Melhorados
◄
anterior
|
próximo
►
Gráficos & Visualização
Vídeo de webcam em tempo real usado como textura
Use vídeos a partir de uma webcam como textura de um 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
»