Нарисовать тор

Manipulate[Graphics3D[{
   PointSize[0.02],
   RGBColor[1, 0, 0],
   Point[{ {0, 0, 0}, {5, 5, 5}
     }],
   
   xCord := Table[
     {Cos[t]*(2 + Cos[t1]*0.5)},
     {t1, 0, 2 \[Pi], 2 \[Pi]/10}
     ],
   yCord := Table[
     {Sin[t]*(2 + Cos[t1]*0.5)},
     {t1, 0, 2 \[Pi], 2 \[Pi]/10}
     ],
   
   zCord := Table[
     {Sin[t1]*2},
     {t1, 0, 2 \[Pi], 2 \[Pi]/10}
     ],
   
   Point[Table[
     {xCord, yCord, zCord},
     {t, 0, 2 \[Pi], 2 \[Pi]/10}
     ]],
   PlotRange -> {{0, 5}, {0, 5}, {0, 5}},
   Axes -> True
   }],
 {{x0, 1, "корд X"}, 0, 5}
 ]

Block[{R = 5, r = 2}, 
 ListSurfacePlot3D[
  Join @@ Table[
    {(R + r Sin[\[Alpha]]) Sin[\[Beta]], (R + r Sin[\[Alpha]]) Cos[\[Beta]], r Cos[\[Alpha]]},
    {\[Alpha], -Pi, Pi, Pi/32}, {\[Beta], -Pi, Pi, Pi/32}], BoxRatios -> {R, R, r}]]

SurfacePlot[array_, opts___] := 
  With[{n = Dimensions[array][[1]], m = Dimensions[array][[2]]},
   Graphics3D[
    Join @@ Table[
      Polygon[{{array[[i, j]], array[[i + 1, j]], 
         array[[i, j + 1]]}, {array[[i + 1, j + 1]], 
         array[[i + 1, j]], array[[i, j + 1]]}}], {i, n - 1}, {j, 
       m - 1}], opts, BoxRatios -> {1, 1, 1}, PlotRange -> Automatic]
   ];
 
spherePoints = Table[
  {Sin[\[Alpha]] Sin[\[Beta]], Sin[\[Alpha]] Cos[\[Beta]], Cos[\[Alpha]]},
  {\[Alpha], -Pi, Pi, Pi/32}, {\[Beta], -Pi, Pi, Pi/32}];
SurfacePlot[spherePoints]
 
Block[{R = 5, r = 2}, 
 thorPoints = Table[
    {(R + r Sin[\[Alpha]]) Sin[\[Beta]], (R + r Sin[\[Alpha]]) Cos[\[Beta]], r Cos[\[Alpha]]},
    {\[Alpha], -Pi, Pi, Pi/32}, {\[Beta], -Pi, Pi, Pi/32}];
 SurfacePlot[thorPoints, BoxRatios -> {R, R, r}]]