Построение графика в Image (по принятым значениям)

[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).

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

[Wicort]

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

[AnderoN]

Если нетрудно объясните пожалуйста подробнее, что значит сортировать по координате х?

[Wicort]

это значит, что ваш набор координат должен быть в таком порядке, чтобы координата х шла по порядку, от меньшей к большей.
например, если Вы получили такой набор:
(5;7), (2;4), (3;1), (-2;3)
То его нужно расположить в порядке возрастания х
(-2;3), (2;4), (3;1), (5;7)
Далее рисовать линии от точки к точке.