hedgewars/uWorld.pas
changeset 14549 3105881d5840
parent 14547 e68b91abbcf5
child 14574 0149d5ed5dc5
--- a/hedgewars/uWorld.pas	Thu Jan 10 19:09:06 2019 +0100
+++ b/hedgewars/uWorld.pas	Thu Jan 10 19:21:08 2019 +0100
@@ -1556,7 +1556,7 @@
     if WindBarWidth > 0 then
         begin
         {$WARNINGS OFF}
-        r.x:= 8 - (RealTicks shr 6) mod 8;
+        r.x:= 8 - (RealTicks shr 6) mod 9;
         {$WARNINGS ON}
         r.y:= 0;
         r.w:= WindBarWidth;
@@ -1567,7 +1567,7 @@
         if WindBarWidth < 0 then
         begin
         {$WARNINGS OFF}
-        r.x:= (Longword(WindBarWidth) + RealTicks shr 6) mod 8;
+        r.x:= (Longword(WindBarWidth) + RealTicks shr 6) mod 9;
         {$WARNINGS ON}
         r.y:= 0;
         r.w:= - WindBarWidth;