diff -r a620319d377e -r e9c3c67b5dfd hedgewars/uGearsUtils.pas --- a/hedgewars/uGearsUtils.pas Sat Aug 25 18:22:15 2012 -0400 +++ b/hedgewars/uGearsUtils.pas Sat Aug 25 18:35:59 2012 -0400 @@ -569,9 +569,7 @@ repeat inc(x, Delta); cnt:= 0; - if hasBorder then - y:= min(1024, topY+4) - else y:= min(1024, topY) - 2 * Gear^.Radius; + y:= min(1024, topY) - 2 * Gear^.Radius; while y < cWaterLine do begin repeat @@ -607,7 +605,7 @@ inc(cnt) end; - inc(y, 45) + inc(y, 10) end; if cnt > 0 then