From c38e73d2c21c6bdf9f045c9d0c7b0600f65108ec Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Sun, 11 Sep 2005 11:46:06 +0000
Subject: [PATCH] fixed the "ugly" Round6 function

---
 2.10/Source/Global.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/2.10/Source/Global.pas b/2.10/Source/Global.pas
index 58ae7bf..d7abc92 100644
--- 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;