hedgewars: comparison hedgewars/uLandGraphics.pas

equal deleted inserted replaced

-:acc69f506914
+:8f9b84d6991d
 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte);
 var tx, ty, by, bx,  i: LongInt;
 begin
 for i:= 0 to Pred(Count) do
 begin
-for ty:= Max(y - Radius, 0) to Min(y + Radius, LAND_HEIGHT) do
+for ty:= Max(y - Radius, 0) to Min(y + Radius, TopY) do
-for tx:= Max(0, ar^[i].Left - Radius) to Min(LAND_WIDTH, ar^[i].Right + Radius) do
+for tx:= Max(LeftX, ar^[i].Left - Radius) to Min(RightX, ar^[i].Right + Radius) do
 begin
 if (Land[ty, tx] and lfIndestructible) = 0 then
 begin
 if (cReducedQuality and rqBlurryLand) = 0 then
 begin
 inc(Radius, 4);
 dec(y, Count * dY);
 for i:= 0 to Pred(Count) do
 begin
-for ty:= Max(y - Radius, 0) to Min(y + Radius, LAND_HEIGHT) do
+for ty:= Max(y - Radius, 0) to Min(y + Radius, TopY) do
-for tx:= Max(0, ar^[i].Left - Radius) to Min(LAND_WIDTH, ar^[i].Right + Radius) do
+for tx:= Max(LeftX, ar^[i].Left - Radius) to Min(RightX, ar^[i].Right + Radius) do
 if ((Land[ty, tx] and lfBasic) <> 0) or ((Land[ty, tx] and lfObject) <> 0) then
 begin
 if (cReducedQuality and rqBlurryLand) = 0 then
 LandPixels[ty, tx]:= ExplosionBorderColor
 else