equal
deleted
inserted
replaced
362 for j := min(max(y, 0), LAND_HEIGHT - 1) to min(max(y + iceHeight, 0), LAND_HEIGHT - 1) do |
362 for j := min(max(y, 0), LAND_HEIGHT - 1) to min(max(y + iceHeight, 0), LAND_HEIGHT - 1) do |
363 begin |
363 begin |
364 if Land[j, i] = 0 then |
364 if Land[j, i] = 0 then |
365 begin |
365 begin |
366 Land[j, i] := lfIce; |
366 Land[j, i] := lfIce; |
367 fillPixelFromIceSprite(i, j); |
367 if (cReducedQuality and rqBlurryLand) = 0 then |
|
368 fillPixelFromIceSprite(i, j) |
|
369 else |
|
370 fillPixelFromIceSprite(i div 2, j div 2); |
368 end; |
371 end; |
369 end; |
372 end; |
370 end; |
373 end; |
371 landRect.x := min(max(x - iceRadius, 0), LAND_WIDTH - 1); |
374 landRect.x := min(max(x - iceRadius, 0), LAND_WIDTH - 1); |
372 landRect.y := min(max(y, 0), LAND_HEIGHT - 1); |
375 landRect.y := min(max(y, 0), LAND_HEIGHT - 1); |