#11-fold

[abramovicinstitute]

Mathematica code:

Manipulate[ Graphics[  Table[{RGBColor[54/255,70/255,93/255],    Disk[{x,y}, .55*(1 + Sum[          Sin[(Cos[a*2Pi/11] + Sin[a*2Pi/11])x + (Sin[a*2Pi/11] - Cos[a*2Pi/11])y + t*2Pi], {a,0,10,1}]/22)]}, {x,-25,25,1}, {y,-35,35,1}], PlotRange -> {{-25, 25}, 7/5*{-25, 25}}, ImageSize -> {500, 700}], {t, 0, 1}]