Koordinaten zwischen zwei Punkten

[Aphton]

Ne gibts noch nicht,

Delphi-Quellcode:

type
  TPointF = record
    X: Single;
    Y: Single;
  end;

function PointF( const X, Y: Single ): TPointF;
begin
  Result.X := X;
  Result.Y := Y;
end;

function PointOnLine(var vStart, vEnd: TPointF; const Percentage: Byte): TPointF;
var
  vSE : TPointF;
  d   : Single;
begin
  d       := (Percentage mod 101) / 100;
  vSE     := PointF( vEnd.X - vStart.X, vEnd.Y - vStart.Y );
  Result  := PointF( vStart.X + vSE.X*d, vStart.X + vSE.Y*d );
end;

Jetzt aber ...

MfG