This would be the seventh one in the Random Art Series. Although I have not used random numbers for this post, I still chose to embed this in the series and hence the name.

---

Code

The above images have been generated using Mathematica 11. The code is provided below. Let me know of any questions.

    ClearAll[digitPad];
    digitPad[number_, pad_, padObject_ : 0] :=
        StringPadLeft[ToString[number], pad, padObject]
    exportFileName :=
        NotebookDirectory[] <> "random_art_07_" <>
            digitPad[Max[
              ToExpression[StringTake[StringDelete[#, ".png"], -2]] & /@
                  FileNames["*png", NotebookDirectory[]]] + 1, 2, "0"] <> ".png"

    Module[{export},
      export =
          Module[{iterations = 1000},
            iterations =
                Graphics[
                  Table[{Hue[Divide[t, 2 \[Pi]]], Opacity@0.005,
                    Disk[{Sin[t], Cos[t]}, 0.5]}, {t, Divide[2 \[Pi], iterations],
                    2 \[Pi], Divide[2 \[Pi], iterations]}], ImageSize -> 788]];
    (*Export[exportFileName,export]*)
    ]

    Module[{export},
      export =
          Module[{iterations = 2000},
            iterations =
                Graphics[
                  Table[Rotate[{EdgeForm[{Black, Opacity[0.2],
                    Thickness[0.001]}], FaceForm[{Hue[0.4], Opacity@0.02}],
                    Rectangle[{Sin[t], Cos[t]}]}, t], {t,
                    Divide[2 \[Pi], iterations], 2 \[Pi],
                    Divide[2 \[Pi], iterations]}], ImageSize -> 788]];
      (*Export[exportFileName,export]*);

    ]

    Module[{export},
      export =
          Module[{iterations = 500},
            iterations =
                Graphics[
                  Table[Rotate[{EdgeForm[{Black, Opacity[0.2],
                    Thickness[0.001]}], FaceForm[{Hue[0.4], Opacity@0.02}],
                    Rectangle[{Sin[t], Cos[t]}]}, t], {t,
                    Divide[2 \[Pi], iterations], 2 \[Pi],
                    Divide[2 \[Pi], iterations]}], ImageSize -> 788]];
      (*Export[exportFileName,export]*);

    ]

    Module[{export},
      export =
          Module[{iterations = 2000},
            iterations =
                Graphics[
                  Table[Rotate[{EdgeForm[{Black, Opacity[0.2], Thickness[0.001]}],
                    FaceForm[{Hue[0.6], Opacity@0.02}],
                    Rectangle[E^(-0.1 t) {Cos[2 t], Sin[2 t]},
                      E^(-0.1 t) {Cos[2 t] + 0.2, Sin[2 t] + 0.2}]}, t], {t,
                    Divide[2 \[Pi], iterations], 4 \[Pi],
                    Divide[2 \[Pi], iterations]}], ImageSize -> 788]];
    (*Export[exportFileName,export];*)
    ]

    Module[{export},
      export =
          Module[{iterations = 200},
            iterations =
                Graphics[
                  Table[Rotate[{EdgeForm[{Black, Opacity[0.2], Thickness[0.001]}],
                    FaceForm[{Hue[0.7], Opacity@0.02}],
                    Rectangle[{Cos[t], Sin[2 t]}, {Cos[t] + 1, Sin[t] + 1}]},
                    t], {t, Divide[2 \[Pi], iterations], 2 \[Pi],
                    Divide[2 \[Pi], iterations]}], ImageSize -> 788]];
      (*Export[exportFileName,export];*)
      export
    ]

---