易语言实现删除、裁剪、切除位图四周所有空白颜色的部分 (返回位图)

CNWTEPRG

输入(四周有不规则的黑色空白部分):

输出(四周黑色的空白会被删除):

1. .版本 2
   
2. .支持库 BmpOperate
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 位图, 位图
    
14. .局部变量 失败, 逻辑型
    
15. 
    
16. 位图.载入文件 (“in.bmp”)
    
17. 写到文件 (“out.bmp”, 位图_删四周空 (位图, #黑色, 失败).取位图数据 ())
    
18. 输出调试文本 (失败)
    
19. 
    
20. 
    
21. .子程序 位图_删四周空, 位图, 公开, 删除位图四周所有空白(指定颜色)的部分
    
22. .参数 位图, 位图
    
23. .参数 背景色, 整数型, 可空, 留空默认白色
    
24. .参数 失败, 逻辑型, 参考 可空, 失败传出真，成功传出假
    
25. .局部变量 宽, 整数型
    
26. .局部变量 高, 整数型
    
27. .局部变量 上, 整数型
    
28. .局部变量 下, 整数型
    
29. .局部变量 左, 整数型
    
30. .局部变量 右, 整数型
    
31. .局部变量 X, 整数型
    
32. .局部变量 Y, 整数型
    
33. .局部变量 返回值, 位图
    
34. 
    
35. 失败 ＝ 假
    
36. .如果真 (是否为空 (背景色))
    
37.     背景色 ＝ #白色
    
38. .如果真结束
    
39. 宽 ＝ 位图.取宽度 ()
    
40. 高 ＝ 位图.取高度 ()
    
41. 上 ＝ 高 － 1
    
42. 下 ＝ 0
    
43. 左 ＝ 宽 － 1
    
44. 右 ＝ 0
    
45. .变量循环首 (0, 宽 － 1, 1, X)
    
46.     .变量循环首 (0, 高 － 1, 1, Y)
    
47.         .如果真 (位图.取某点颜色 (X, Y) ≠ 背景色)
    
48.             上 ＝ 整数型_取最小值 (上, Y)
    
49.             下 ＝ 整数型_取最大值 (下, Y)
    
50.             左 ＝ 整数型_取最小值 (左, X)
    
51.             右 ＝ 整数型_取最大值 (右, X)
    
52.         .如果真结束
    
53. 
    
54.     .变量循环尾 ()
    
55. .变量循环尾 ()
    
56. 宽 ＝ 右 － 左 ＋ 1
    
57. 高 ＝ 下 － 上 ＋ 1
    
58. .判断开始 (宽 ≤ 0 或 高 ≤ 0)
    
59.     失败 ＝ 真
    
60.     返回 (返回值)
    
61. .判断 (返回值.创建 (宽, 高, 位图.取位深度 (), 背景色) ＝ 假)
    
62.     失败 ＝ 真
    
63.     返回 (返回值)
    
64. .判断 (位图.复制到 (左, 上, 宽, 高, 返回值, 0, 0, ) ＝ 假)
    
65.     失败 ＝ 真
    
66.     返回 (返回值)
    
67. .默认
    
68. 
    
69. .判断结束
    
70. 返回 (返回值)
    
71. 
    
72. .子程序 整数型_取最小值, 整数型, , A、B谁小返回谁
    
73. .参数 A, 整数型
    
74. .参数 B, 整数型
    
75. 
    
76. 返回 (选择 (A ＜ B, A, B))
    
77. 
    
78. 
    
79. .子程序 整数型_取最大值, 整数型, , A、B谁大返回谁
    
80. .参数 A, 整数型
    
81. .参数 B, 整数型
    
82. 
    
83. 返回 (选择 (A ＞ B, A, B))
    

复制代码