Mathematica code:
W[x_,y_,w_,a_,t_]:= w((Cos[a] + Sin[a])x + (Sin[a] - Cos[a])y) + t*2Pi Manipulate[ Graphics[ Table[ {White, Disk[ {x,y} + .2{Cos[W[x,y,.6,.5Pi,t]], Sin[W[x,y,.6,.5Pi,t]]}, .35]}, {x,-10,10}, {y,-14,14}], ImageSize -> {500,700}, Background -> RGBColor[53/255,70/255,94/255], PlotRange -> {{-11,11},{-15,15}}], {t,0,1}]











