伪彩

ermu114

伪彩(又称“B彩”)是一种将黑白图形或图像显示方式转变为彩色显示的方式，原则上可用于所有灰阶显示的超声图形或图像中，如：二维，M型，频谱多普勒等。它先将回声幅度(黑白显示为灰阶)划分为许多彩色域，然后采用伪彩编码的方法将灰阶显示变换为彩色显示，使黑白图形或图像变成彩色。由于人眼对灰阶等级的分辨不甚敏感，黑白图形或图像转换为彩色后可增强人眼对不同回声强度的敏感度，从主观上增加了显示信号的动态范围，增强图像边界的可识别程度。
灰度到伪彩色的转换公式：
f表示某一像素点的灰度
if 0<=f<63 then
begin
r :=0; g :=254-4*f; b :=255;
end;
if 64<=f<127 then
begin
r :=0; g :=4*f-254; b :=510-4*f;
end;
if 128<=f<191 then
begin
r :=4*f-510; g :=255; b :=0;
end;
if 192<=f<=255 then
begin
r :=255; g :=1022-4*f; b :=0;
end;

//灰度图像转成伪彩色实例：
procedure GrayToColor(Bmp: TBitmap);
var
i, j, uG: Integer;
P: PByteArray;
begin
Bmp.PixelFormat := pf24bit;
for j := 0 to Bmp.Height - 1 do
begin
P := Bmp.ScanLine[j];
for i := 0 to Bmp.Width - 1 do
begin
uG := P[3 * i];
if (0 <= uG) and (uG < 63) then //灰度------>伪彩色
begin
P[3 * i + 2] := 0;
P[3 * i + 1] := 254 - 4 * uG;
P[3 * i] := 255;
end;
if (64 <= uG) and (uG < 127) then
begin
P[3 * i + 2] := 0;
P[3 * i + 1] := 4 * uG - 254;
P[3 * i] := 510 - 4 * uG;
end;
if (128 <= uG) and (uG < 191) then
begin
P[3 * i + 2] := 4 * uG - 510;
P[3 * i + 1] := 255;
P[3 * i] := 0;
end;
if (192 <= uG) and (uG <= 255) then
begin
P[3 * i + 2] := 255;
P[3 * i + 1] := 1022 - 4 * uG;
P[3 * i] := 0;
end;
end;
end;
end;