рисование с шагом

[woojin]

есть отрезок который может быть нарисован под любым углом и может быть
любой длины всё завит от начальных и конечных координат

координаты конца отрезка могут быть как больше координат начала так и
меньше

надо, вне зависимости от длины отрезка и его направленности (по
отношению к начальной точке), вычислить координаты N точек от конца
отрезка с определённым шагом (к примеру шаг 10-20 пикселей)

вот что получилось у меня

delta := (15-count)/15;
x := start.X+delta*(stop.X-start.X);
y := start.Y+delta*(stop.Y-start.Y);

count - количество N точек
15 - максимум частей на которые можно поделить отрезок (может быть
больше)
delta - результат
start.X, start.Y - начальная координата
stop.X, stop.Y - конечная координата
x,y - координата получившейся точки

проблема у моего способа в том что при увеличении/уменьшении длины
отрезка, изменяются и выходные координаты (x,y)

P.S. на всякий случай вычисляю длину отрезка по формуле

l := SQRT(sqr(stop.X - start.X) + sqr(stop.Y - start.Y));

[woojin]

если кому понадобится:

function MoveArrow(start, stop: TPointF; count: integer): TPointF;
var
  len: integer;
  delta, x, y: single;

begin
  len := 17; //смещение

  y:=(stop.Y - start.Y);
  x:=(stop.X - start.X);
  delta:=ArcTan2(y, x);

  Result.X := stop.X - cos(l2) * len * count;
  Result.Y := stop.Y - sin(l2) * len * count;
end;

и ещё вариант

function MoveArrow(start, stop: TPointF; count: integer): TPointF;
var
  len: integer;
  l, x, y: single;

begin
  len := count * 17;  //шаг * смещение
  l := SQRT(sqr(stop.X - start.X) + sqr(stop.Y - start.Y));
  x := stop.X - len * (stop.X-start.X) / l;
  y := stop.Y - len * (stop.Y-start.Y) / l;
  Result.X := x;
  Result.Y := y;
end;