hedgewars: comparison hedgewars/uLandGraphics.pas

equal deleted inserted replaced

-:43e106417a05
+:b5b79a8f9354
 end
 else if ((Land[landY, landX] and lfObject) <> 0) or (((LandPixels[pixelY, pixelX] and AMask) shr AShift) < 255) then
 LandPixels[pixelY, pixelX]:= 0
 end;
 end;
 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline;
 begin
 if ((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0) then
 begin
 LandPixels[pixelY, pixelX]:= ExplosionBorderColor;
 Land[landY, landX]:= (Land[landY, landX] or lfDamaged) and not lfIce;
 LandDirty[landY div 32, landX div 32]:= 1;
 end;
 end;
 function isLandscapeEdge(weight:Longint):boolean; inline;
 begin
 result := (weight < 8) and (weight >= 2);
 end;
 function getPixelWeight(x, y:Longint): Longint;
 var
 i, j:Longint;
 begin
 result := 0;
 begin
 if (i < 0) or
 (i > LAND_WIDTH - 1) or
 (j < 0) or
 (j > LAND_HEIGHT -1) then
 begin
 result := 9;
 exit;
 end;
 if Land[j, i] and lfLandMask and not lfIce = 0 then
 result := result + 1;
 if w > 255 then w:= 255;
 w:= (w shl RShift) or (w shl BShift) or (w shl GShift) or (LandPixels[pixelY, pixelX] and AMask);
 LandPixels[pixelY, pixelX]:= addBgColor(w, IceColor);
 LandPixels[pixelY, pixelX]:= addBgColor(LandPixels[pixelY, pixelX], icePixels^[iceSurface^.w * (pixelY mod iceSurface^.h) + (pixelX mod iceSurface^.w)])
 end
 else
 begin
 LandPixels[pixelY, pixelX]:= IceColor and not AMask or $E8 shl AShift;
 LandPixels[pixelY, pixelX]:= addBgColor(LandPixels[pixelY, pixelX], icePixels^[iceSurface^.w * (pixelY mod iceSurface^.h) + (pixelX mod iceSurface^.w)]);
 // silly workaround to avoid having to make background erasure a tadb it smarter about sea ice
 if LandPixels[pixelY, pixelX] and AMask shr AShift = 255 then
 LandPixels[pixelY, pixelX]:= LandPixels[pixelY, pixelX] and not AMask or 254 shl AShift;
 end;
 end;
 //get rid of compiler warning
 px := 0;
 py := 0;
 FillLandCircleLine := 0;
 case fill of
 backgroundPixel:
 for i:= fromPix to toPix do
 begin
 calculatePixelsCoordinates(i, y, px, py);
 inc(FillLandCircleLine, drawPixelBG(i, y, px, py));
 end;
 ebcPixel:
 for i:= fromPix to toPix do
 begin
 calculatePixelsCoordinates(i, y, px, py);
 drawPixelEBC(i, y, px, py);
 end;
 nullPixel:
 for i:= fromPix to toPix do
 begin
 calculatePixelsCoordinates(i, y, px, py);
 if ((Land[y, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[y, i] > 255))  then
 LandPixels[py, px]:= 0
 end;
 icePixel:
 for i:= fromPix to toPix do
 begin
 calculatePixelsCoordinates(i, y, px, py);
 DrawPixelIce(i, y, px, py);
 end;
 setNotCurrentMask:
 for i:= fromPix to toPix do
 begin
 Land[y, i]:= Land[y, i] and lfNotCurrentMask;
 end;
 changePixelSetNotCurrent:
 for i:= fromPix to toPix do
 begin
 if Land[y, i] and lfObjMask > 0 then
 Land[y, i]:= (Land[y, i] and lfNotObjMask) or ((Land[y, i] and lfObjMask) - 1);
 end;
 setCurrentHog:
 for i:= fromPix to toPix do
 begin
 Land[y, i]:= Land[y, i] or lfCurrentHog
 end;
 changePixelNotSetNotCurrent:
 for i:= fromPix to toPix do
 begin
 if Land[y, i] and lfObjMask < lfObjMask then
 Land[y, i]:= (Land[y, i] and lfNotObjMask) or ((Land[y, i] and lfObjMask) + 1)
 end;
 end;
 end;
 function FillLandCircleSegment(x, y, dx, dy: LongInt; fill : fillType): Longword; inline;
 begin
 FillLandCircleSegment := 0;
 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 inc(FillLandCircleSegment, FillLandCircleLine(y + dy, Max(x - dx, 0), Min(x + dx, LAND_WIDTH - 1), fill));
 begin
 for j := min(max(y, 0), LAND_HEIGHT - 1) to min(max(y + iceHeight, 0), LAND_HEIGHT - 1) do
 begin
 if Land[j, i] = 0 then
 begin
 Land[j, i] := lfIce;
 fillPixelFromIceSprite(i, j);
 end;
 end;
 end;
 landRect.x := min(max(x - iceRadius, 0), LAND_WIDTH - 1);
 landRect.y := min(max(y, 0), LAND_HEIGHT - 1);
 landRect.w := min(2*iceRadius, LAND_WIDTH - landRect.x - 1);
 landRect.h := min(iceHeight, LAND_HEIGHT - landRect.y - 1);
 UpdateLandTexture(landRect.x, landRect.w, landRect.y, landRect.h, true);
 end;
 function DrawExplosion(X, Y, Radius: LongInt): Longword;
 var
 tx, ty, dx, dy: Longint;
 begin
 DrawExplosion := FillRoundInLand(x, y, Radius, backgroundPixel);
 if Radius > 20 then
 FillRoundInLand(x, y, Radius - 15, nullPixel);
 FillRoundInLand(X, Y, Radius, 0);
 FillRoundInLand(x, y, Radius + 4, ebcPixel);
 if (cReducedQuality and rqBlurryLand) = 0 then
 LandPixels[ty, tx]:= ExplosionBorderColor
 else
 LandPixels[ty div 2, tx div 2]:= ExplosionBorderColor
 end
 end;
 end;
 //
 //  - (dX, dY) - direction, vector of length = 0.5

changeset 8795	b5b79a8f9354
parent 8783	f1231a48fc48
parent 8774	39754516eee6
child 8828	4ae5233abe76