Changeset 480 for trunk/LocalPlayer/Term.pas

Timestamp:

Dec 6, 2023, 11:05:10 PM (5 months ago)

Author:

chronos

Message:

• Fixed: Bitmap processing out of range error.

File:

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

trunk/LocalPlayer/Term.pas

@@ -719 +719 @@
   TBuffer = array [0 .. 99999, 0 .. 2] of Integer;
 var
-  Sum, Cnt, dx, dy, nx, ny, ix, iy, ir, X, Y, C, ch: Integer;
+  Sum: Int64;
+  Cnt, dx, dy, nx, ny, ix, iy, ir, X, Y, C, ch: Integer;
   xdivider, ydivider: Integer;
   Resampled: ^TBuffer;
   PixelPtr: TPixelPointer;
+  V: Integer;
 begin
   nx := BigImp.Width div xSizeBig * xSizeSmall;
@@ -784 +786 @@
                 ((dx <= 0) or (ScaleFromNative(X) mod xSizeSmall < xSizeSmall - 1)) then
               begin
-                Inc(Sum, Resampled[ScaleFromNative(X) + dx + nx * (ScaleFromNative(Y) + dy), ch]);
+                V := Resampled[ScaleFromNative(X) + dx + nx * (ScaleFromNative(Y) + dy), ch];
+                Inc(Sum, V);
                 Inc(Cnt);
               end;
-        Sum := ((Cnt * Sharpen + 800) * Resampled[ScaleFromNative(X) + nx * ScaleFromNative(Y), ch] - Sum *
-          Sharpen) div (800 * xSizeBig * (ySizeBig - 2 * Cut));
+        V := Resampled[ScaleFromNative(X) + nx * ScaleFromNative(Y), ch];
+        Sum := ((Cnt * Sharpen + 800) * V - Sum * Sharpen)
+          div (800 * xSizeBig * (ySizeBig - 2 * Cut));
+        Sum := Round(Sum / ScaleToNative(ScaleToNative(1)));
         if Sum < 0 then Sum := 0;
         if Sum > 255 then Sum := 255;