'OffsetY       主体图叠加到目标图时的 Y 偏移

Dim i&, X&, Y&, L&, Color&, EnhanceValue&Dim R As Byte, G As Byte, B As Byte

With picSource

    For i = 0 To .Width + .Height * Tan(Angle * pi / 180) + WidthOfArea _    Step Speed    '扫描主体图        For X = 0 To .Width - 1            For Y = 0 To .Height - 1                Color = GetPixel(.hdc, X, Y)                '遍历主体图的像素                                If Color = MaskColor Then                    'skip跳过                Else                    L = Abs(X - (i - Y * Tan(Angle * pi / 180)))                    '计算当前像素于扫描线的 X 方向距离                                        If L <= WidthOfArea Then '如果当前像素在光照范围内                                                R = ExtractR(Color) '取 R,G,B 值                        G = ExtractG(Color)                        B = ExtractB(Color)                                                EnhanceValue = EnhanceRatio * (WidthOfArea - L)                        '算出要增强的亮度值                       

本文章共3页,当前在第2页  1  2  3