hedgewars/uVisualGears.pas
changeset 6913 73984ea24ff5
parent 6856 a5b0afb60862
child 6982 8d41d22a291d
--- a/hedgewars/uVisualGears.pas	Sun Apr 22 21:23:32 2012 +0400
+++ b/hedgewars/uVisualGears.pas	Sun Apr 22 13:58:53 2012 -0400
@@ -365,7 +365,11 @@
                 Frame:= 7;
                 Angle:= 0;
                 end;
-vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
+vgtSmoothWindBar: 
+                begin
+                Angle:= hwFloat2Float(cMaxWindSpeed)*2 / 1440; // seems rate below is supposed to change wind bar at 1px per 10ms. Max time, 1440ms. This tries to match the rate of change
+                Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
+                end;
  vgtStraightShot:
                 begin
                 Angle:= 0;