Сортировать точки по часовой стрелке

[DarkHacker]

Здравствуйте. Есть массив точек

0 = 228/35
1 = 505/35
2 = 72/91
3 = 661/91
4 = 29/204
5 = 704/204
6 = 613/320
7 = 347/362

Задача: "От произвольно взятой точки отсортировать по эллипсу точки в направлении часовой стрелки". Помогите алгоритмом или готовым кодом)

[phomm]

Эта произвольная точка будет центром эллипса ? В направлении часовой стрелки - это по сути замкнутая кривая , а чтобы сортировать надо начинать с чего-либо. Допустим начинаем с 90 градусов в стандартной декартовой системе координат.
Сделать в целом несложно, создаём для каждой точки ещё одно поле в записи (т.е. помимо координат ещё нужно для каждой точки хранить значение), его лучше взять вещественное. В цикле для всех точек, пропуская ессно центровую, вычислить угол (опять же в декартовой системе) луча проходящего из центральной точки в текущую на шаге цикла. Угол можно вычислить даже обычной разностью координат ( а вообще этих алгоритмов немало), угол и записать в то поле. Далее просто сортируем как числа эти углы, с поправкой, что критерий сортировки это от 90 (включительно) до 0 градусов - наиболее приоритетная часть, и от 359,(9) до 90 (не включительно) - следующая после предыдущей части по приоритету.

[DarkHacker]

Спасибо что откликнулись, но я задачу уже решил.

type
 TPoint2 = packed record
   X: Longint;
   Y: Longint;
   Angle: Longint;
   end;
  TPointsArray2 = array of TPoint2;

function GetAngle(const Center, P: TPoint): Double;
begin
  Result := ArcTan2(Center.y - P.y, P.x - Center.x) * (180 / Pi);
  {Чтобы возвращала результат в радианах, нужно <* (180 / Pi)> убрать}
  if Result < 0 then
    Result := Result + 360; {Эта строка необязательна}
end;


procedure qSort(var a: TPointsArray2);
var
i,j,n: Integer;
x: TPoint2;
begin
n:=length(a)-1;

  for I := 1 to n - 1 do
    for j := 1 to n - 1 do
      if a[j].Angle < a[j+1].Angle then
        begin
          x := a[j+1];
          a[j+1] := a[j];
          a[j] := x;
        end;
end;

Присваиваем угол к элементу массива, сортируем и применяем любой доступный алгоритм (Грэхема и т.д)