易语言实现位图颜色排序的方法

QAQ

1. .版本 2
   
2. .支持库 BmpOperate
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. .程序集变量 位图, 位图
   
6. .程序集变量 颜色表, 整数型, , "0"
   
7. 
   
8. .子程序 __启动窗口_创建完毕
   
9. .局部变量 X, 整数型
   
10. .局部变量 Y, 整数型
    
11. .局部变量 Z, 整数型
    
12. .局部变量 分辨率, 整数型
    
13. 
    
14. 置随机数种子 ()
    
15. 位图.载入文件 (“位图.bmp”)
    
16. 分辨率 ＝ 位图.取宽度 () × 位图.取高度 ()
    
17. 重定义数组 (颜色表, 假, 分辨率)
    
18. .变量循环首 (0, 位图.取宽度 () － 1, 1, X)
    
19.     .变量循环首 (0, 位图.取高度 () － 1, 1, Y)
    
20.         Z ＝ Z ＋ 1
    
21.         颜色表 [Z] ＝ 位图.取某点颜色 (X, Y)
    
22.     .变量循环尾 ()
    
23. .变量循环尾 ()
    
24. Z ＝ 0
    
25. 数组排序 (颜色表, 假)
    
26. .' 计次循环首 (分辨率, Z)
    
27.     ' 交换变量 (颜色表 [取正负随机整数 (1, 分辨率)], 颜色表 [取正负随机整数 (1, 分辨率)])
    
28. .' 计次循环尾 ()
    
29. ' Z ＝ 0
    
30. .变量循环首 (0, 位图.取宽度 () － 1, 1, X)
    
31.     .变量循环首 (0, 位图.取高度 () － 1, 1, Y)
    
32.         Z ＝ Z ＋ 1
    
33.         位图.置某点颜色 (X, Y, 颜色表 [Z])
    
34.     .变量循环尾 ()
    
35. .变量循环尾 ()
    
36. 写到文件 (“位图2.bmp”, 位图.取位图数据 ())
    
37. ' 暂停 ()
    
38. 结束 ()
    
39. 
    
40. .子程序 交换变量
    
41. .参数 A, 整数型, 参考
    
42. .参数 B, 整数型, 参考
    
43. .局部变量 C, 整数型
    
44. 
    
45. C ＝ A
    
46. A ＝ B
    
47. B ＝ C
    

复制代码

Cute

看看是怎么排序的了

520

颜色排序是什么梗???

侧心持花

520 发表于 2017-8-9 20:56
颜色排序是什么梗???

其实我也不清楚。

123

排序以后，图变得成了一种神秘感觉。

Kuni7wa

123 发表于 2017-8-10 18:49
排序以后，图变得成了一种神秘感觉。

我也试试。

66大顺

我也看看看看坎坎坷坷。