Создание графиков(например декартов лист)

[forgottenName]

up
Как нарисовать декартов лист с помощью LineTo?
У меня линии скачут через лист и он получается сетчатым. По периметру точки нормально стоят.

procedure TMainForm.DecartList(a,StartX,StartY,Xe,Ye: integer; Canvas: TCanvas);
var
 i,r: integer;
begin
   Canvas.MoveTo(startX,startY);
   for i:=0 to 360 do
  begin
     r:=round(4*a*cos(i)*(sqr(sin(i))-1));
     cTric[i].x:=StartX+round(r*cos(i));
     cTric[i].y:=StartY-round(r*sin(i));
     Canvas.LineTo(cTric[i].x,cTric[i].y);
  end;
end;

Скрин отрисовки, i до 180: http://pic.ipicture.ru/uploads/081221/9iTuS1XJ47.png
p.s. формула правильная - это лист без ветвей.