3D ornaments (by texturized polygons)

[antononcube (Anton Antonov)]

MODERATOR NOTE: a submission to computations art contest, see more: https://wolfr.am/CompArt-22

---

In brief

There are
some recent attempts
on this site to model Christmas trees.

Well here I show a way to make Christmas ornaments like these:

The graphics above were made with the
WFR function TexturizePolygons
which utilizes WL’s
Texture functionalities,
PolyhedronData,
and the WFR function
RandomMandala.

(More random mandalas can be found in this Community post:
“Random mandalas generation” .
)

Some details

Both 2D and 3D graphics can be produced with TexturizePolygons:

BlockRandom[
   TexturizePolygons[{"SnubCube", #}, "Radius" -> Sqrt[{6, 4, 2}], ColorFunction -> "TemperatureMap", ImageSize -> Large], 
   RandomSeeding -> 12] &
 /@ {"Net", "Faces"}

The animations above were generated using calls like this:

SeedRandom[38];
TexturizePolygons["SnubCube", Automatic, "Radius" -> Sqrt[{8, 4, 2}], 
 ColorFunction -> "Rainbow", ImageSize -> Large, Background -> Black]

and this:

TexturizePolygons["GreatRhombicosidodecahedron", Automatic, 
 "Radius" -> Sqrt[{6, 4, 2}], ColorFunction -> "Rainbow", 
 ImageSize -> Large, Background -> Black, 
 ViewCenter -> {0.5, 0.5, 0.5}, SphericalRegion -> True]

More images can be found in this Imgur post:
“Polyhedrons texturized with random mandalas”.

[wolframcommunity (EDITORIAL BOARD)]

• Congratulations! This post is now featured in our Staff Pick column as distinguished by a badge on your profile of a Featured Contributor! Thank you, keep it coming, and consider contributing your work to the The Notebook Archive!

[antononcube (Anton Antonov)]

Thank you for the recognition, Moderation Team!

[antononcube (Anton Antonov)]

The function
WFR function TexturizePolygons
was approved yesterday.

Here is something to try (with the “ReverseColor” stylesheet):

SeedRandom[62]
GraphicsGrid[
 Table[ResourceFunction["TexturizePolygons"][
   RandomChoice[{9, 8, 3, 3} -> {"SnubCube", "Dodecahedron", 
      "Octahedron", "Cube"}], "Radius" -> Sqrt[{8, 6, 4, 2}], 
   ColorFunction -> "Rainbow", Background -> Black, 
   Method -> {"ShrinkWrap" -> True}], 3, 4], Background -> Black, 
 ImageSize -> 1200]

Here is another example with
WFR’s function ChernoffFace:

SeedRandom[232]
GraphicsGrid[
 Table[ResourceFunction["TexturizePolygons"][
   RandomChoice[{"Dodecahedron", "Cube", "Octahedron"}], 
   Table[ResourceFunction["ChernoffFace"][
     ColorFunction -> "BrightBands", Background -> GrayLevel[0.3], 
     ImagePadding -> 80], 3]], 3, 4], ImageSize -> 1200]

[antononcube (Anton Antonov)]

• Related Community discussion:

  • “Rotating a 3D graphic in GiF?”

• Also, it looks the Imgur gallery converted the GIF animations into MP4 videos. See Imgur post:

  • “Polyhedrons texturized with random mandalas”.