VB图像处理之二次线性插值的应用

文章作者 100test 发表时间 2007:03:10 18:18:37
来源 100Test.Com百考试题网

上次讲到了用DIB方法来获取图像的像素。从这次开始将如果运用已经得到的像素来处理图像。

　　 图像插值放大的方法有很多，最主要的有二次线性插值和三次线性插值这两种。这次我把自己的程序中所用的二次线性插值的算法公布给大家，希望对各位要使用VB写类似程序的朋友有所帮助。

　　 程序中用到的API、数据类型、全局变量的定义请参考上一篇：《 VB实现图像在数据库的存储与显示 》

Public Sub ZoomImage(ByVal OutPutWidth As Long, ByVal OutputHeight As Long)
　 Dim I As Long
　 Dim L As Long
　 Dim X As Long
　 Dim Y As Long
　 Dim Xb As Long
　 Dim Yb As Long
　 Dim Xe As Long
　 Dim Ye As Long
　 Dim M As Integer
　 Dim N As Integer
　 Dim CurR As Long
　 Dim CurG As Long
　 Dim CurB As Long
　 Dim NxtR As Integer
　 Dim NxtG As Integer
　 Dim NxtB As Integer
　 Dim DR As Single
　 Dim DG As Single
　 Dim DB As Single
　 Dim DRt As Single
　 Dim DGt As Single
　 Dim DBt As Single
　 Dim Xratio As Single
　 Dim Yratio As Single
　 Dim CurStep As Single
　 Dim NxtStep As Single
　 Dim NegN As Single