[AnderoN]

Всем доброе время суток, помогите пожалуйста.
Есть программа, которая рисует график в поле Image, вот код процедуры, которая осуществляет построение:

Код:

Type TFunc = function (x: real): real;

procedure DrawGraph (f: TFunc; a: real; b: real; C: TCanvas);

var x, y, h: real;

    max, min: real;

    sx, sy: real;

    xmid, ymid: integer;

begin

 sx := (c.ClipRect.Right)/(b-a);

 h := 1/sx;

 xmid := c.ClipRect.Right div 2;

 ymid := c.ClipRect.Bottom div 2;

 x := a;

 max := f( x);

 min := max;

 while x<=b do

   begin

     y := f( x);

     if y<min then min := y;

     if y>max then max := y;

     x := x + h;

   end;

  sy := c.ClipRect.Bottom/ (max-min);

  c.Brush.Color := clBlack;

  c.FillRect(Rect(0, 0, c.ClipRect.Right, c.ClipRect.Bottom));

  c.Pen.Color := clYellow;

  c.MoveTo(0, ymid);

  c.LineTo(c.ClipRect.Right, ymid);

  c.MoveTo(xmid, 0);

  c.LineTo(xmid, c.ClipRect.Bottom);

  x := a;

  y := f(x);

  c.Pen.Color := clWhite;

  c.MoveTo(xmid+round(sx*x), ymid-round(sy*y));

  while x<=b do

    begin

      y := f(x);

      c.LineTo(xmid+round(sx*x), ymid-round(sy*y));

      x := x + h;

    end;

end;

А вот сама программа, которая использует выше упомянутую процедуру построения графика:

Код:

Function f(x: real): real;

 begin

   Result := sin(x)*cos(x);

 end;

 

procedure TForm1.Button1Click(Sender: TObject);

 begin

   DrawGraph (f, -10, 10, Image1.Canvas);

 end;

При нажатии на кнопку мы получаем график, который указан в function f(x:real), в данном случае это sin(x)*cos(x).

Мне же необходимо, чтобы график строился по точкам ( то есть я не задаю функцию формулой, а у меня после некоторых измерений на компьютер приходит набор точек, если быть точнее значения амплитуды в зависимости от градусов поворота установки). Подскажите пожалуйста, как сделать, чтобы не забивать функцию, а при нажатии на кнопку график строился по точкам?