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 12764 272fcd3833d2
parent 12681 4e5e725f2c56
child 12849 40c410cd6402
equal deleted inserted replaced
12763:ad67a3804981 12764:272fcd3833d2 
  1546                                     DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
 
  1546                                     DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
 
  1547                                     end;
 
  1547                                     end;
 
  1548                                 end
 
  1548                                 end
 
  1549                           end
 
  1549                           end
 
  1550                       end;
 
  1550                       end;
 
  1551             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.Angle);
 
  1551             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.DirAngle);
 
  1552             gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
 
  1552             gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
 
  1553          end;
 
  1553          end;
 
  1554     if Gear^.State and gstFrozen <> 0 then untint
 
  1554     if Gear^.State and gstFrozen <> 0 then untint
 
  1555 end;
 
  1555 end;
 
  1556 
  1556
hedgewars