![maihudson: Mathematica code:W[x_,y_,w_,a_,t_]:= w((Cos[a] + Sin[a])x + (Sin[a] -](https://64.media.tumblr.com/f41294f4bb91227c5f56c35b833bd516/tumblr_nnp3guF0Bm1sn5m9vo1_1280.gif)
[RosieJones ] [RoughShemanal ]
maihudson: 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
