Gráficos & Visualização

Vídeo de webcam em tempo real usado como textura 

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 »