old blend test

Author: Torwent

Source/simba.image.pas

@@ -1452,67 +1452,64 @@ function TSimbaImage.Blend(Points: TPointArray; Radius: Integer): TSimbaImage;
   Result := Blend(Points, Radius, []);
 end;
 
+
 function TSimbaImage.Blend(Points: TPointArray; Radius: Integer; IgnorePoints: TPointArray): TSimbaImage;
 var
   P: TPoint;
   X, Y, Count: Integer;
   Area: TBox;
-  SumR, SumG, SumB: UInt64;
-  Skip, Ignored: TBooleanArray;
+  R, G, B: Int32;
+  BGRA: TColorBGRA;
+  Skip: TBooleanArray;
 begin
   Result := Copy();
 
-  SetLength(Skip, FWidth*FHeight);
-  SetLength(Ignored, FWidth*FHeight);
-
+  SetLength(Skip, FWidth * FHeight);
   for P in IgnorePoints do
-    Ignored[P.Y * FWidth + P.X] := True;
-  for P in Points do
     Skip[P.Y * FWidth + P.X] := True;
 
   for P in Points do
   begin
+    if Skip[
     Area.X1 := Max(P.X - Radius, 0);
     Area.Y1 := Max(P.Y - Radius, 0);
-    Area.X2 := Min(P.X + Radius, FWidth - 1);
-    Area.Y2 := Min(P.Y + Radius, FHeight - 1);
+    Area.X2 := Min(P.X + Radius, FWidth-1);
+    Area.Y2 := Min(P.Y + Radius, FHeight-1);
 
     Count := 0;
-    SumR := 0; SumG := 0; SumB := 0;
+
+    R := 0;
+    G := 0;
+    B := 0;
 
     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;
+        BGRA := FData[Y * FWidth + X];
+        if (BGRA = ALPHA_OPAQUE) then
+          Continue;
+
+        Inc(R, BGRA.R);
+        Inc(G, BGRA.G);
+        Inc(B, BGRA.B);
 
-        with FData[Y * FWidth + X] do
-        begin
-          Inc(SumR, R);
-          Inc(SumG, G);
-          Inc(SumB, B);
-        end;
         Inc(Count);
       end;
 
-    if (Count > 1) then
+    if Count > 0 then
     begin
-      with Result.Data[P.Y * FWidth + P.X] do
-      begin
-        R := SumR div Count;
-        G := SumG div Count;
-        B := SumB div Count;
-        A := ALPHA_OPAQUE;
-      end;
+      BGRA.R := R div Count;
+      BGRA.G := G div Count;
+      BGRA.B := B div Count;
 
-      Skip[P.Y * FWidth + P.X] := False;
-    end else
-      Result.Data[P.Y * FWidth + P.X] := FData[P.Y * FWidth + P.X];
+      Result.FData[P.Y * FWidth + P.X] := BGRA;
+    end;
   end;
 end;
 
+
 function TSimbaImage.Downsample(Scale: Integer): TSimbaImage;
 begin
   Result := SimbaImage_Downsample(Self, Scale);