Построение кривых, заданных в параметрической форме

uses graphABC;
var t,m:real;
    xc,yc,r,x,y,i:integer;
begin
xc:=windowwidth div 2; //начало координат
yc:=windowheight div 2;
r:=120;//размер картинки
m:=(yc-30)/r;//масштаб для осей координат
t:=0; //строим график
setpencolor(clRed);
while t<=2*pi do
 begin
  x:=xc+round(r*cos(t)*m);
  y:=yc-round(r*sin(t)*m);
  if t=0 then moveto(x,y)
  else lineto(x,y);
  t:=t+0.01
 end;
//рисуем оси координат
setpencolor(clBlack);
line(xc,yc-round(r*m)-20,xc,yc+round(r*m));
textout(xc+5,yc-round(r*m)-20,'Y');
line(xc-round(r*m),yc,xc+round(r*m)+30,yc);
textout(xc+round(r*m)+20,yc-15,'X');
textout(xc+5,yc+15,'0');
for i:=1 to r do
 begin
  if i mod 20=0 then
   begin
    line(xc+round(i*m),yc-5,xc+round(i*m),yc+5);
    textout(xc+round(i*m),yc+15,inttostr(i));
    line(xc-round(i*m),yc-5,xc-round(i*m),yc+5);
    textout(xc-round(i*m),yc+15,inttostr(i));
    line(xc-5,yc-round(i*m),xc+5,yc-round(i*m));
    textout(xc-25,yc-round(i*m),inttostr(i));
    line(xc-5,yc+round(i*m),xc+5,yc+round(i*m));
    textout(xc-30,yc+round(i*m),inttostr(-i));
  end;
 end;
end.

uses graphABC;
var t,m:real;
    xc,yc,a,x,y,i:integer;
begin
//начало координат
yc:=windowheight-50;
a:=20;//размер картинки
m:=(yc-30)/a/2;//масштаб для осей координат
xc:=windowwidth div 2-round(a*m);
t:=0; //строим график
setpencolor(clRed);
while t<=2*pi do
 begin
  x:=xc+round(a*(1-sin(t))*m);
  y:=yc-round(a*(1-cos(t))*m);
  if t=0 then moveto(x,y)
  else lineto(x,y);
  t:=t+0.01
 end;
//рисуем оси координат
setpencolor(clBlack);
line(xc,yc-2*round(a*m)-20,xc,yc);
textout(xc+5,yc-2*round(a*m)-20,'Y');
line(xc,yc,xc+2*round(a*m)+30,yc);
textout(xc+2*round(a*m)+20,yc-15,'X');
textout(xc+5,yc+15,'0');
for i:=1 to 2*a do
 begin
  if i mod 2=0 then
   begin
    line(xc+round(i*m),yc-5,xc+round(i*m),yc+5);
    textout(xc+round(i*m),yc+15,inttostr(i));
    line(xc-5,yc-round(i*m),xc+5,yc-round(i*m));
    textout(xc-25,yc-round(i*m),inttostr(i));
  end;
 end;
end.