эвольвента на Delphi

[Zaraaa]

Здравствуйте ! Я не шарю в Delphi, сделал прогу в паскале. Помогите переделать на Delphi , и исправить ошибки если есть. Я строю эвольвенту. Мне надо чтобы t менялось от "-"бесконечности до "+"бесконечности и вывести график на середину(т.е. правее). И еще там же построить график y=lnx. Вот что получилось :

uses graphABC;
var a,l,xc,yc,px,py,lny:integer;
    t,r,x,y:real;
begin
a:=2;
l:=2;
xc:=windowwidth div 2;
yc:=windowheight div 2;
t:=0;
px:=0;
while abs(xc-px)<=xc do//до горизонтальных краев экрана
 begin
  r:=a*cos(t)+l;
  x:=r*cos(t)+a*(t)*sin(t);
  px:=xc+round(x);
  y:=r*sin(t)-a*(t)*cos(t);
  py:=yc-round(y);
  setpixel(px,py,clRed);
  if x>0 then
   begin
    lny:=yc-round(ln(x));
    setpixel(px,lny,clBlue);
   end;
  t:=t+0.001;
 end;
end.

[Stilet]

Расслабься. Бесконечность не запрограммировать.
А эвольвенту строй от скажем 0 до 360.

[indexx]

Кладём на форму Image, и Button. 2 раза кликаем по button, копируем внутрь процедуры код, чтоб получилось так

procedure TForm1.Button1Click(Sender: TObject);
var a,l,xc,yc,px,py:integer;
    t,r,x,y:real;
begin
a:=2;
l:=2;
xc:=Image1.width div 2;
yc:=Image1.height div 2;
t:=0;
px:=0;
while abs(xc-px)<=xc do//до горизонтальных краев экрана
 begin
  r:=a*cos(t)+l;
  x:=r*cos(t)+a*(t)*sin(t);
  px:=xc+round(x);
  y:=r*sin(t)-a*(t)*cos(t);
  py:=yc-round(y);
  Image1.Canvas.Pixels[px,py] := clRed;
  if x>0 then
   begin
    Image1.Canvas.Pixels[px,py] := clBlue;
   end;
  t:=t+0.001;
end;
end;

Компилируем, наслаждаемся.

[Zaraaa]

Код все верно, только вот что то не то....

[Zaraaa]

график не такой

[Stilet]

А ты позаботился(лась) о переводе из градусов в радианы? cos() и sin() работают с радианами.

[indexx]

Мне не с чём сравнить, поэтому не могу сказать, что не так.