37 lines
575 B
ObjectPascal
37 lines
575 B
ObjectPascal
unit math_m;
|
|
|
|
interface
|
|
|
|
function Clamp(val, min, max: integer): integer;
|
|
function RandomBool: boolean;
|
|
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 RandomBool: boolean;
|
|
begin
|
|
RandomBool := Random(2) = 1
|
|
end;
|
|
|
|
end.
|