Delphi图像处理 -- 锐化

阅读提示：

    《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。

    《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。

    尽可能保持二者内容一致，可相互对照。

   本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元。

 

    Photoshop的锐化滤镜很简单，就是对图像做一个卷积，其卷积模板为：

        0    -1     0

       -1     8    -1

        0    -1     0

    可以用《Delphi图像处理 -- 图像卷积》中的通用卷积过程进行处理，不过，使用专门的处理过程应该还是快些，所以，写了一个图像锐化处理过程贴在下面：

procedure DoSharpen(var Dest: TImageData; const Source: TImageData);
asm
    push      ebp
    push      esi
    push      edi
    push      ebx
    mov       ebp, [edx].TImageData.Stride
    call      _SetCopyRegs
    pxor      mm7, mm7
    pcmpeqw   mm5, mm5
    psrlw     mm5, 15
    psllw     mm5, 1
@@yLoop:
    push      ecx
@@xLoop:
    // dest.argb = (center * 8 - up - down - left - right + 2) / 4
    movd      mm2, [esi+4]      // up
    movd      mm1, [esi+ebp]    // left
    movd      mm0, [esi+ebp+4]  // center
    movd      mm3, [esi+ebp+8]  // right
    movd      mm4, [esi+ebp*2+4]// down
    punpcklbw mm0, mm7
    punpcklbw mm1, mm7
    punpcklbw mm2, mm7
    punpcklbw mm3, mm7
    punpcklbw mm4, mm7
    psllw     mm0, 3
    psubw     mm0, mm1
    psubw     mm0, mm2
    psubw     mm0, mm3
    psubw     mm0, mm4
    paddw     mm0, mm5
    psraw     mm0, 2
    packuswb  mm0, mm7
    movd      [edi], mm0
    add       esi, 4
    add       edi, 4
    loop      @@xLoop
    pop       ecx
    add       esi, eax
    add       edi, ebx
    dec       edx
    jnz       @@yLoop
    pop       ebx
    pop       edi
    pop       esi
    pop       ebp
    emms
end;

procedure ImageSharpen(var Data: TImageData);
var
  src: TImageData;
begin
  if Data.AlphaFlag then
    ArgbConvertPArgb(Data);
  src := _GetExpandData(Data, 1);
  DoSharpen(Data, src);
  if Data.AlphaFlag then
    PArgbConvertArgb(Data);
  FreeImageData(src);
end;

    下面是个调用锐化过程的简单例子：

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TGpBitmap;
  g: TGpGraphics;
  data: TImageData;
begin
  bmp := TGpBitmap.Create('..\..\media\source.bmp');
  data := LockGpBitmap(bmp);
  ImageSharpen(data);
  UnlockGpBitmap(bmp, data);
  g := TGpGraphics.Create(Canvas.Handle);
  g.DrawImage(bmp, 0, 0);
  g.Free;
  bmp.Free;
end;

 

    《Delphi图像处理》系列使用GDI+单元下载地址和说明见文章《GDI+ for VCL基础 -- GDI+ 与 VCL》。

    因水平有限，错误在所难免，欢迎指正和指导。邮箱地址：[email protected]

    这里可访问《Delphi图像处理 -- 文章索引》。