hedgewars/uVisualGears.pas
changeset 6913 73984ea24ff5
parent 6856 a5b0afb60862
child 6982 8d41d22a291d
equal deleted inserted replaced
6912:831416764d2d 6913:73984ea24ff5
   363                 dy:= 0;
   363                 dy:= 0;
   364                 FrameTicks:= 350;
   364                 FrameTicks:= 350;
   365                 Frame:= 7;
   365                 Frame:= 7;
   366                 Angle:= 0;
   366                 Angle:= 0;
   367                 end;
   367                 end;
   368 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   368 vgtSmoothWindBar: 
       
   369                 begin
       
   370                 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
       
   371                 Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
       
   372                 end;
   369  vgtStraightShot:
   373  vgtStraightShot:
   370                 begin
   374                 begin
   371                 Angle:= 0;
   375                 Angle:= 0;
   372                 Scale:= 1.0;
   376                 Scale:= 1.0;
   373                 dx:= 0.001 * random(45);
   377                 dx:= 0.001 * random(45);