pts=6;
Animate[
options={AspectRatio->1,PlotRange->{{-(pts+1),pts+1},{-(pts+1),(pts+1)}}};

Graphics[
{Table[(*{Hue[list[[i*10]],1,1,0.5],*)Circle[{0,0},i]
,{i,0.1,pts,0.1}]
,Table[Disk[{j*Cos[t*(((100-10j)*Pi)/15)],(*If[(pts-j)+j*y[(2pts+1-2j)*t]>pts-j,-1,1]**)(j*Sin[t*(((100-10j)*Pi)/15)])},0.1]
,{j,0.1,pts,0.1}
]
},options
],{t,0,30},DefaultDuration->100,RefreshRate->20000,AnimationRunning->False
]