equal
deleted
inserted
replaced
567 repeat |
567 repeat |
568 x:= Left + LongInt(GetRandom(Delta)); |
568 x:= Left + LongInt(GetRandom(Delta)); |
569 repeat |
569 repeat |
570 inc(x, Delta); |
570 inc(x, Delta); |
571 cnt:= 0; |
571 cnt:= 0; |
572 y:= min(1024, topY) - 2 * Gear^.Radius; |
572 if hasBorder then |
|
573 y:= min(1024, topY+4) |
|
574 else y:= min(1024, topY) - 2 * Gear^.Radius; |
573 while y < cWaterLine do |
575 while y < cWaterLine do |
574 begin |
576 begin |
575 repeat |
577 repeat |
576 inc(y, 2); |
578 inc(y, 2); |
577 until (y >= cWaterLine) or |
579 until (y >= cWaterLine) or |