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

* Add TPointF.Zero

Browse Source 
(cherry picked from commit b3d3b65bdf)
This commit is contained in:
Michaël Van Canneyt 2023-10-30 14:51:39 +01:00 committed by marcoonthegit
parent 774ffb4219
commit 8c5420ad56
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/types.pp
View File

@ -151,6 +151,7 @@ type
function MidPoint(const b: TPointF): TPointF;
class function PointInCircle(const pt, center: TPointF; radius: single): Boolean; static;
class function PointInCircle(const pt, center: TPointF; radius: integer): Boolean; static;
class function Zero: TPointF; inline; static;
function Angle(const b: TPointF): Single;
function AngleCosine(const b: TPointF): single;
@ -758,6 +759,13 @@ begin
result.y := 0.5 * (y + b.y);
end;
class function TPointF.Zero: TPointF;
begin
Result.X:=0;
Result.Y:=0;
end;
class function TPointF.PointInCircle(const pt, center: TPointF; radius: single): Boolean;
begin
result := sqr(center.x - pt.x) + sqr(center.y - pt.y) < sqr(radius);