Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix arithmetics
authorunc0rr
Sat, 08 Mar 2008 11:00:04 +0000
changeset 808 09ffccb9600a
parent 807 7fa6855f02e3
child 809 b33c2def1576
Fix arithmetics
hedgewars/uVisualGears.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uVisualGears.pas	Fri Mar 07 21:38:33 2008 +0000
+++ b/hedgewars/uVisualGears.pas	Sat Mar 08 11:00:04 2008 +0000
@@ -64,8 +64,8 @@
   end;
 
 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps;
-Gear^.Y:= Gear^.Y + (Gear^.dY + cGravity * vobVelocity) * Steps;
-Gear^.Angle:= Gear^.Angle + Gear^.dAngle;
+Gear^.Y:= Gear^.Y + (Gear^.dY + cGravity * vobFallSpeed) * Steps;
+Gear^.Angle:= Gear^.Angle + Gear^.dAngle * Steps;
 
 if hwRound(Gear^.X) < -cScreenWidth - 64 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else
 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 64);
hedgewars