# HG changeset patch
# User nemo
# Date 1351269776 14400
# Node ID 1b96361a7ef4ce4d8f95b2fcd941a5c636b6697f
# Parent  3df73ec7fcf27fcef950cf89dfbdf067b66d3042
issue #445  spin math

diff -r 3df73ec7fcf2 -r 1b96361a7ef4 hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Fri Oct 26 17:21:28 2012 +0200
+++ b/hedgewars/uGearsUtils.pas	Fri Oct 26 12:42:56 2012 -0400
@@ -323,8 +323,9 @@
 var 
     dAngle: real;
 begin
-// Frac/Round to be kind to JS as of 2012-08-27 where there is yet no int64/uint64
-    dAngle := (Gear^.dX.Round + Gear^.dY.Round) / 2 + (Gear^.dX.Frac+Gear^.dY.Frac) / $80000000;
+    // Frac/Round to be kind to JS as of 2012-08-27 where there is yet no int64/uint64
+    //dAngle := (Gear^.dX.QWordValue + Gear^.dY.QWordValue) / $80000000;
+    dAngle := (Gear^.dX.Round + Gear^.dY.Round) / 2 + (Gear^.dX.Frac/$100000000+Gear^.dY.Frac/$100000000);
     if not Gear^.dX.isNegative then
         Gear^.DirAngle := Gear^.DirAngle + dAngle
     else