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$
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$
  • $\begingroup$ Thank you very much!!! That was really useful!! $\endgroup$ – Mattia Rugna May 21 at 11:47
  • $\begingroup$ @MattiaRugna, my pleasure. Welcome to mma.se. $\endgroup$ – kglr May 21 at 12:13

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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