Changeset 506 for trunk/LocalPlayer/Wonders.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Better PixelPointer range checking.

File:

• trunk/LocalPlayer/Wonders.pas (modified) (2 diffs)

trunk/LocalPlayer/Wonders.pas

@@ -122 +122 @@
         ((ax < amax1 * X) or (ax > amin3 * X))) then begin
         for ch := 0 to 2 do begin
-          C := Line[0].Pixel^.Planes[ch] - Darken;
-          if C < 0 then Line[0].Pixel^.Planes[ch] := 0
-            else Line[0].Pixel^.Planes[ch] := C;
-          C := Line[1].Pixel^.Planes[ch] - Darken;
-          if C < 0 then Line[1].Pixel^.Planes[ch] := 0
-            else Line[1].Pixel^.Planes[ch] := C;
-          C := Line[2].Pixel^.Planes[ch] - Darken;
-          if C < 0 then Line[2].Pixel^.Planes[ch] := 0
-            else Line[2].Pixel^.Planes[ch] := C;
-          C := Line[3].Pixel^.Planes[ch] - Darken;
-          if C < 0 then Line[3].Pixel^.Planes[ch] := 0
-            else Line[3].Pixel^.Planes[ch] := C;
+          C := Line[0].PixelPlane[ch] - Darken;
+          if C < 0 then Line[0].PixelPlane[ch] := 0
+            else Line[0].PixelPlane[ch] := C;
+          C := Line[1].PixelPlane[ch] - Darken;
+          if C < 0 then Line[1].PixelPlane[ch] := 0
+            else Line[1].PixelPlane[ch] := C;
+          C := Line[2].PixelPlane[ch] - Darken;
+          if C < 0 then Line[2].PixelPlane[ch] := 0
+            else Line[2].PixelPlane[ch] := C;
+          C := Line[3].PixelPlane[ch] - Darken;
+          if C < 0 then Line[3].PixelPlane[ch] := 0
+            else Line[3].PixelPlane[ch] := C;
         end;
       end;
@@ -163 +163 @@
   for Y := 0 to ScaleToNative(ySizeBig) - 1 do begin
     for X := 0 to ScaleToNative(xSizeBig) - 1 do begin
-      Darken := ((255 - Src.Pixel^.B) * 3 + (255 - Src.Pixel^.G) *
-        15 + (255 - Src.Pixel^.R) * 9) div 128;
+      Darken := ((255 - Src.PixelB) * 3 + (255 - Src.PixelG) *
+        15 + (255 - Src.PixelR) * 9) div 128;
       for ch := 0 to 2 do begin
-        C := Dst.Pixel^.Planes[ch] - Darken;
-        if C < 0 then Dst.Pixel^.Planes[ch] := 0
-          else Dst.Pixel^.Planes[ch] := C;
+        C := Dst.PixelPlane[ch] - Darken;
+        if C < 0 then Dst.PixelPlane[ch] := 0
+          else Dst.PixelPlane[ch] := C;
       end;
       Src.NextPixel;