A few weeks ago the Wolfram Function Repository entry RandomMandala was approved. With that entry I won a 2019 Wolfram Technology Conference competition announced here.

Below are given a few examples of multiple RandomMandala executions.

Black-and-white mandalas

SeedRandom[443];
Multicolumn[
 Table[ResourceFunction["RandomMandala"]["Radius" -> 5, 
   "RotationalSymmetryOrder" -> RandomChoice[Range[3, 9]], 
   "ConnectingFunction" -> FilledCurve@*BezierCurve, 
   "SymmetricSeed" -> RandomChoice[{8, 2} -> {True, False}]], 48], 8]

Colorized mandalas

Colorized mandalas are derived in two ways: (1) by coloring the different parts of the seed segment, and (2) by super-imposing mandalas with different radii on top of each other.

Here is an example of the first approach:

SeedRandom[94823]; 
Multicolumn[
 Table[ResourceFunction["RandomMandala"]["Radius" -> 1, 
   "RotationalSymmetryOrder" -> RandomChoice[Range[3, 12]], 
   "ConnectingFunction" -> FilledCurve@*BezierCurve, 
   ColorFunction -> "Rainbow", 
   "SymmetricSeed" -> RandomChoice[{8, 2} -> {True, False}], 
   ImageSize -> Small], 48], 8]

Here is an example of second approach:

SeedRandom[23223]; 
Multicolumn[
 Table[ResourceFunction["RandomMandala"][
   "Radius" -> 
    RandomChoice[{Identity, Log, ArcCot, 
       ArcSec, #^0.618 &, #^1.618 &}][Range[8, 2, -2.]], 
   "RotationalSymmetryOrder" -> RandomChoice[{3, 4, 5, 6, 9, 12}], 
   "ConnectingFunction" -> FilledCurve@*BezierCurve, 
   ColorFunction -> "Rainbow", 
   "SymmetricSeed" -> RandomChoice[{8, 2} -> {True, False}], 
   ImageSize -> Small], 48], 8] 

Some history

For me the mandala generation started with this Mathematica Stackexchange discussion.

I continued using the random mandala generation code for the (scaffolding) testing of different Machine Learning algorithms. ( Here is an example .)