Mathematicaで描いた図形アニメ（サンプル）
立体図形のアニメーションが見られますが、処理に時間がかかる可能性があります。
ParametricPlot3D[{(4-Cos[t])Cos[s],(4-Cos[t])Sin[s],Sin[t]},{t,0,2Pi},{s,0,2Pi},PlotPoints->{20,100},Axes->False]
ParametricPlot3D[{(4-Cos[t]-Sin[5s])Cos[s],(4-Cos[t]-Sin[5s])Sin[s],Sin[t]},{t,0,2Pi},{s,0,2Pi},PlotPoints->{20,100},Axes->False]
ParametricPlot3D[{(6-Cos[t]+Sin[5s])Cos[2s],(6-Cos[t]+Sin[5s])Sin[2s],Sin[5s+5Pi/2]+Sin[t]},{t,0,2Pi},{s,0,2Pi},PlotPoints->{20,200},Axes->False]
ParametricPlot3D[{(6-Cos[t]+Sin[11s])Cos[2s],(6-Cos[t]+Sin[11s])Sin[2s],Sin[11s+11Pi/2]+Sin[t]},{t,0,2Pi},{s,0,2Pi},PlotPoints->{20,200},Axes->False]