易语言实现将位图、图像、图片、照片裁切、裁剪、切割成任意宫格 (返回逻辑型)

CNWTEPRG

输入图片:

裁切结果:

1. .版本 2
   
2. .支持库 BmpOperate
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 位图, 位图
    
14. .局部变量 输出, 位图, , "0"
    
15. .局部变量 计数, 整数型
    
16. 
    
17. .如果真 (位图.载入文件 (“in.bmp”) ＝ 假)
    
18.     信息框 (“文件 in.bmp 无法载入，请确定文件是否存在，格式是否正确。”, 0, , )
    
19.     结束 ()
    
20. .如果真结束
    
21. 检查 (位图_任意宫格切割 (位图, 3, 3, 输出))
    
22. .计次循环首 (取数组成员数 (输出), 计数)
    
23.     写到文件 (到文本 (计数) ＋ “.bmp”, 输出 [计数].取位图数据 ())
    
24. .计次循环尾 ()
    
25. 
    
26. .子程序 位图_任意宫格切割, 逻辑型, 公开
    
27. .参数 欲切割位图, 位图
    
28. .参数 水平宫格, 整数型, , 图像的宽度必须能与该值整除
    
29. .参数 垂直宫格, 整数型, , 图像的高度必须能与该值整除
    
30. .参数 输出, 位图, 数组, 切割后的位图通过此数组传出
    
31. .局部变量 宽度, 整数型
    
32. .局部变量 高度, 整数型
    
33. .局部变量 水平切, 位图, , "0"
    
34. .局部变量 垂直切, 位图, , "0"
    
35. .局部变量 垂直索引, 整数型
    
36. .局部变量 水平索引, 整数型
    
37. 
    
38. 宽度 ＝ 欲切割位图.取宽度 ()
    
39. 高度 ＝ 欲切割位图.取高度 ()
    
40. 清除数组 (输出)
    
41. .如果真 (水平宫格 ＝ 0 或 垂直宫格 ＝ 0 或 宽度 ％ 水平宫格 ≠ 0 或 高度 ％ 垂直宫格 ≠ 0)
    
42.     返回 (假)
    
43. .如果真结束
    
44. .如果真 (位图_竖切横刀 (欲切割位图, 垂直宫格, 水平切) ＝ 假)
    
45.     返回 (假)
    
46. .如果真结束
    
47. .计次循环首 (垂直宫格, 垂直索引)
    
48.     .如果真 (位图_横切竖刀 (水平切 [垂直索引], 水平宫格, 垂直切) ＝ 假)
    
49.         返回 (假)
    
50.     .如果真结束
    
51.     .计次循环首 (水平宫格, 水平索引)
    
52.         加入成员 (输出, 垂直切 [水平索引])
    
53.     .计次循环尾 ()
    
54. .计次循环尾 ()
    
55. 返回 (真)
    
56. 
    
57. .子程序 位图_横切竖刀, 逻辑型
    
58. .参数 位图, 位图
    
59. .参数 数量, 整数型, , 图像的宽度必须能与该值整除
    
60. .参数 输出, 位图, 参考 数组
    
61. .局部变量 高度, 整数型
    
62. .局部变量 宽度, 整数型
    
63. .局部变量 子宽, 整数型
    
64. .局部变量 位深度, 整数型
    
65. .局部变量 计数, 整数型
    
66. .局部变量 X, 整数型
    
67. .局部变量 Y, 整数型
    
68. 
    
69. 宽度 ＝ 位图.取宽度 ()
    
70. 高度 ＝ 位图.取高度 ()
    
71. 位深度 ＝ 位图.取位深度 ()
    
72. .如果真 (数量 ＝ 0 或 宽度 ％ 数量 ≠ 0)
    
73.     返回 (假)
    
74. .如果真结束
    
75. 子宽 ＝ 宽度 ÷ 数量
    
76. 重定义数组 (输出, 假, 数量)
    
77. .计次循环首 (数量, 计数)
    
78.     .如果真 (输出 [计数].创建 (子宽, 高度, 位深度, #白色) ＝ 假)
    
79.         返回 (假)
    
80.     .如果真结束
    
81.     .变量循环首 (0, 子宽 － 1, 1, X)
    
82.         .变量循环首 (0, 高度 － 1, 1, Y)
    
83.             .如果真 (输出 [计数].置某点颜色 (X, Y, 位图.取某点颜色 (X ＋ 子宽 × (计数 － 1), Y)) ＝ 假)
    
84.                 返回 (假)
    
85.             .如果真结束
    
86. 
    
87.         .变量循环尾 ()
    
88.     .变量循环尾 ()
    
89. .计次循环尾 ()
    
90. 返回 (真)
    
91. 
    
92. 
    
93. .子程序 位图_竖切横刀, 逻辑型
    
94. .参数 位图, 位图
    
95. .参数 数量, 整数型, , 图像的宽度必须能与该值整除
    
96. .参数 输出, 位图, 参考 数组
    
97. .局部变量 宽度, 整数型
    
98. .局部变量 高度, 整数型
    
99. .局部变量 子高, 整数型
    
100. .局部变量 位深度, 整数型
     
101. .局部变量 计数, 整数型
     
102. .局部变量 X, 整数型
     
103. .局部变量 Y, 整数型
     
104. 
     
105. 宽度 ＝ 位图.取宽度 ()
     
106. 高度 ＝ 位图.取高度 ()
     
107. 位深度 ＝ 位图.取位深度 ()
     
108. .如果真 (高度 ％ 数量 ≠ 0)
     
109.     返回 (假)
     
110. .如果真结束
     
111. 子高 ＝ 高度 ÷ 数量
     
112. 重定义数组 (输出, 假, 数量)
     
113. .计次循环首 (数量, 计数)
     
114.     .如果真 (输出 [计数].创建 (宽度, 子高, 位深度, #白色) ＝ 假)
     
115.         返回 (假)
     
116.     .如果真结束
     
117.     .变量循环首 (0, 宽度 － 1, 1, X)
     
118.         .变量循环首 (0, 子高 － 1, 1, Y)
     
119.             .如果真 (输出 [计数].置某点颜色 (X, Y, 位图.取某点颜色 (X, Y ＋ 子高 × (计数 － 1))) ＝ 假)
     
120.                 返回 (假)
     
121.             .如果真结束
     
122. 
     
123.         .变量循环尾 ()
     
124.     .变量循环尾 ()
     
125. .计次循环尾 ()
     
126. 返回 (真)
     

复制代码