His Adult Pics

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