Овал декарта

[caen21rus]

Нарисовал Астроид, нужен еще овал декарта, но не как не могу нарисовать

procedure TForm1.Button8Click(Sender: TObject);
var
r,theta,u,u1:integer;
a,tx,ty,g:single;
begin
r:=5;
canvas.Pen.Color:=clred;
for theta:=1 to 360 do
begin
g:=(theta*pi)/180;
tx:=r*(cos(g)*cos(g)*cos(g));
ty:=r*(sin(g)*sin(g)*sin(g));
u:=round(tx*10);
u1:=round(ty*10);
if theta=1 then canvas.MoveTo(u+w2,u1+h2)
else
canvas.LineTo(u+w2,u1+h2);
end;
end;

[Mad_Cat]

Декартов овал
Y=R*sin(t); X= R*cos(t);
Все остальное есть в вашем Астроиде

[caen21rus]

Что то совсем не то получается

[Mad_Cat]

Что то совсем не то получается

а показать? или TOP SECRET?

[caen21rus]

procedure TForm1.Button8Click(Sender: TObject);
var
r,theta,u,u1:integer;
a,tx,ty,g,:single;
begin
r:=5;
canvas.Pen.Color:=clred;
for theta:=1 to 360 do
begin
g:=(theta*pi)/180;
tx:=r*cos(g);//*cos(g)*cos(g));
ty:=r*sin(g);//*sin(g)*sin(g));
u:=round(tx*10);
u1:=round(ty*10);
if theta=1 then canvas.MoveTo(u+w2,u1+h2)
else
canvas.LineTo(u+w2,u1+h2);
end;
end

Выводит круг)
Но мне нужен такой рисунок