fixed the "ugly" Round6 function

2005-09-11 11:46:06 +00:00
parent e6b4fb16d9
commit c38e73d2c2
1 changed files with 4 additions and 1 deletions
--- a/2.10/Source/Global.pas
+++ b/2.10/Source/Global.pas
@ -144,7 +144,10 @@ end;
 function Round6(x: double): double;
 // Really ugly, but it works
 begin
-  Result := StrToFloat(Format('%.6f', [x]));
+  // --Z-- this is ridiculous:
+  //   Result := StrToFloat(Format('%.6f', [x]));
+  // and yes, this is REALLY ugly :-\
+  Result := RoundTo(x, -6);
 end;

 function solve3(x1, x2, x1h, y1, y2, y1h, z1, z2, z1h: double;