nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

math: Add 'almost_Equals' function.

Browse Source
This commit is contained in:
Rod Kay
2024-01-16 14:11:19 +11:00
parent ededc9ece8
commit 5d39177e87
2 changed files with 31 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
1-base/math/source/generic/any_math.adb
View File

@@ -74,6 +74,16 @@ is
end almost_Zero;
function almost_Equals (Self,
Other,
Tolerance : in Real := Real'Base'Model_Small) return Boolean
is
begin
return Self <= Other + Tolerance
and Self >= Other - Tolerance;
end almost_Equals;
function Clamped (Self : in Real; Low, High : in Real) return Real
is
begin
@@ -603,6 +613,16 @@ is
end "abs";
function almost_Equals (Self, Other : in Vector_3;
Tolerance : in Real := Real'Base'Model_Small) return Boolean
is
begin
return almost_Equals (Self (1), Other (1), Tolerance)
and almost_Equals (Self (2), Other (2), Tolerance)
and almost_Equals (Self (3), Other (3), Tolerance);
end almost_Equals;
---------
-- Matrix
--

17
1-base/math/source/generic/any_math.ads
View File

@@ -49,15 +49,18 @@ is
subtype Real is Real_t;
subtype unit_Interval is Real range 0.0 .. 1.0;
function almost_Zero (Self : in Real) return Boolean;
function almost_Zero (Self : in Real) return Boolean;
function almost_Equals (Self,
Other,
Tolerance : in Real := Real'Base'Model_Small) return Boolean;
function Clamped (Self : in Real; Low, High : in Real) return Real;
procedure clamp (Self : in out Real; Low, High : in Real);
function Clamped (Self : in Real; Low, High : in Real) return Real;
procedure clamp (Self : in out Real; Low, High : in Real);
procedure swap (Left,
Right : in out Real);
procedure swap (Left,
Right : in out Real);
function Image (Self : in Real; Precision : in Natural := 5) return String;
function Image (Self : in Real; Precision : in Natural := 5) return String;
-------------
@@ -170,6 +173,8 @@ is
overriding
function "abs" (Right : in Vector_3) return Vector_3;
function almost_Equals (Self, Other : in Vector_3;
Tolerance : in Real := Real'Base'Model_Small) return Boolean;
-----------
-- Matrices