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

* Tpoint.Angle initial version using arctan2

Browse Source 
(cherry picked from commit 5fb88cef00)
This commit is contained in:
marcoonthegit 2022-12-30 19:34:03 +01:00
parent 12c586f22e
commit 66bfb69e96
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/typshrd.inc
View File

@ -141,6 +141,11 @@ begin
y:=y+dy;
end;
function TPoint.Angle(const pt: TPoint): Single;
begin
result:=ArcTan2(y-pt.y,x-pt.x);
end;
class operator TPoint.= (const apt1, apt2 : TPoint) : Boolean;
begin
result:=(apt1.x=apt2.x) and (apt1.y=apt2.y);

3
rtl/inc/typshrdh.inc
View File

@ -59,6 +59,8 @@
end;
PSize =^TSize;
{ TPoint }
TPoint =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
@ -79,6 +81,7 @@
procedure SetLocation(ax,ay : Longint);
procedure Offset(const apt :TPoint);
procedure Offset(dx,dy : Longint);
function Angle(const pt : TPoint):Single;
class function PointInCircle(const apt, acenter: TPoint; const aradius: Integer): Boolean; static; inline;
class operator = (const apt1, apt2 : TPoint) : Boolean;
class operator <> (const apt1, apt2 : TPoint): Boolean;

2
rtl/win32/windows.pp
View File

@ -53,6 +53,8 @@ interface
implementation
uses math;
{$undef read_interface}
{$define read_implementation}