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

* Tpoint.Angle initial version using arctan2

Browse Source
This commit is contained in:
marcoonthegit 2022-12-30 19:34:03 +01:00
parent bfb904640a
commit 5fb88cef00
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; y:=y+dy;
end; 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; class operator TPoint.= (const apt1, apt2 : TPoint) : Boolean;
begin begin
result:=(apt1.x=apt2.x) and (apt1.y=apt2.y); result:=(apt1.x=apt2.x) and (apt1.y=apt2.y);

3
rtl/inc/typshrdh.inc
View File

@ -59,6 +59,8 @@
end; end;
PSize =^TSize; PSize =^TSize;
{ TPoint }
TPoint = TPoint =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT} {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed packed
@ -79,6 +81,7 @@
procedure SetLocation(ax,ay : Longint); procedure SetLocation(ax,ay : Longint);
procedure Offset(const apt :TPoint); procedure Offset(const apt :TPoint);
procedure Offset(dx,dy : Longint); 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 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;
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 implementation
uses math;
{$undef read_interface} {$undef read_interface}
{$define read_implementation} {$define read_implementation}