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 ?}]
 ]