<<Artlandia`Both the outline and the color spread are generated by the function fun. Artlandia functions are shown in red.
Rosette[fun_, length_] := Show[
Graphics[
MapThread[{Hue[#], Polygon[{{0, 0}, ##}]& @@ #2}&,
{
fun[length - 1, {0, 1}],
Partition[PolarList[PeriodicArray[
fun[length, {0.2, 1}]]], 2, 1]
}
]
],
AspectRatio -> Automatic, Background -> Black
]
Rosette[RandomArray, 200];
Rosette[NaturalArray, 200];
Rosette[RandomWalkArray, 200];