Torus compositions

Sándor Kabai
This is a summary of my ideas about torus, including published demos and further solutions.
In[]:=
Graphics3D[Torus[]]
Out[]=

Revolution plot

In[]:=
RevolutionPlot3D[{2+Cos[t],Sin[t]},{t,0,2Pi}]
Out[]=
In[]:=
Manipulate[rp3=RevolutionPlot3D[{m3+Cos[t],Sin[t]},{t,-m1,0},{z,0,m2},PlotStyleFaceForm[Cyan,Yellow]][[1]];​​Graphics3D[rp3,BoxedFalse,SphericalRegionTrue],​​{{m1,5,"m1"},0.01,2Pi},​​{{m2,Pi,"m2"},0.01,2Pi},​​{{m3,Pi,"m3"},0.01,2Pi}]
Out[]=
​
m1
m2
m3

Segments with revolution plot

In[]:=
(*numberofsegments*)​​n=12;​​(*Radiusoftorus.Ifx=0;->Sphere*)​​x=2;​​(*angle*)​​ang=2Pi;​​(*segmenwidth*)​​sw=Pi/n;​​seg=RevolutionPlot3D[{Sin[t]+x,Cos[t]},{t,ang/2,-ang/2},{z,0,sw},PlotStyleCyan,MeshNone,BoundaryStyleBlack][[1]];​​tor=Table[{Rotate[seg,i2Pi/n,{0,0,1}]},{i,n}];​​Graphics3D[{tor},SphericalRegionTrue,BoxedFalse]
Out[]=
In[]:=
dia=1;​​x=1;​​full=RevolutionPlot3D[{0.99diaSin[t]+2,0.99diaCos[t]},{t,0,2Pi},{z,0,Pi},MeshNone,PlotStyleFaceForm[Pink,Yellow]][[1]];​​Graphics3D[{full},ClipPlanes{{-1,0,-1,0}},BoxedFalse,SphericalRegionTrue]
Out[]=
In[]:=
Graphics3D[{tor,full},BoxedFalse,SphericalRegionTrue]
Out[]=

Parametric plot 3D

Parametric plot 3 D -> Tube

Parametric plot 3 D ->Coil

Wedding ring

Polar zonohedron compressed

Punched disks

Wrapping torus

Basket

Loops

Rectangles