Дуга Canvas.Arc

[cw_o]

Надо на канве нарисовать дугу окружности, для которой известны 2 ее конца (координаты) и радиус, плюс еще указано направление поворота дуги (по или против часовой стрелки) и угол (не значение угла, а только > 180 градусов или меньше). Допустим так:

x1, y1, x2, y2, r: integer;
dir, ang: boolean;

Есть в Делфи функция

procedure Arc(X1,Y1,X2,Y2,X3,Y3,X4,Y4: double);

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

[mihali4]

http://matematiku.ru/index.php?optio...2442&Itemid=47

[cw_o]

Сообщение от mihali4

http://matematiku.ru/index.php?optio...2442&Itemid=47

Здесь указано, как найти радиус, но ведь он мне дан. Из формулы R = a^2/8h можно конечно выразить h, то есть расстояние от хорды до дуги, но что нам это даст?