[Delphi] Pravokotinca na premico s pomočjo treh točk

Vnesite tukaj

Torej imam koordinate treh točk A, B in C zanima me koordinata točke D
da lahko zrišem premico iz točke C v D ki mora bit pravokotna na premico AB.



//lp1 je točka A
//lp2 je točka B
//point je točka C

//rezultat je točka D

function GetRect(lp1,lp2,point : POS2D):POS2D;
var
k,y,y1,n,n1,x,kof,dist : Extended;
rezultat : POS2D;
begin


k := (lp2.y - lp1.y)/(lp2.x - lp1.x);

n := lp1.y - (k * lp1.x);

kof := 1 / k * -1;
y := k * point.x + n;

x := (point.y - n) / kof;

y1 := (k * (point.x - x)) + n;

rezultat.x := point.x - x;
rezultat.y := y1;


Result := rezultat;

end;

Tale funkcija ki sm jo napisal deluje vse vredu in prav samo v nekaterih primerih smotanih primerih. Zato bi prosil če mi lahko kdo pove za kakšen boljši način za računanje D točke,
LP hvala!