Twinkle

Inspired by Jerome Herr. Here's the code:

DynamicModule[{points, startθ, cols},
 cols = RGBColor /@ {"#598EA3", "#B0DDDF", "#F0AB7B", "#2D4861"};
 points = 
  RandomVariate[
   TransformedDistribution[
    r {Cos[θ], Sin[θ]}, {r \[Distributed] 
      NormalDistribution[1, 1/8], θ \[Distributed] 
      UniformDistribution[{0, 2 π}]}], 1000];
 startθ = RandomReal[{0, 2 π}, 1000];
 Manipulate[
  Graphics[{Table[{cols[[Mod[i, 3, 1]]], 
      PointSize[.0065 + .0025 Sin[θ + startθ[[i]]]], 
      Point[points[[i]]]}, {i, 1, 1000}]}, Background -> cols[[4]], 
   PlotRange -> 1.9, ImageSize -> 540], {θ, 0, 2 π}]
 ]