paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 02:33:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add crossproduct and normalize to TPointF

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-08 10:26:09 +01:00
parent 8179aadb2c
commit 7bcc949308
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/objpas/types.pp
View File

@ -162,6 +162,8 @@ type
class function Zero: TPointF; inline; static;
function Angle(const b: TPointF): Single;
function AngleCosine(const b: TPointF): single;
function CrossProduct(const apt: TPointF): Single;
function Normalize: TPointF;
class function Create(const ax, ay: Single): TPointF; overload; static; inline;
class function Create(const apt: TPoint): TPointF; overload; static; inline;
@ -1229,6 +1231,29 @@ begin
Result.y := apt.Y;
end;
function TPointF.CrossProduct(const apt: TPointF): Single;
begin
Result:=X*apt.Y-Y*apt.X;
end;
function TPointF.Normalize: TPointF;
var
L: Single;
begin
L:=Sqrt(Sqr(X)+Sqr(Y));
if SameValue(L,0,Epsilon) then
Result:=Self
else
begin
Result.X:=X/L;
Result.Y:=Y/L;
end;
end;
{ TSizeF }
function TSizeF.Add(const asz: TSize): TSizeF;