hedgewars/uVisualGears.pas
changeset 853 0b4a23795530
parent 841 0700e3d3474d
child 938 0c8d2085fa71
equal deleted inserted replaced
852:f756a1d3324c 853:0b4a23795530
   156       begin
   156       begin
   157       case Gear^.Kind of
   157       case Gear^.Kind of
   158            vgtFlake: if vobVelocity = 0 then
   158            vgtFlake: if vobVelocity = 0 then
   159                         DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame)
   159                         DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame)
   160                      else
   160                      else
   161                         DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, Gear^.Angle);
   161                         DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   162 
   162 
   163            vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame);
   163            vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame);
   164               end;
   164               end;
   165       Gear:= Gear^.NextGear
   165       Gear:= Gear^.NextGear
   166       end;
   166       end;