手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>delphi>列表

图像的处理(一)----灰度图像像素颜色亮度处理

来源:互联网 作者:西部数码 时间:2008-04-11
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

选取一个值a做为起始值,选取一个值b做为终止值,然后按以下公式变形:

| 0 (X<=a)

f(X)= | 255/(b-a)*(X-a)

| 255(X>=b)

var I:Integer;

begin

for I:=0 to 255 do

begin

if I<=sbMin.Position then

BarData[I]:=0

else if I>=sbMax.Position then

BarData[I]:=255

else

BarData[I]:=Round(255/(sbMax.Position-sbMin.Position)*(I-sbMin.Position));

end;

DrawBar;

pbBarPaint(pbBar);

Button1Click(Button1);

end;

四、变为黑白图片

在使用第三个功能的时候,你会发现当b<=a时,图像上的颜色除了黑色就是白色。这样操作的好处是不能直接显示出来的。这只要到了比较高级的图像处理如边缘检测等,才有作用。本例可以拿第三种方法的公式再变形,因此不作详细阐述。

五、指数级亮度调整

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!