Расчет распределения точек на отрезке

[exyl]

Решил.
Собственно, в итоге мне нужны были смещения, а не абсолютные координаты точек, поэтому вообще обошелся без вычисления длины отрезка, его поворота и т.д.
Код копировать не буду, т.к. очень много объяснять придется, но суть такова, что в самом начале процедуры в A[Low(A)] заносятся координаты стартовой точки, а в A[High(A)] координаты финальной. Это единственные абсолютные координаты в массиве. Далее за начало координат принимается стартовая точка и вычисляются смещения (формулу из кода брать не буду, тут для примера привожу упрощенную, принимая расстояния между точками равными, а не с нужным распределением):

var
  dX, dY: integer;
begin
{...}
  for i:=Low(A)+1 to High(A)-1 do
    begin
      dX:=(A[High(A)].X-A[Low(A)].X)/(High(A)-2);
      dY:=(A[High(A)].Y-A[Low(A)].Y)/(High(A)-2);
      A[i].X:=Round(dX);
      A[i].Y:=Round(dY);
    end;
{...}
end;

Ну и еще одно упрощение: в оригинале есть еще две переменных типа real, в которых идет накопление этих смещений и которые препятствуют получению большой ошибки округления в итоге.