こんにちは、
風船から、亜鈴の形になり、また亜鈴から風船になる。
これを繰り返すようなアニメーションは、どうしたらできるでしょうか？

<<Graphics`ParametricPlot3D`
For[a1=0,a1£2,a1++;
r0=1;

ParametricPlot[{{r1=r0+a1*LegendreP[2,Cos[q]];r1 Cos[q],r1 Sin[q]}},{q,0,2Pi},AspectRatio®Automatic];

SphericalPlot3D[r0+Re[a1]*LegendreP[2,Cos[thet]],{thet,0,Pi,Pi/30},{phi,0,2*Pi,Pi/15},ViewPoint®{-3.382,0.096,0.076},ViewVertical®{0,1,0},ImageSize®300]
];