only skip blended points before blending

Author: Torwent

Source/simba.image.pas

@@ -1458,12 +1458,15 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: T
   X, Y, Count: Integer;
   Area: TBox;
   SumR, SumG, SumB: UInt64;
-  Skip: TBooleanArray;
+  Skip, Ignored: TBooleanArray;
 begin
   Result := Copy();
+
   SetLength(Skip, FWidth*FHeight);
+  SetLength(Ignored, FWidth*FHeight);
+
   for P in IgnorePoints do
-    Skip[P.Y * FWidth + P.X] := True;
+    Ignored[P.Y * FWidth + P.X] := True;
   for P in Points do
     Skip[P.Y * FWidth + P.X] := True;
 
@@ -1480,6 +1483,8 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: T
     for X := Area.X1 to Area.X2 do
       for Y := Area.Y1 to Area.Y2 do
       begin
+        if Ignored[Y * FWidth + X] then
+          Continue;
         if Skip[Y * FWidth + X] then
           Continue;
 
@@ -1503,6 +1508,8 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: T
       end;
     end else
       Result.Data[P.Y * FWidth + P.X] := FData[P.Y * FWidth + P.X];
+
+    Skip[P.Y * FWidth + P.X] := False;
   end;
 end;