|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Punkt in Richtung eines andere bewegen
21. Mär 2012, 10:15
Delphi-Quellcode:
Function CalcPoint(FixPoint,MovePoint:TPoint;Percent:Double):TPoint;
begin
Result.X := MovePoint.X - Round((MovePoint.X - FixPoint.X) * Percent / 100);
Result.Y := MovePoint.Y - Round((MovePoint.Y - FixPoint.Y) * Percent / 100);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|