jpg图像处理浮雕等算法

Moneky

dongdonggege 发表于 2017-2-8 18:02
大侠，你好！再次麻烦你，我这有bmp文件的灯光、浮雕、魔术、木刻、油画的文件。
我想请你，用7楼的文件 ...

不知道有什么意义

dongdonggege

Moneky 发表于 2017-2-8 18:23
不知道有什么意义

我想，象photoshop那样，对图像进行处理，增加vba的用途。在需要的时候，调用那些特殊效果的图像，相当于特效的那种。不知道能否做的出来？

dongdonggege

Moneky 发表于 2017-2-8 18:23
不知道有什么意义

大师，你好！油画，我做出来了，好像，又不太象。

木刻，下标越界，不知道错在哪里，麻烦你帮我改下。
如果油画有错误，也请改正。谢谢了。

dongdonggege

Moneky 发表于 2017-2-8 18:23
不知道有什么意义

木刻的算法，我改正如下：

1. Case 木刻
   
2.     For ix = 1 To iWidth - 1
   
3.         For iy = 1 To iHeight - 1
   
4.             bits(0, ix, iy) = (bits(0, ix, iy) Mod 256)
   
5.             bits(1, ix, iy) = (((bits(1, ix, iy) And &HFF00) / 256&) Mod 256&)
   
6.             bits(2, ix, iy) = ((bits(2, ix, iy) And &HFF0000) / 65536)
   
7.             If (bits(0, ix, iy) + bits(1, ix, iy) + bits(2, ix, iy)) / 3 < 25 Then
   
8.                 bits(0, ix, iy) = 0
   
9.                 bits(1, ix, iy) = 0
   
10.                 bits(2, ix, iy) = 0
    
11.             Else
    
12.                 bits(0, ix, iy) = 255
    
13.                 bits(1, ix, iy) = 255
    
14.                 bits(2, ix, iy) = 255
    
15.             End If
    
16.         Next
    
17.     Next

复制代码

dongdonggege

请看图黑白图与木刻图的区别

Moneky

添加了一些滤镜效果。

dongdonggege

Moneky 发表于 2017-2-9 12:13
添加了一些滤镜效果。

太感谢大师了，大师辛苦了，让大师忙到现在，大师的精神值得我学习。

Moneky

dongdonggege 发表于 2017-2-9 12:26
太感谢大师了，大师辛苦了，让大师忙到现在，大师的精神值得我学习。

别戴高帽，帽子会掉。

Moneky

添加了发光效果（探照灯）

dongdonggege

Moneky 发表于 2017-2-9 12:13
添加了一些滤镜效果。

最后一个灯光效果，我看了，确实不错，感谢大师为vba的图像特效所做的贡献。
图像效果里还有亮度、透明度、对比度。旋转，垂直翻转，水平翻转，添加文字等效果，我的qq里有很多，都是我2015年收集、整理vb翻译成vba的。
明天开学，等我稍闲的时候，传上来，请大师修改。
再次感谢。