hedgewars/uLandPainted.pas
changeset 15162 af14c418c92f
parent 14437 96624a6cdb93
child 15178 490bd70dac6e
--- a/hedgewars/uLandPainted.pas	Sat Jun 15 01:18:40 2019 +0200
+++ b/hedgewars/uLandPainted.pas	Sat Jun 15 02:50:51 2019 +0200
@@ -129,6 +129,13 @@
         prevPoint:= pe^.point;
         pe:= pe^.next;
         end;
+
+    if (topY > 0) then
+        EraseLandRectRaw(0, 0, LAND_WIDTH, topY - 1);
+    if (leftX > 0) then
+        EraseLandRectRaw(0, topY, leftX - 1, LAND_HEIGHT - topY);
+    if (rightX < (LAND_WIDTH - 1)) then
+        EraseLandRectRaw(rightX + 1, topY, LAND_WIDTH - (rightX + 1), LAND_HEIGHT - topY);
 end;
 
 procedure initModule;