由图像的灰度化看基本图像处理(2)
2006-02-04 13:37:48 来源:WEB开发网[颜色篇]
在上一篇中提到了,那灰度化代码只能适用于24位色(PixelFormats=pf24bit),为什么?看看记录类型tagRGBTRipLE,正好24位,所以这样只能处理24位色图!
那怎么处理其他的位图呢?
先对这各种类型的位图做些简单的介绍~~~
pf1bit:
每个像素只需要用一位表示,如调色板定义的是黑白两种颜色(0为黑,1为白),这时只能用位操作访问像素信息!如定义
var P:PByte
for Y := 0 to (Bitmap.Height - 1) do
begin
p := Bitmap.ScanLine[Y];
for X := 0 to (Bitmap.width - 1) DIV 8 + 1 do
begin
p^:=1 or 2 or 4 or 8 or 16 or 32 or 64 or 128;
Inc(PRGB,3);
end;
end;
p^:=1 or 2 or 4 or 8 or 16 or 32 or 64 or 128;
这行代码什么意思呢?1=1(二进制),2=10(二进制),4=100(二进制),8=1000(二进制)...
结合上篇中解释了的或运算,很容易理解就以八个字位为单位,给其赋上颜色信息!
pf4bit:
和pf1bit位图一样,操作pf4bit位图也需要用位操作。
pf8bit:
可直接利用Byte、TByteArray,但用Scanline取的值表示的只是调色板上颜色的索引。
pf15bit和pf16bit:
这两种位图都是16位的,pf15bit是第一位为0,后15位的每5位分别表示红、绿、蓝。而pf16bit中绿色占6位,其它两种颜色占用5位(人眼对绿色比较敏感)!
pf24bit位图转pf15bit位图代码
var
Row24:pRGBTriple;
Row15:PWord;
for j := 0 TO Bitmap.Height-1 DO
begin
Row15 := Bitmap15.Scanline[j];
Row24 := Bitmap24.Scanline[j];
for i := 0 TO Bitmap.Width-1 DO
begin
with Row24^ do
Row15^ := (rgbtRed Shr 3) Shl 10 or (rgbtGreen Shr 3) Shl 5 or (rgbtBlue Shr 3);
Inc(Row24);
Inc(Row15);
end
end;
pf24bit和pf32bit:
pf24bit上面的已多次用到,就不多说了。而pf32bit和pf24bit一样,用24位来记录三原色的颜色信息!
PRGBQuad = ^TRGBQuad;
tagRGBQUAD = packed record
rgbBlue: Byte;
rgbGreen: Byte;
rgbRed: Byte;
rgbReserved: Byte;
end;
TRGBQuad = tagRGBQUAD;
如果要修改上面的程序,就是简单的PRGBQuad替换PRGBTriple,TRGBQuad替换TRGBTriple的过程~
测试表明在pf32bit中利用Scanline处理图像要比pf24bit快。
所以除了单色图(PixelFormats=pf1bit)外(没必要),其它都可转外32位色实现灰度化。这也是一种比较可行的方法!
更多精彩
赞助商链接