//模糊灰度变换
procedure mohuhuidu(b : TBitmap);
var
x, y , I : Integer;
//黑 灰 亮 三个输入隶属度函数
dark , gray, bright : array [0..255] of single;
rwdata : TBitmapData ;
p: PByteArray;
begin
//初始化三个输入隶属度函数
for I := 0 to 255 do
begin
if i<=63 then
begin
dark[i] := 1;
gray[i] := 0;
bright[i] := 0;
end
else if i>=191 then
begin
dark[i] := 0;
gray[i] := 0;
bright[i] := 1;
end
else if i<=127 then
begin
dark[i] := (127-i)*1/64;
gray[i] := 1-dark[i];
bright[i] := 0;
end
else
begin
dark[i] := 0;
gray[i] := (i-127)*1/64;
bright[i] := 1-gray[i];
end;
end;
//遍历图像赋值
if b.Map( TMapAccess.ReadWrite, rwdata) then
begin
for y := 0 to rwdata.Height - 1 do
begin
p := rwdata.GetScanline(y);
for x := 0 to rwdata.Width - 1 do
begin
p[x*4] := round(
(dark[p[x*4]]*0+gray[p[x*4]]*127+bright[p[x*4]]*255)
/(dark[p[x*4]]+gray[p[x*4]]+bright[p[x*4]])
);
p[x*4+1] := p[x*4];
p[x*4+2] := p[x*4];
end;
end;
end;
b.Unmap(rwdata);
end;
结果:
原理: