hedgewars/uFloat.pas
changeset 355 40c68869899e
parent 351 29bc9c36ad5f
child 357 165a040e4cfa
--- a/hedgewars/uFloat.pas	Sun Jan 21 21:27:07 2007 +0000
+++ b/hedgewars/uFloat.pas	Sun Jan 21 21:31:10 2007 +0000
@@ -171,7 +171,7 @@
 begin
 z.isNegative:= z1.isNegative xor (z2 < 0);
 z2:= abs(z2);
-z.QWordValue:= z.QWordValue * z2
+z.QWordValue:= z1.QWordValue * z2
 end;
 
 operator / (z1, z2: hwFloat) z : hwFloat;
@@ -260,7 +260,7 @@
 function AngleSin(angle: Longword): hwFloat;
 begin
 AngleSin.isNegative:= false;
-AngleSin:= Round(Sin(Angle * pi / cMaxAngle) * 4294967296)
+AngleSin.QWordValue:= Round(Sin(Angle * pi / cMaxAngle) * 4294967296)
 end;
 
 function AngleCos(angle: Longword): hwFloat;
@@ -268,7 +268,7 @@
 begin
 CosVal:= Cos(Angle * pi / cMaxAngle);
 AngleCos.isNegative:= CosVal < 0;
-AngleCos:= Round(Cosval * 4294967296)
+AngleCos.QWordValue:= Round(Abs(Cosval) * 4294967296)
 end;
 
 {$ENDIF}