Zooming out

Manipulate[
 Graphics[
  Reverse@Table[
    {FaceForm[White],
     EdgeForm[
      Directive[RGBColor[0.3, 0.45, 0.7],
       Thickness[0.005 10 ^(i - t)]]],
     Disk[Sum[
       1.2 10^(j - t) {Cos[(-1)^j t Pi / 2],
         Sin[(-1)^j t Pi / 2]}, {j, i}], 10^(i - t)]}
    , {i, 1, t + 2, 1}],
  PlotRange -> 1, ImagePadding -> 10,
  Background -> RGBColor[0.1, 0.15, 0.2]]
 , {t, 3, 7}]