在這一篇中我將和大家講述鉛筆畫算法和木雕算法和它們的實現。
為什麼我要把這兩個算法放在一起說呢，因為這兩個算法是非常相似的。
首先要說一下人的眼睛對於圖像的觀察，人的眼睛對於灰度（亮度）的敏感
要遠遠大於對色彩的敏感，而人的眼睛對於暖色調和冷色調的敏感有要遠大於
對一般色彩的敏感度。
經過大量的測試，人們得到了一個經驗公式，來說明人的眼睛是如何識別亮度的：
Gray = Red * 0.3 + Green * 0.6 + Blue * 0.1
而右因為人的眼睛對於綠色的敏感度最大，就有了一個更加近似的公式：
Gray = Green
請大家再回想一下以前在用鉛筆畫眼睛看到的景色的時候，是如何做的呢？
輪廓，對了，輪廓是什麼呢？其實說白了就是灰度的一個跳變。
因此我們只要設定一個閥值，把電腦上的圖片中的像素的色彩轉化為灰度，再把
相鄰的兩個像素的灰度去比較，當灰度變化超過一定的量的時候，我們就判斷它是輪廓。
用鉛筆把它描繪出來。
有了這個思路，我們就很容易把這個算法寫出來了。
Public Sub Pencil(Optional ByVal Sensitivity As Long = 25)
Dim I As Long
Dim L As Long
Dim M As Long
Dim N As Long
Dim Col As Long
Dim ColNext As Long
'On Error GoTo ErrLine
If Not CanPut Then Exit Sub
Done = False
TimeFilter = timeGetTime
For I = 0 To OutPutWid - 1
M = I + 1
For L = 0 To OutPutHei - 1
N = L + 1
Col = ColOut(0, I, L) * 3 + ColOut(1, I, L) * 6 + ColOut(2, I, L)
Col = Col \ 10 '當前點的灰度哦。
ColNext = ColOut(0, M, N) * 3 + ColOut(1, M, N) * 6 + ColOut(2, M, N)
ColNext = -ColNext / 10 '下一點的灰度哦。
If Col + ColNext > Sensitivity Then '判斷灰度變化是否超過設定的閥值
ColOut(0, I, L) = 0 'RGB(0,0,0)表示黑色
ColOut(1, I, L) = 0
ColOut(2, I, L) = 0
Else
ColOut(0, I, L) = 255 'RGB(255,255,255)表示白色
ColOut(1, I, L) = 255
ColOut(2, I, L) = 255
End If
Next
Next
Done = True
TimeFilter = timeGetTime - TimeFilter
Exit Sub
ErrLine:
MsgBox Err.Description
End Sub
這裡用到的所有全局變量都已經在前幾章中用到，就不再重複說明了。
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line