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.
|