Message Boards

WOLFRAM COMMUNITY

9795 Views

4 Replies

16 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Mathematics Recreation Visual Arts Geometry Graphics and Visualization Wolfram Language Wolfram Function Repository

3D ornaments (by texturized polygons)

Anton Antonov

Anton Antonov, Accendo Data LLC

Posted 5 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: 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".

POSTED BY: Anton Antonov

4 Replies

Sort By:

Anton Antonov

Anton Antonov, Accendo Data LLC

Posted 2 years ago

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

POSTED BY: Anton Antonov

Anton Antonov

Anton Antonov, Accendo Data LLC

Posted 5 years ago

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]

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

EDITORIAL BOARD

EDITORIAL BOARD, WOLFRAM

Posted 5 years ago

- 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!