кривая Безье

Автор kepter, 05.01.04, 03:10:43

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

kepter

Товарищи. Срочно нужно решить такую проблему.
Имеется массив точек tpoints типа POINT_ARR.
Необхадимо построить кривую Безье по этим точкам.
Помогите примером на Delphi, кто может.
Заранее благодарен.

Alik

Надо полагать....
//------------------------------------------------------------
var
  p: reference ;
  par: MathPointParam;
  j : integer;
begin
   p := ...указатель на твой массив
   Bezier (0, 1);
       for j := 0  to GetArrayCount(p)-1  do
       begin
          GetArrayItem(p, j, @par, SizeOf(MathPointParam));
          Point (par.x, par.y, 1);
       end;
EndObj();
//------------------------------------------------------------