function int32.abbreviate(funcDecimal:int32=1):string;
  begin
    case abs(self) of
      0..999:result:=toStr(self);
      1000..999999:result:=toStr(round(self/pow(10,3-(funcDecimal:=min(3,funcDecimal))))/pow(10,funcDecimal))+'K';
      1000000..999999999:result:=toStr(round(self/pow(10,6-(funcDecimal:=min(3,funcDecimal))))/pow(10,funcDecimal))+'M';
      1000000000..2147483647:result:=toStr(round(self/pow(10,9-(funcDecimal:=min(3,funcDecimal))))/pow(10,funcDecimal))+'B';
    end;
  end;

function uInt32.abbreviate(funcDecimal:int32=1):string;
  begin
    case abs(self) of
      0..999:result:=toStr(self);
      1000..999999:result:=toStr(round(self/pow(10,3-(funcDecimal:=min(3,funcDecimal))))/pow(10,funcDecimal))+'K';
      1000000..999999999:result:=toStr(round(self/pow(10,6-(funcDecimal:=min(3,funcDecimal))))/pow(10,funcDecimal))+'M';
      1000000000..2147483647:result:=toStr(round(self/pow(10,9-(funcDecimal:=min(3,funcDecimal))))/pow(10,funcDecimal))+'B';
    end;
  end;

function int32.abs():int32;
  begin exit(result:=(self+(self shr 31)) xor (self shr 31));end;

function uInt32.abs():int32;
  begin exit(result:=(self+(self shr 31)) xor (self shr 31));end;

function double.abs():double;
  begin
    result:=self;
    if result<0 then
      result:=-result;
    exit(result);
  end;

function single.abs():double;
  begin
    result:=self;
    if result<0 then
      result:=-result;
    exit(result);
  end;

function shortestDegrees(funcStart,funcEnd:int32):int32;
  begin
    if ((result:=funcEnd-funcStart)+(result shr 31)) xor (result shr 31)<180 then
      exit()
    else if funcStart<funcEnd then
      result:=result-360
    else
      result:=result+360;
    exit(result);
  end;

function shortestRadians(funcStart,funcEnd:double):double;
  begin
    if (result:=funcEnd-funcStart).abs()<3.1415926535897932384626433832795 then
      exit()
    else if funcStart<funcEnd then
      result:=result-6.283185307179586476925286766559
    else
      result:=result+6.283185307179586476925286766559;
    exit(result);
  end;

function normalRandom(funcMin,funcMax:int32):int32;
  begin result:=round((funcMin+funcMax)/2+((funcMax-funcMin)/2)*((randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()-6)/6));end;

function normalRandomE():double;
  begin result:=0.5+0.5*((randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()-6)/6);end;

function normalRandomE(funcMin,funcMax:double):double;overload;
  begin result:=(funcMin+funcMax)/2+((funcMax-funcMin)/2)*((randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()+randomE()-6)/6);end;

function getFormattedTime(time: uint32): string;
var
  h, m, s: integer;
begin
  s := time mod 3600000 mod 60000 div 1000;
  m := time mod 3600000 div 60000;
  h := time div 3600000;
  result := (toStr(h) + 'h ' + toStr(m) + 'm ' + toStr(s) + 's');
end;

  //0.01745329251994 - 1deg
  //3.14159265358979 - 180deg
  //0.01745329251994329576923690768489 - 1deg
  //0.17453292519943295769236907684886 - 10deg
  //0.26179938779914943653855361527335 - 15deg
  //6.283185307179586476925286766559 - 2pi