hedgewars/uUtils.pas
changeset 10562 3388822b3914
parent 10560 9f09196d92a6
child 10572 c4e86a2efc55
--- a/hedgewars/uUtils.pas	Sat Nov 29 01:19:29 2014 +0100
+++ b/hedgewars/uUtils.pas	Sat Nov 29 03:13:06 2014 +0100
@@ -37,6 +37,7 @@
 function  EnumToStr(const en : TSprite) : shortstring; overload;
 
 function  Min(a, b: LongInt): LongInt; inline;
+function  MinD(a, b: double) : double; inline;
 function  Max(a, b: LongInt): LongInt; inline;
 
 function  IntToStr(n: LongInt): shortstring;
@@ -194,6 +195,14 @@
     Min:= b
 end;
 
+function MinD(a, b: double): double;
+begin
+if a < b then
+    MinD:= a
+else
+    MinD:= b
+end;
+
 function Max(a, b: LongInt): LongInt;
 begin
 if a > b then