I'm new here and want to represent a Polyhedron with every face filled with my own Image of choice.
The Polyhedron is the DuerersSolid: PolyhedronData["DuerersSolid", "Image"]
$\begingroup$
$\endgroup$
Add a comment
|
1 Answer
$\begingroup$
$\endgroup$
2
Slightly modified version of the example from the docs: Texture >> Neat Examples >> Textures on Polyhedra
Manipulate[Graphics3D[{Specularity[White, 20],
Texture[ImageCrop[ExampleData[{"ColorTexture", "WhiteMarble"}], {128, 128}]],
EdgeForm[Opacity[1/10]], (Append[#1, {VertexTextureCoordinates ->
(CirclePoints[{1, 0}, Length[First @ #]] + 1)/2}]&) /@
Flatten[Normal[PolyhedronData[p, "Faces"]]]},
Lighting -> "Neutral"], {{p, "RhombicHexecontahedron", "polyhedron"}, PolyhedronData[]}]
texture = Texture[ExampleData[{"TestImage", "Lena"}]];
Graphics3D[{EdgeForm[{Thick, White}], texture,
(Append[#1, {VertexTextureCoordinates ->
(CirclePoints[{1, 0}, Length[First @ #]] + 1)/2}]&) /@
Flatten[Normal[PolyhedronData["DuerersSolid", "Faces"]]]}]
-
$\begingroup$ Thank you very much!!! That was really useful!! $\endgroup$ Commented May 21, 2019 at 11:47
-
$\begingroup$ @MattiaRugna, my pleasure. Welcome to mma.se. $\endgroup$– kglrCommented May 21, 2019 at 12:13