hedgewars/uFloat.pas
branchhedgeroid
changeset 6328 d14adf1c7721
parent 5932 5164d17b6374
parent 6311 1f7af64d5565
child 6415 af2047bb4f70
--- a/hedgewars/uFloat.pas	Sat Nov 12 15:48:55 2011 +0100
+++ b/hedgewars/uFloat.pas	Sat Nov 12 17:06:49 2011 +0100
@@ -116,6 +116,7 @@
            _0_01: hwFloat = (isNegative: false; QWordValue:    42949673);
            _0_02: hwFloat = (isNegative: false; QWordValue:    85899345);
            _0_03: hwFloat = (isNegative: false; QWordValue:   128849018);
+           _0_07: hwFloat = (isNegative: false; QWordValue:   300647710);
            _0_08: hwFloat = (isNegative: false; QWordValue:   343597383);
             _0_1: hwFloat = (isNegative: false; QWordValue:   429496730);
            _0_15: hwFloat = (isNegative: false; QWordValue:   644245094);
@@ -321,7 +322,7 @@
 str(z.Round, cstr);
 if z.Frac <> 0 then
    begin
-   str(z.Frac / $100000000:1:15, tmpstr);
+   str(z.Frac / $100000000:1:10, tmpstr);
    delete(tmpstr, 1, 2);
    cstr:= cstr + '.' + tmpstr
    end;