请教图像显示“余辉”效果

[xlbian]

能否实现图像的“余辉”效果？
用一条扫描线从左到右扫描图像，扫描线处的图案显示出来，并且亮度最高，当扫描线离开时，亮度逐渐降低，直至消失。

[etomahawk]

没人愿意写代码，我就写点，顺便加到我的图像处理库中。

基本原理很简单，就是使用了图像的Alpha混合原理。

到我的资源中去下载：http://download.csdn.net/source/754773

关键部分代码：

procedure TFadeThread.DrawImage;
var
  pSrcLine: PByteArray;
  pDstLine: PByteArray;
  nAlpha  : BYTE;
  nStep   : BYTE;
  nTmp    : BYTE;
  nRow, nCol: Integer;
begin
  nStep:= 255 div FadeWidth;

  // Clear old images
  FBufBmp.Canvas.Pen.Color  := clBlack;
  FBufBmp.Canvas.Brush.Color:= clBlack;
  FBufBmp.Canvas.Rectangle(0, 0, FBufBmp.Width, FBufBmp.Height);

  for nRow:= 0 to FBufBmp.Height - 1 do
  begin
    pSrcLine:= FBkBmp.ScanLine[nRow];
    pDstLine:= FBufBmp.ScanLine[nRow];

    nAlpha:= 0;
    for nCol:= FCurCol to FBufBmp.Width - 1 do
    begin
      inc(nAlpha);
      if (nAlpha > FadeWidth) then break;

      if nCol < 0 then continue;

      nTmp:= nStep * nAlpha;
      pDstLine[nCol * 3    ]:= nTmp * pSrcLine[nCol * 3    ] div 255;
      pDstLine[nCol * 3 + 1]:= nTmp * pSrcLine[nCol * 3 + 1] div 255;
      pDstLine[nCol * 3 + 2]:= nTmp * pSrcLine[nCol * 3 + 2] div 255;
    end;
  end;

  inc(FCurCol);

  if (FCurCol > FBufBmp.Width - 1) then FCurCol:= -FadeWidth;
end;

[xlbian]

[Quote=引用 1 楼 etomahawk 的回复:]
没人愿意写代码，我就写点，顺便加到我的图像处理库中。

基本原理很简单，就是使用了图像的Alpha混合原理。

到我的资源中去下载：http://download.csdn.net/source/754773

关键部分代码：

Delphi(Pascal) codeprocedure TFadeThread.DrawImage;
var
pSrcLine: PByteArray;
pDstLine: PByteArray;
nAlpha : BYTE;
nStep : BYTE;
nTmp : BYTE;
nRow, nCol: Integer;
begin
nStep:= 2…
[/Quote]

如果是圆周扫描，该如何实现？

[zhangxiaommmm]

太佩服你了！！

[mdejtod]

mark

[xlbian]

好的，谢谢。我担心圆周处理后速度太慢！

[etomahawk]

基本的原理我已经告诉你了，至于实现圆周扫描，属于数学问题了（就是在混合的时候，对于像素点的判断），你自己研究研究吧。

我有时间的话再帮你写。

[xlbian]

[Quote=引用 5 楼 etomahawk 的回复:]
基本的原理我已经告诉你了，至于实现圆周扫描，属于数学问题了（就是在混合的时候，对于像素点的判断），你自己研究研究吧。

我有时间的话再帮你写。
[/Quote]

好的，谢谢。我担心速度太慢！