Vitals

This one is pretty simple: there are 22 rows of dots, translating left or right depending on whether the row number is even or odd. Within each row, you can see the dots as plotting the density of the von Mises distribution. Specifically, the radius of each dot is the value of the von Mises pdf at that point.

Note that the von Mises distribution is like a Gaussian distribution on the circle. In particular, it is a periodic probability distribution, which is why each row is periodic, showing a total of 5 periods.

Here's the code:

Manipulate[
 Show[
  GraphicsGrid[
   Table[{
     Graphics[
      {Lighter[ColorData["Rainbow"][1 - (n + 10)/21], .2],
       Disk[{#, 0}, PDF[VonMisesDistribution[0, .3], Mod[# + (-1)^n t, 2 π, -π]]] & /@ 
        Range[-4 π, 4 π, π/6]},
      PlotRange -> {{-4 π - π/12, 4 π + π/12}, {-.5, .5}}]},
     {n, -10, 11}],
   Spacings -> {-6, Automatic}],
  ImageSize -> 600, Background -> GrayLevel[.1], PlotRangePadding -> {None, Scaled[.0242]}
  ],
 {t, 0, 2 π}]