equal
deleted
inserted
replaced
129 prevPoint:= pe^.point; |
129 prevPoint:= pe^.point; |
130 pe:= pe^.next; |
130 pe:= pe^.next; |
131 end; |
131 end; |
132 |
132 |
133 if (topY > 0) then |
133 if (topY > 0) then |
134 EraseLandRectRaw(0, 0, LAND_WIDTH, topY - 1); |
134 EraseLandRectRaw(0, 0, LAND_WIDTH, topY); |
135 if (leftX > 0) then |
135 if (leftX > 0) then |
136 EraseLandRectRaw(0, topY, leftX - 1, LAND_HEIGHT - topY); |
136 EraseLandRectRaw(0, topY, leftX, LAND_HEIGHT - topY); |
137 if (rightX < (LAND_WIDTH - 1)) then |
137 if (rightX < (LAND_WIDTH - 1)) then |
138 EraseLandRectRaw(rightX + 1, topY, LAND_WIDTH - (rightX + 1), LAND_HEIGHT - topY); |
138 EraseLandRectRaw(rightX + 1, topY, LAND_WIDTH - (rightX + 1), LAND_HEIGHT - topY); |
139 end; |
139 end; |
140 |
140 |
141 procedure initModule; |
141 procedure initModule; |