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

uses graphABC;
{функции вычисления координат точек эллипса}
function rot_x(x,y:integer;t:real):integer;
begin
rot_x:=round(x*cos(t)-y*sin(t));
end;
function rot_y(x,y:integer;t:real):integer;
begin
rot_y:=round(x*sin(t)+y*cos(t));
end;
{рисование эллипса}
procedure ellips(x,y,a,b:integer;u:real);
var sx,sy,rx,ry,i:integer;
    du:real;
begin
sx:=x+rot_x(a,0,u);
sy:=y+rot_y(a,0,u);
moveto(sx,sy);
du:=0;
for i:=1 to 38 do
 begin
  du:=du+pi/20;
  rx:=round(a*cos(du));
  ry:=round(b*sin(du));
  lineto(x+rot_x(rx,ry,u),y+rot_y(rx,ry,u));
 end;
lineto(sx,sy);
end;
var x0,y0,i:integer;
begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
for i:=1 to 360 do
if i mod 10=0 then
ellips(x0,y0,100,55,i*pi/180);
end.