equal
deleted
inserted
replaced
169 end; |
169 end; |
170 end; |
170 end; |
171 |
171 |
172 for x:= 0 to width do |
172 for x:= 0 to width do |
173 if Land[height - 1, x] = lfObjMask then FillLand(x, height - 1, 0, lfBasic); |
173 if Land[height - 1, x] = lfObjMask then FillLand(x, height - 1, 0, lfBasic); |
174 FillLand(0, minY, lfBasic, lfObjMask); |
174 //FillLand(0, minY, lfBasic, lfObjMask); |
175 |
175 |
176 // strip all lfObjMask pixels |
176 // strip all lfObjMask pixels |
177 for y:= 0 to LAND_HEIGHT - 1 do |
177 for y:= minY to LAND_HEIGHT - 1 do |
178 for x:= 0 to LAND_WIDTH - 1 do |
178 for x:= 0 to LAND_WIDTH - 1 do |
179 if Land[y, x] = lfObjMask then |
179 if Land[y, x] = lfObjMask then |
180 Land[y, x]:= 0; |
180 Land[y, x]:= 0; |
181 |
181 |
182 leftX:= 0; |
182 leftX:= 0; |