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 |
