图像的Floodfill部分

Question

我有像贝娄这样的图像

我想让图像变得像

我已经制作了代码，如下：

var
  Tx,Ty, R,G,B,A, posX, posY : integer;
begin
  posX :=-1; posY := -1;
  for Ty:= 0 to Image1.Height-1 do
  begin
    for Tx:= 0 to Image1.Width-1 do
    begin
      R:= GetRValue(image1.Canvas.Pixels[Tx, Ty]);
      G:= GetGValue(image1.Canvas.Pixels[Tx, Ty]);
      B:= GetBValue(image1.Canvas.Pixels[Tx, Ty]);
      A:= (R + G + B) Div 3;

      if (A > 50) then
      begin
         Image1.Canvas.Pixels[Tx,Ty] := rgb(255,255,255);
      end else
      begin
         Image1.Canvas.Pixels[Tx,Ty] := rgb(0,0,0);
         if (posX < 0) then
         begin
           posX := Tx;
           posY := Ty;
         end;
      end;
   end;
  end;
 Image1.Canvas.Brush.Style := bsSolid;
 Image1.Canvas.Brush.Color := clred;
 Image1.Canvas.FloodFill(posX,posY,clBlack,fsSurface);
end;

我上面的编码只能对点进行填充。

我怎样才能像结果图像一样进行填充？感谢

Answer 1

您似乎想要用红色替换所有暗像素，而用白色替换所有亮像素。你的代码几乎就在那里。不是用黑色替换黑暗像素，然后用黑色像素填充，为什么不直接将它们设置为红色，而是完全忘记洪水填充。

只需使用RGB(0,0,0)替换代码中的clRed，然后删除与Floodfill相关的所有代码。

我应该试着解释什么是洪水填充物以及为什么它没有达到你的预期。填充将所有类似颜色的，连续相邻的像素的颜色改变为所选择的种子像素。也就是说，它从您选择的像素开始，在您的情况下，（posX，posY）。它处理该像素，然后处理与该像素相邻的所有相同颜色的像素，然后处理与那些像素相邻的相同颜色的像素，依此类推。

在这种情况下，您可以在字母i上的点中的某个点开始填充。 ＆＃34;洪水＆＃34;从该点向外扩展，从黑色像素到黑色像素，直到它到达由白色像素形成的边界。洪水永远不会到达字母i的主体，因为这些点与种子点不相邻。

来自维基百科的这个链接有更多解释和一些可能有助于您理解的动画。 http://en.wikipedia.org/wiki/Flood_fill