Да corel draw делать не собираюсь но хочу сделать прогу для рисования контуров
еще возник такой вопрос как нарисовать элипс чтоб он был в центре вершины
Вот пример редактирования изгибов
Program BezierDemo;
Uses Bezier;
Var x1, x2, x3, y1, y2, y3,key: integer;
Begin
// Задаем точки для нормалей
x1:=0; y1:=0;
x2:=100; y2:=50;
x3:=10; y3:=150;
// Перерисовка экрана и ждем 5 сек
while (Key<>GA_FIRE) do
begin
SetColor(255, 255, 255);
FillRect(0,0,getWidth, getHeight);
SetColor(255, 0, 0);
DrawBezier(x1, y1, x2, y2, x3, y3);
Delay(100);
repaint;
// Обрабатываем нажатия кнопок и меняем координаты
Key:=KeyToAction(getKeyPressed);
if (Key=GA_LEFT) then x1:=x1-3;
if (Key=GA_RIGHT) then x3:=x3+5;
if (Key=GA_UP) then y1:=y1-3;
if (Key=GA_DOWN) then y3:=y3+5;
end;
SetColor(255, 255, 255);
FillRect(0,0,getWidth, getHeight);
End.