Changeset 506 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Dec 25, 2023, 11:35:51 AM (11 months ago)

Author:

chronos

Message:

• Fixed: Better PixelPointer range checking.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (5 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -266 +266 @@
         for Y := 0 to yyt * 3 - 1 do begin
           MaskLine[Y].SetX(ScaleToNative(1 + xSrc * (xxt * 2 + 1) + TSpriteSize[I].Left));
-          if MaskLine[Y].Pixel^.B = 0 then Border := False;
+          if MaskLine[Y].PixelB = 0 then Border := False;
         end;
         if Border then Inc(TSpriteSize[I].Left);
@@ -275 +275 @@
         for X := 0 to xxt * 2 - 1 do begin
           MaskLine[TSpriteSize[I].Top].SetX(ScaleToNative(1 + xSrc * (xxt * 2 + 1) + X));
-          if MaskLine[TSpriteSize[I].Top].Pixel^.B = 0 then Border := False;
+          if MaskLine[TSpriteSize[I].Top].PixelB = 0 then Border := False;
         end;
         if Border then Inc(TSpriteSize[I].Top);
@@ -284 +284 @@
         for Y := 0 to yyt * 3 - 1 do begin
           MaskLine[Y].SetX(ScaleToNative(xSrc * (xxt * 2 + 1) + TSpriteSize[I].Right));
-          if MaskLine[Y].Pixel^.B = 0 then Border := False;
+          if MaskLine[Y].PixelB = 0 then Border := False;
         end;
         if Border then Dec(TSpriteSize[I].Right);
@@ -293 +293 @@
         for X := 0 to xxt * 2 - 1 do begin
           MaskLine[TSpriteSize[I].Bottom - 1].SetX(ScaleToNative(1 + xSrc * (xxt * 2 + 1) + X));
-          if MaskLine[TSpriteSize[I].Bottom - 1].Pixel^.B = 0 then Border := False;
+          if MaskLine[TSpriteSize[I].Bottom - 1].PixelB = 0 then Border := False;
         end;
         if Border then Dec(TSpriteSize[I].Bottom);
@@ -1404 +1404 @@
 begin
   for I := 0 to Length - 1 do begin
-    Line^.Pixel^.B := (Line^.Pixel^.B shr 1) and $7F;
-    Line^.Pixel^.G := (Line^.Pixel^.G shr 1) and $7F;
-    Line^.Pixel^.R := (Line^.Pixel^.R shr 1) and $7F;
+    Line^.PixelB := (Line^.PixelB shr 1) and $7F;
+    Line^.PixelG := (Line^.PixelG shr 1) and $7F;
+    Line^.PixelR := (Line^.PixelR shr 1) and $7F;
     Line^.NextPixel;
   end;