inverse square laws

Manipulate[
 Show[ParametricPlot3D[
   Table[1.01 r {Cos[v] Cos[u], Sin[v] Cos[u], Sin[u]},
    {r, t - Floor[t/0.2]*0.2, t, 0.2}]
   , {u, 0, Pi/2}, {v, 0, Pi/2},
   PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, Boxed -> False,
   Axes -> None, ViewPoint -> {-5, 10, 5}, Mesh -> {4, 4},
   PlotStyle -> Directive[Specularity[White], Yellow]],
  Graphics3D[{PointSize[Large], Point[{0, 0, 0}], Opacity[0.3], Red,
    Table[Sphere[{0, 0, 0}, r], {r, t - Floor[t/0.2]*0.2, t, 0.2}]}]]
 ,
 {{t, 0.5}, 0, 1}]