37 lines
579 B
ObjectPascal
37 lines
579 B
ObjectPascal
unit math_m;
|
|
interface
|
|
|
|
function Clamp(val, min, max: integer): integer;
|
|
function Signum(a, b: integer): integer;
|
|
|
|
implementation
|
|
|
|
function Clamp(val, min, max: integer): integer;
|
|
begin
|
|
Clamp := val;
|
|
if val < min then
|
|
Clamp := min;
|
|
if val > max then
|
|
Clamp := max
|
|
end;
|
|
|
|
function Signum(a, b: integer): integer;
|
|
begin
|
|
if a < b then
|
|
Signum := -1
|
|
else
|
|
if a > b then
|
|
Signum := 1
|
|
else
|
|
Signum := 0
|
|
end;
|
|
|
|
function Abs(val: integer): integer;
|
|
begin
|
|
if val < 0 then
|
|
val := val * -1;
|
|
Abs := val
|
|
end;
|
|
|
|
end.
|