vb图像掩膜

灵之轨迹

嘿嘿，最近看了一本叫《机器人导学》的书，这个程序的几个滤镜就来自其中对视觉处理的部分。
大家要是还有一些什么滤镜，都一起发上来吧！
我写的这个函数是可以支持多种滤镜的，就是 n x m 这样的区域掩膜。

因为使用SetPixel函数，速度有点慢，不过效果不错，但是觉得算法的效率不是太高，希望大家帮忙改进一下，谢谢大家了。

图片：

下面有源码下载。

主要代码：

1. Public Function PicFilter(ByVal hwnd1 As Long, ByVal hwnd2 As Long, ByRef filters() As Long, fx As Long, fy As Long, _
   
2.                     ByVal xW As Long, ByVal yH As Long)
   
3. 'On Error Resume Next
   
4. Dim scr() As Long
   
5. ReDim scr(2, xW, yH)
   
6. Dim Afilters As Long, fxmid As Long, fymid As Long
   
7. 
   
8. Dim i As Long, j As Long, k As Long, l As Long, m As Long
   
9. Dim hdcP1 As Long, hdcP2 As Long
   
10. hdcP1 = GetWindowDC(hwnd1)
    
11. hdcP2 = GetWindowDC(hwnd2)
    
12. 
    
13. For i = 0 To (fx * fy - 1)
    
14. Afilters = Afilters + filters(i)
    
15. Next
    
16. If Afilters = 0 Then Afilters = 1
    
17. For i = 0 To xW
    
18.    For j = 0 To yH
    
19.       Dim s As Long
    
20.       s = GetPixel(hdcP1, i, j)
    
21.       scr(0, i, j) = s Mod 256
    
22.          s = s \ 256
    
23.       scr(1, i, j) = s Mod 256
    
24.          s = s \ 256
    
25.       scr(2, i, j) = s Mod 256
    
26.       'DoEvents
    
27.    Next
    
28. Next
    
29. fxmid = Int(fx / 2)
    
30. fymid = Int(fy / 2)
    
31. For i = 0 To xW
    
32.    For j = 0 To yH
    
33.    Dim t(2) As Long
    
34.    On Error Resume Next
    
35.    
    
36.    For k = 0 To 2
    
37.    t(k) = 0  '恢复
    
38.        Dim n As Long
    
39.        n = 0
    
40.        For m = 0 To fy - 1
    
41.           For l = 0 To fx - 1
    
42.              t(k) = t(k) + scr(k, i + l - fxmid, j + m - fymid) * filters(n)
    
43.              'Debug.Print "( " & l - fxmid & "," & m - fymid & ") " & filters(n)
    
44.              n = n + 1
    
45.           Next l
    
46.        Next m
    
47.        t(k) = t(k) / Afilters
    
48.        If t(k) < 0 Then t(k) = 0
    
49.        If t(k) > 255 Then t(k) = 255
    
50.       
    
51.        DoEvents
    
52.    Next
    
53.    
    
54.    Call SetPixel(hdcP2, i, j, RGB(t(0), t(1), t(2)))
    
55.    Next
    
56. Next
    
57. '------------------------释放-------------------
    
58. ReleaseDC hwnd1, hdcP1
    
59. ReleaseDC hwnd2, hdcP2
    
60. 
    
61. End Function

复制代码

acme_pjz

你那不叫掩膜，那叫边缘检测……

灵之轨迹

那只是一种……
前几个才是，不过边缘检测也是靠掩膜来实现的啊

acme_pjz

我是说“掩膜”这个词听起来很不专业……你可以找一本计算机图像处理/计算机图形学/机器视觉的书来看一看……

zhyvip

xuexi,,,,,,

jilinj

很黄，很强大

woshihscyh

good!

yyhust

:)，多谢。学习