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