2
$\begingroup$

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"]

$\endgroup$

1 Answer 1

2
$\begingroup$

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[]}]

enter image description here

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"]]]}]

enter image description here

$\endgroup$
2
  • $\begingroup$ Thank you very much!!! That was really useful!! $\endgroup$ May 21, 2019 at 11:47
  • $\begingroup$ @MattiaRugna, my pleasure. Welcome to mma.se. $\endgroup$
    – kglr
    May 21, 2019 at 12:13

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.