author | nemo |
Sat, 25 Aug 2012 13:06:28 -0400 | |
changeset 7599 | 74db5b16a776 |
parent 7598 | f06d8603097c |
child 7600 | 31a177d2856c |
--- a/hedgewars/uGearsUtils.pas Sat Aug 25 09:17:42 2012 -0400 +++ b/hedgewars/uGearsUtils.pas Sat Aug 25 13:06:28 2012 -0400 @@ -569,7 +569,9 @@ repeat inc(x, Delta); cnt:= 0; - y:= min(1024, topY) - 2 * Gear^.Radius; + if hasBorder then + y:= min(1024, topY+4) + else y:= min(1024, topY) - 2 * Gear^.Radius; while y < cWaterLine do begin repeat