Group Abstract Group Abstract

Message Boards Message Boards

3D ornaments (by texturized polygons)

Anton Antonov, Accendo Data LLC
Posted 6 years ago

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:

enter image description here

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

enter image description here

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]

enter image description here

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]

enter image description here

More images can be found in this Imgur post: "Polyhedrons texturized with random mandalas".
POSTED BY: Anton Antonov
4 Replies
Sort By:
POSTED BY: 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]

enter image description here

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]

enter image description here
POSTED BY: Anton Antonov

enter image description here - 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!

POSTED BY: EDITORIAL BOARD

Thank you for the recognition, Moderation Team!
POSTED BY: Anton Antonov
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard