由图像的灰度化看基本图像处理(2)

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

[颜色篇]

在上一篇中提到了,那灰度化代码只能适用于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位色实现灰度化。这也是一种比较可行的方法!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航