Random Art 07

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
]

End of the post 😉


.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s