Voronoi ellipses

frame[T_, k_] := Module[{points},
  points = Table[{2 Cos[t + T], Sin[t + T]}, {t, 0, 2 Pi, 2 Pi/k}];
  Show[
   ListContourPlot[
    Flatten /@ Transpose[{points, Range[Length@points]}],
    InterpolationOrder -> 0,
    ColorFunction -> (ColorData["DarkBands"][#] &), Frame -> False,
    PlotRange -> {{-3, 3}, {-2, 2}}],
   ParametricPlot[{2 Cos[t], Sin[t]}, {t, 0, 2 Pi}],
   Graphics[{Darker@Red, PointSize[Large], Point[points]},
    PlotRange -> {{-3, 3}, {-2, 2}}]
   ]
  ];
gridframe[T_] :=
 GraphicsGrid[Partition[Table[frame[T, i], {i, 8}], 4],
  ImageSize -> 300];
Manipulate[gridframe[t], {t, 0, 2 Pi}]