Circle Art

Some simple, quick, random (yet, it should be pointed out in this age of Dall-E, deliberate and human-made) art featuring colored circles:

circles := 
 Table[{RandomColor[], 
   Disk[{RandomInteger[{-15, 15}], RandomInteger[{-15, 15}]}, 
    RandomInteger[{2, 7}]]}, 20]

backgroundDim := 19

background := 
 Rectangle[{-backgroundDim, -backgroundDim}, {backgroundDim, 
   backgroundDim}]
Graphics[{RGBColor[0.0117647, 0.313725, 0.588235], background, Red, 
  circles}]

title = StringJoin["Random Art# ", ToString[RandomInteger[10^10]]]
“Random Art #6544511576”

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 )

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