易语言实现位图的怀旧 (褐色、复古、老照片) 滤镜 (返回位图)

CNWTEPRG

输入图片:

滤镜效果:

1. .版本 2
   
2. .支持库 BmpOperate
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 位图, 位图
    
14. 
    
15. .如果真 (位图.载入文件 (“in.bmp”) ＝ 假)
    
16.     信息框 (位图.取错误信息 (), 0, , )
    
17.     结束 ()
    
18. .如果真结束
    
19. 写到文件 (“out.bmp”, 位图_怀旧滤镜 (位图).取位图数据 ())
    
20. 
    
21. .子程序 位图_怀旧滤镜, 位图
    
22. .参数 位图, 位图
    
23. .局部变量 宽, 整数型
    
24. .局部变量 高, 整数型
    
25. .局部变量 X, 整数型
    
26. .局部变量 Y, 整数型
    
27. .局部变量 返回值, 位图
    
28. 
    
29. 宽 ＝ 位图.取宽度 ()
    
30. 高 ＝ 位图.取高度 ()
    
31. 返回值.创建 (宽, 高, 位图.取位深度 (), #绿色)
    
32. .变量循环首 (0, 宽 － 1, 1, X)
    
33.     .变量循环首 (0, 高 － 1, 1, Y)
    
34.         返回值.置某点颜色 (X, Y, 颜色_怀旧滤镜 (位图.取某点颜色 (X, Y)))
    
35.     .变量循环尾 ()
    
36. .变量循环尾 ()
    
37. 返回 (返回值)
    
38. 
    
39. 
    
40. .子程序 颜色_怀旧滤镜, 整数型
    
41. .参数 颜色, 整数型
    
42. .局部变量 R, 字节型
    
43. .局部变量 G, 字节型
    
44. .局部变量 B, 字节型
    
45. .局部变量 RR, 双精度小数型
    
46. .局部变量 GG, 双精度小数型
    
47. .局部变量 BB, 双精度小数型
    
48. 
    
49. R ＝ 取红色值 (颜色)
    
50. G ＝ 取绿色值 (颜色)
    
51. B ＝ 取蓝色值 (颜色)
    
52. RR ＝ 0.393 × R ＋ 0.769 × G ＋ 0.189 × B
    
53. GG ＝ 0.349 × R ＋ 0.686 × G ＋ 0.168 × B
    
54. BB ＝ 0.272 × R ＋ 0.534 × G ＋ 0.131 × B
    
55. RR ＝ 双精度小数型_限制大小 (RR, 0, 255)
    
56. GG ＝ 双精度小数型_限制大小 (GG, 0, 255)
    
57. BB ＝ 双精度小数型_限制大小 (BB, 0, 255)
    
58. 返回 (取颜色值 (RR, GG, BB))
    
59. 
    
60. 
    
61. .子程序 取红色值, 字节型
    
62. .参数 颜色值, 整数型
    
63. 
    
64. 置入代码 ({ 139, 69, 8, 37, 255, 0, 0, 0, 201, 194, 4, 0 })
    
65. ' mov eax,[ebp+8]
    
66. ' and eax,255
    
67. ' leave
    
68. ' retn 4
    
69. 返回 (0)
    
70. 
    
71. .子程序 取绿色值, 字节型
    
72. .参数 颜色值, 整数型
    
73. 
    
74. 置入代码 ({ 139, 69, 8, 193, 232, 8, 37, 255, 0, 0, 0, 201, 194, 4, 0 })
    
75. ' mov eax,[ebp+8]
    
76. ' shr eax,8
    
77. ' and eax,255
    
78. ' leave
    
79. ' retn 4
    
80. 返回 (0)
    
81. 
    
82. .子程序 取蓝色值, 字节型
    
83. .参数 颜色值, 整数型
    
84. 
    
85. 置入代码 ({ 139, 69, 8, 193, 232, 16, 37, 255, 0, 0, 0, 201, 194, 4, 0 })
    
86. ' mov eax,[ebp+8]
    
87. ' shr eax,16
    
88. ' and eax,255
    
89. ' leave
    
90. ' retn 4
    
91. 返回 (0)
    
92. 
    
93. .子程序 双精度小数型_限制大小, 双精度小数型
    
94. .参数 值, 双精度小数型
    
95. .参数 最小值, 双精度小数型, , 值小于最小值，返回最小值
    
96. .参数 最大值, 双精度小数型, , 值大于最大值，返回最大值
    
97. 
    
98. 返回 (选择 (值 ＜ 最小值, 最小值, 选择 (值 ＞ 最大值, 最大值, 值)))
    
99. 
    

复制代码