equal
deleted
inserted
replaced
250 end; |
250 end; |
251 if (dx = dy) then FillLandCircleLinesBG(x, y, dx, dy); |
251 if (dx = dy) then FillLandCircleLinesBG(x, y, dx, dy); |
252 end; |
252 end; |
253 |
253 |
254 // draw a hole in land |
254 // draw a hole in land |
255 if Radius > 25 then |
255 if Radius > 20 then |
256 begin |
256 begin |
257 dx:= 0; |
257 dx:= 0; |
258 dy:= Radius - 25; |
258 dy:= Radius - 15; |
259 d:= 3 - 2 * dy; |
259 d:= 3 - 2 * dy; |
260 |
260 |
261 while (dx < dy) do |
261 while (dx < dy) do |
262 begin |
262 begin |
263 FillLandCircleLines0(x, y, dx, dy); |
263 FillLandCircleLines0(x, y, dx, dy); |
392 begin |
392 begin |
393 X:= X + dX; |
393 X:= X + dX; |
394 Y:= Y + dY; |
394 Y:= Y + dY; |
395 tx:= hwRound(X); |
395 tx:= hwRound(X); |
396 ty:= hwRound(Y); |
396 ty:= hwRound(Y); |
397 if ((ty and LAND_HEIGHT_MASK) = 0) and ((tx and LAND_WIDTH_MASK) = 0) then |
397 if (Land[ty, tx] <> COLOR_INDESTRUCTIBLE) and ((ty and LAND_HEIGHT_MASK) = 0) and ((tx and LAND_WIDTH_MASK) = 0) then |
398 begin |
398 begin |
399 if Land[ty, tx] = COLOR_LAND then |
399 if Land[ty, tx] = COLOR_LAND then |
400 LandPixels[ty, tx]:= LandBackPixel(tx, ty) |
400 LandPixels[ty, tx]:= LandBackPixel(tx, ty) |
401 else if Land[ty, tx] = COLOR_OBJECT then |
401 else if Land[ty, tx] = COLOR_OBJECT then |
402 LandPixels[ty, tx]:= 0; |
402 LandPixels[ty, tx]:= 0; |