Inflationary bubbles

⇠ Back to Blog:Hacks

This is the title I gave to this "kinetic digital sculpture" of mine, filed to the Wolfram Tweet-a-Program program:

Here is the code:

Show@Graphics[
  Table[NestList[
    Translate[Scale[#, .5 + Random[]], 9 {Random[], Random[]}^3] &, 
    Circle[], 99], {j, 9}]]

And here's an output:

InflationaryBubbles.png

Attention, it may diverge!