fallout2sfall/sfall
0
0
Fork 0
mirror of https://github.com/sfall-team/sfall.git synced 2026-07-27 16:52:34 -07:00
Code Issues Packages Projects Releases Wiki Activity

Small update to headers

Browse Source
This commit is contained in:
phobos2077
2023-05-25 02:37:51 +02:00
parent 19db722948
commit d5268f3fbc
6 changed files with 39 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
artifacts/scripting/headers/lib.math.h
+19 -31
View File
@@ -16,42 +16,30 @@ pure procedure unsigned_comp(variable a, variable b) begin
return 1 if ((b == 0) orElse a div b) else -1;
end
#define MAX(x, y) ((x > y) * x + (x <= y) * y)
#define MIN(x, y) ((x < y) * x + (x >= y) * y)
#define in_range(x, from, to) (x >= from and x <= to)
#define MAX(x, y) ((x > y) * x + (x <= y) * y)
#define MIN(x, y) ((x < y) * x + (x >= y) * y)
procedure max(variable x, variable y) begin
if (x > y) then return x;
return y;
end
#define math_max(x, y) (x if x > y else y)
#define math_min(x, y) (x if x < y else y)
#define in_range(x, from, to) (x >= from and x <= to)
procedure min(variable x, variable y) begin
if (x < y) then return x;
return y;
end
/*procedure round(variable val) begin
variable intp;
intp := floor(val);
if ((val-intp) >= 0.5) then intp++;
return intp;
end*/
/*procedure ceil(variable val) begin
variable intp;
intp := floor(val);
if (abs(val-intp) > 0.0) then begin
intp++;
procedure get_clamped(variable val, variable a, variable b) begin
variable min, max;
if (a < b) then begin
min := a;
max := b;
end else begin
min := b;
max := a;
end
return intp;
end*/
procedure cap_number(variable num, variable min, variable max) begin
if (num > max) then num := max;
else if (num < min) then num := min;
return num;
if (val < min) then
return min;
else if (val > max) then
return max;
else
return val;
end
#endif