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]
