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