易语言实现位图的反色/负片/底片/底色滤镜 (返回位图)

CNWTEPRG

输入图片:

滤镜效果:

1. .版本 2
   
2. .支持库 BmpOperate
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 位图, 位图
    
14. 
    
15. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
16. .如果真 (位图.载入文件 (“in.bmp”) ＝ 假)
    
17.     信息框 (位图.取错误信息 (), 0, , )
    
18.     结束 ()
    
19. .如果真结束
    
20. 写到文件 (“out.bmp”, 位图_反色 (位图).取位图数据 ())
    
21. 
    
22. 
    
23. .子程序 位图_反色, 位图, 公开
    
24. .参数 位图, 位图
    
25. .局部变量 宽, 整数型
    
26. .局部变量 高, 整数型
    
27. .局部变量 X, 整数型
    
28. .局部变量 Y, 整数型
    
29. .局部变量 返回值, 位图
    
30. 
    
31. 宽 ＝ 位图.取宽度 ()
    
32. 高 ＝ 位图.取高度 ()
    
33. 返回值.创建 (宽, 高, 位图.取位深度 (), )
    
34. .变量循环首 (0, 宽 － 1, 1, X)
    
35.     .变量循环首 (0, 高 － 1, 1, Y)
    
36.         返回值.置某点颜色 (X, Y, 位异或 (位图.取某点颜色 (X, Y), 16777215))
    
37.     .变量循环尾 ()
    
38. .变量循环尾 ()
    
39. 返回 (返回值)
    

复制代码