The image consists of multiple layers of circles in a hexagonal grid arrangement. The layer scaling factors are integer powers of the golden ratio. Seamless infinite zoom is achieved by gradually blending in / out the fine / large scale layers. Draw function draws a single animation frame:

v1 = {Cos[30 \[Degree]], Sin[30 \[Degree]]};
v2 = {Cos[90 \[Degree]], Sin[90 \[Degree]]};
n = 2;
g ={
    White,
    Table[
       Circle[i v1 + j v2, 1/2],
       {i, -3 n, 3 n, 1/2}, {j, -3 n, 3 n, 1/2}
    ]
};
m = 2;
Draw[ds_] :=
    Graphics[
       {AbsoluteThickness[5/3],
       Table[
         {Opacity[2/3 (m - Abs[i + ds])/m], 
         Scale[g, GoldenRatio^(i + ds), {0, 0}]}, 
         {i, -m, m}
       ]
       },
       PlotRange -> {{-n, n}, {-n, n}},
       Background -> Black,
       ImageSize -> 800
    ];