【易语言】图片拼接源码

叶子分享

1. .版本 2
   
2. 
   
3. .子程序 图片_拼接1, 字节集, 公开, 两张图片拼接为一张，支持上下拼接和左右拼接，图片自动居中
   
4. .参数 图片1, 字节集, , 图片文件的路径数组
   
5. .参数 图片2, 字节集
   
6. .参数 拼接方式, 逻辑型, , 上下拼接传入：真 左右拼接传入：假
   
7. .参数 合成底色, 整数型, 可空, 默认白底
   
8. .局部变量 _图片1, 字节集
   
9. .局部变量 _图片2, 字节集
   
10. .局部变量 局_总位图, 类_位图操作
    
11. .局部变量 局_单位图, 类_位图操作
    
12. .局部变量 局_宽度, 整数型
    
13. .局部变量 局_高度, 整数型
    
14. .局部变量 局_拼接结果, 字节集
    
15. .局部变量 y, 整数型
    
16. .局部变量 x, 整数型
    
17. .局部变量 局_左边, 整数型
    
18. .局部变量 局_顶边, 整数型
    
19. 
    
20. 图片_转换 (图片1, 1, , _图片1)
    
21. 图片_转换 (图片2, 1, , _图片2)
    
22. .如果真 (合成底色 ＝ 0)
    
23.     合成底色 ＝ #浅灰
    
24. .如果真结束
    
25. .如果 (拼接方式)
    
26.     ' 上下拼接取最宽宽度
    
27.     局_宽度 ＝ 图片_取宽度 (_图片1)
    
28.     .如果真 (局_宽度 ＜ 图片_取宽度 (_图片2))
    
29.         局_宽度 ＝ 图片_取宽度 (_图片2)
    
30.     .如果真结束
    
31. 
    
32.     ' 上下拼接取两张图片高度和
    
33.     局_高度 ＝ 图片_取高度 (_图片1) ＋ 图片_取高度 (_图片2)
    
34. 
    
35. 
    
36.     局_总位图.创建空白位图 (局_宽度, 局_高度, 32)
    
37. 
    
38. 
    
39.     .计次循环首 (局_宽度, x)
    
40.         .计次循环首 (局_高度, y)
    
41.             局_总位图.置某点颜色 (x － 1, y － 1, 合成底色)
    
42.         .计次循环尾 ()
    
43.     .计次循环尾 ()
    
44. 
    
45. 
    
46.     局_左边 ＝ 0
    
47.     .如果真 (图片_取宽度 (_图片1) ≠ 局_宽度)
    
48.         局_左边 ＝ 到整数 ((局_宽度 － 图片_取宽度 (_图片1)) ÷ 2)
    
49.     .如果真结束
    
50.     局_单位图.从数据创建 (_图片1)
    
51.     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片1), 图片_取高度 (_图片1), 局_左边, 0)
    
52. 
    
53.     处理事件 ()
    
54.     局_左边 ＝ 0
    
55.     .如果真 (图片_取宽度 (_图片2) ≠ 局_宽度)
    
56.         局_左边 ＝ 到整数 ((局_宽度 － 图片_取宽度 (_图片2)) ÷ 2)
    
57.     .如果真结束
    
58. 
    
59.     局_单位图.从数据创建 (_图片2)
    
60.     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片2), 图片_取高度 (_图片2), 局_左边, 图片_取高度 (_图片1))
    
61. 
    
62.     处理事件 ()
    
63. 
    
64. 
    
65. .否则
    
66. 
    
67. 
    
68.     ' 左右拼接取最高高度
    
69.     局_高度 ＝ 图片_取高度 (_图片1)
    
70.     .如果真 (局_高度 ＜ 图片_取高度 (_图片2))
    
71.         局_高度 ＝ 图片_取高度 (_图片2)
    
72.     .如果真结束
    
73. 
    
74.     ' 左右拼接取两张图片宽度和
    
75.     局_宽度 ＝ 图片_取宽度 (_图片1) ＋ 图片_取宽度 (_图片2)
    
76. 
    
77. 
    
78.     局_总位图.创建空白位图 (局_宽度, 局_高度, 32)
    
79. 
    
80. 
    
81.     .计次循环首 (局_宽度, x)
    
82.         .计次循环首 (局_高度, y)
    
83.             局_总位图.置某点颜色 (x － 1, y － 1, 合成底色)
    
84.         .计次循环尾 ()
    
85.     .计次循环尾 ()
    
86. 
    
87. 
    
88.     局_顶边 ＝ 0
    
89.     .如果真 (图片_取高度 (_图片1) ≠ 局_高度)
    
90.         局_顶边 ＝ 到整数 ((局_高度 － 图片_取高度 (_图片1)) ÷ 2)
    
91.     .如果真结束
    
92. 
    
93.     局_单位图.从数据创建 (_图片1)
    
94.     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片1), 图片_取高度 (_图片1), 0, 局_顶边)
    
95. 
    
96.     处理事件 ()
    
97.     局_顶边 ＝ 0
    
98.     .如果真 (图片_取高度 (_图片2) ≠ 局_高度)
    
99.         局_顶边 ＝ 到整数 ((局_高度 － 图片_取高度 (_图片2)) ÷ 2)
    
100.     .如果真结束
     
101. 
     
102.     局_单位图.从数据创建 (_图片2)
     
103.     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片2), 图片_取高度 (_图片2), 图片_取宽度 (_图片1), 局_顶边)
     
104. 
     
105.     处理事件 ()
     
106. 
     
107. .如果结束
     
108. 局_拼接结果 ＝ 局_总位图.取出位图数据 ()
     
109. 返回 (局_拼接结果)
     

复制代码