分享
 
 
 

VB图像处理,(六)图像的亮度对比度调整

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

在图像处理中,恐怕大家最熟悉的就是对于图像的亮度和对比度调整了。

前面一定也有很多人写过这样的文章了,但是想把我的这个系列作一个完整的小结,我就再罗嗦一番了。

还是以24位色图像为例子,每种色彩都可以用0-255,一共256种深度来表示。

如果我们把它画在一个二维坐标上,正好是一条直线。

比如我们将像素的色深作为横坐标,输出色深作为纵坐标的画,正好是一条经过原点(0,0)的45度斜线。

如图中直线A所表示的,角T为45度,表示它的对比度正好为1。

那么很容易就可以写出它的直线方程:Out = In * 1 ,系数1就是对比度的概念

如果把条直线加上一个偏移量变成B,那么它的直线方程就成为:Out = In * 1 + (ab)

偏移量(ab)就是亮度的增量。

只要有初中的代数知识就很容易看出它满足一条直线方程:Y= A * X + B

但是,我们这里要处理的情况稍微有些不同,在图像处理中,对比度和亮度要分别对待。

不能因为改变而改变亮度,因为我们习惯上把灰色(127,127)这一点作为中心点。

比如,我们加大了对比度,原来的直线A就变成如直线D所表示的,在改变了对比度的同时,也增加了亮度(ab),而我们心目中的变化应该是入直线C那样。也就是说,我们把(127,127)这一点映射成了坐标系的原点。

那么我们就要把原来的直线公式修改成:Y=( X - 127 ) * A + B。A表示对比度,B表示亮度增量。

我们验证一下:只要亮度增量 B=0,无论怎么改变对比度 A,该直线始终通过中心点(127,127),也就是说改变对比度的同时,亮度没有改变。

由此,我们就可以推导出颜色的对比度亮度计算公式了:

NewRed = (OldRed -127 ) * A + 127+ B

NewGreen = (OldGreen -127 ) * A + 127+B

NewBlue = (OldBlue -127 ) * A + 127+B

现在你是否已经准备着手用这个公式来写出你自己的亮度对比度子程序了呢?

慢着,再多做一步吧。我们是在遍程序,不是在做初中代数考试。这多出来的一步将使你的程序的执行效率更高一些。

我们把上面的公式再推导一下:

Y=( X - 127 ) * A + B => Y = X * A - 127 * A + 127+B (1)

令:B = B -127 * A +127 (2)

由上面(1),(2)两步,得到一个新的公式:Y = X * A + B

咦?怎么又变回来了??

是的公式的形式确实是变回来了,不过B所代表的东西已经不同了。

或许你又会说我这是多此一举,请聪明的读者想像一下:在一个普通的图片做亮度对比度运算的时候,我们上面这些小小的变化将带来什么样的效率提升。假设一张图片大小是1027*768

一共有786432个像素,而每个像素又要分别计算红绿蓝三种颜色。

那么,上述这个公式就需要计算786432 * 3 = 2359296 次,经过这么多次运算的放大,哪怕是小小的一个重复计算都将浪费很长的时间。

因为在调用子程序的时候亮度和对比度都已经确定,那么B = B -127 * A +127这一步就可以放在循环的外面先作好。从而减少了程序的运算时间。

下面给出我的程序,以供参考:

Public Sub BrightnessAndContrast(ByVal RedOffset As Long, ByVal GreenOffset As Long, ByVal BlueOffset As Long, Optional ByVal RedContrast As Single = 1, Optional ByVal GreenContrast As Single = 1, Optional ByVal BlueContrast As Single = 1)

Dim X As Long

Dim Y As Long

Dim MidR As Integer

Dim MidG As Integer

Dim MidB As Integer

Dim Max As Long

On Error GoTo ErrLine

Done = False

TimeFilter = timeGetTime

MidR = RedOffset - 127 * (RedContrast - 1)

MidG = GreenOffset - 127 * (GreenContrast - 1)

MidB = BlueOffset - 127 * (BlueContrast - 1)

Max = 255 '* ValueRatio

For X = 0 To OutPutWid

For Y = 0 To OutPutHei

R = ColOut(2, X, Y)

G = ColOut(1, X, Y)

B = ColOut(0, X, Y)

R = R * RedContrast + MidR

G = G * GreenContrast + MidG

B = B * BlueContrast + MidB

If R > Max Then R = Max

If R < 0 Then R = 0

If G > Max Then G = Max

If G < 0 Then G = 0

If B > Max Then B = Max

If B < 0 Then B = 0

ColOut(2, X, Y) = R

ColOut(1, X, Y) = G

ColOut(0, X, Y) = B

Next

Next

Done = True

TimeFilter = timeGetTime - TimeFilter

Exit Sub

ErrLine:

MsgBox Err.Description

Done = True

End Sub

因为在亮度对比度的过程中会出现计算值超出(0,255)的范围,因此需要对它做一个判断,把结果限定在这个范围之内。

这个程序很简单,可以根据给定的红绿蓝的亮度偏移量和对比度参数计算。由于把三种颜色的6个参数分开,也可以只调整单独的一种颜色。

还有一个好处,就是当你将对比度参数设为负值的时候,可以直接得到原图片的反色输出。(这也是将前面的坐标系原点移动到127这一点的一个好处。)

下面是用我的程序处理得到的效果:

原图:

亮度+20,对比度1.5效果:

对比度 -1,反相色彩效果:

作为这个系列的最后一篇文章,我在我的程序ImageCast中所用到的所效果的算法和主要代码都已经贴出来了。也算是对自己对大家的一个小小交待吧。

如果有兴趣的朋友可以下载我的程序试试。

下载地址:http://club.5ivb.net/dispbbs.asp?boardID=1&ID=40069

程序界面:

如果读者对这个过程中的一些数组和变量不清楚,请参考我前面的几篇文章,其中有详细说明:

VB图像处理,(一)像素的获取和输出

VB图像处理,(二)二次线性插值的应用

VB图像处理,(三)几个常用滤镜的实现1

VB图像处理,(四)几个常用滤镜的实现2

VB图像处理,(五)图像的色彩纠正

(这里只是说了我自己在写程序的时候用到的方法,存在很多的不足。并且因为在贴上来的时候作了部分修改,可能会存在部分错误,请各位高手不吝赐教,将您用到的更好的方法提供一下,我将不胜感激。)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有