Mercurial Mercurial > hedgewars / diff
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/uCollisions.pas
changeset 62 c3eda0c68cd6
parent 57 e1a77ae57065
child 64 9df467527ae5 
--- a/hedgewars/uCollisions.pas	Sun Feb 05 12:48:35 2006 +0000
+++ b/hedgewars/uCollisions.pas	Sun Feb 05 18:51:54 2006 +0000
@@ -77,7 +77,7 @@
      X:= round(Gear.X);
      Y:= round(Gear.Y);
      Radius:= Gear.Radius;
-     FillRoundInLand(X, Y, Radius, $FF);
+     FillRoundInLand(X, Y, Radius-1, $FF);
      cGear:= Gear
      end;
 Gear.CollIndex:= Count;
@@ -88,7 +88,7 @@
 begin
 if Gear.CollIndex < Count then
    begin
-   with cinfos[Gear.CollIndex] do FillRoundInLand(X, Y, Radius, 0);
+   with cinfos[Gear.CollIndex] do FillRoundInLand(X, Y, Radius-1, 0);
    cinfos[Gear.CollIndex]:= cinfos[Pred(Count)];
    cinfos[Gear.CollIndex].cGear.CollIndex:= Gear.CollIndex;
    Gear.CollIndex:= High(Longword);
hedgewars