Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsRender.pas
changeset 13572 a71e6856ffab
parent 13405 4c813650fe17
child 13573 e896ff1b1d96
equal deleted inserted replaced
13571:fb81633f17fa 13572:a71e6856ffab 
  1566                           if RealTicks mod 2 = 0 then
 
  1566                           if RealTicks mod 2 = 0 then
 
  1567                                 begin
 
  1567                                 begin
 
  1568                                 i:= random(100)+100;
 
  1568                                 i:= random(100)+100;
 
  1569                                 if Gear^.Target.X <> NoPointX then
 
  1569                                 if Gear^.Target.X <> NoPointX then
 
  1570                                     begin
 
  1570                                     begin
 
  1571                                     DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40);
 
  1571                                     DrawLineWrapped(hwRound(HHGear^.X), hwRound(HHGear^.Y), Gear^.Target.X, Gear^.Target.Y, 4.0, hwSign(HHGear^.dX) < 0, Gear^.FlightTime, i, i, $FF, $40);
 
  1572                                     end
 
  1572                                     end
 
  1573                                 else
 
  1573                                 else
 
  1574                                     begin
 
  1574                                     begin
 
  1575                                     DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
 
  1575                                     DrawLineWrapped(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, hwSign(HHGear^.dX) < 0, Gear^.FlightTime, i, i, $FF, $40);
 
  1576                                     end;
 
  1576                                     end;
 
  1577                                 end
 
  1577                                 end
 
  1578                           end
 
  1578                           end
 
  1579                       end;
 
  1579                       end;
 
  1580             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, 
  1580             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag,
hedgewars