Библиотека для рисования кривой Безье по координатам трех точек.
DrawBezier(x1:
integer; y1:
integer; x2:
integer; y2:
integer; x3:
integer; y3:
integer) - Нарисовать кривую Безье по координатам трех точек
x1, y1 - координаты первой точки
x2, y2 - координаты второй точки
x3, y3 - координаты третьей точки
При рисовании используется текущий установленный цвет
Результат работы программы, описанной ниже:
Простейший пример рисования кривой:
Program BezierDemo;
Uses Bezier;
Var x1, x2, x3, y1, y2, y3: integer;
Begin
// Задаем точки для нормалей
x1:=0; y1:=0;
x2:=100; y2:=50;
x3:=10; y3:=150;
// Рисуем нормали - так, для прикола
SetColor(200, 200, 200);
DrawLine(x1, y1, x2, y2);
DrawLine(x2, y2, x3, y3);
SetColor(255, 0, 0);
// Рисуем кривую Безье
DrawBezier(x1, y1, x2, y2, x3, y3);
// Перерисовка экрана и ждем 5 сек
Repaint; Delay(5000);
End.