设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 5580|回复: 10
收起左侧

易语言用单色位图生成直接截图截不到的两张神图的方法

[复制链接]
发表于 2017-6-16 19:50:52 | 显示全部楼层 |阅读模式
  1. .版本 2
  2. .支持库 BmpOperate

  3. .程序集 程序集1
  4. .程序集变量 原位图, 位图
  5. .程序集变量 随机打点图, 位图
  6. .程序集变量 随机打点图2, 位图
  7. .程序集变量 位图宽度
  8. .程序集变量 位图高度
  9. .程序集变量 X, 整数型
  10. .程序集变量 Y, 整数型
  11. .程序集变量 颜色值, 整数型

  12. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

  13. ' 载入一个单色位图,并且生成两个像素随机颜色的图,两张图不停的快速切换即可看到内容。
  14. ' 可使用GIF制作软件生成这种图片。
  15. 置随机数种子 ()
  16. 原位图.载入文件 (“bmp.bmp”)  ' 必须是单色位图否则会出错
  17. 位图宽度 = 原位图.取宽度 ()  ' 取得位图宽度
  18. 位图高度 = 原位图.取高度 ()  ' 取得位图高度
  19. 随机打点图.创建 (位图宽度, 位图高度, 24, #白色)  ' 图1生成24位位图
  20. 随机打点图2.创建 (位图宽度, 位图高度, 24, #白色)  ' 图2生成24位位图
  21. .变量循环首 (0, 位图宽度 - 1, 1, X)  ' X坐标累加
  22.     .变量循环首 (0, 位图宽度 - 1, 1, Y)  ' Y坐标累加
  23.         颜色值 = 取颜色值 (取随机数 (, ), 取随机数 (, ), 取随机数 (, ))  ' 随机颜色
  24.         随机打点图.置某点颜色 (X, Y, 颜色值)  ' 图1置入随机颜色的像素
  25.         .如果真 (原位图.取某点颜色 (X, Y) = 0)  ' 原位图取到黑色
  26.             颜色值 = 取颜色值 (取随机数 (, ), 取随机数 (, ), 取随机数 (, ))  ' 重新生成随机颜色
  27.         .如果真结束
  28.         随机打点图2.置某点颜色 (X, Y, 颜色值)  ' 图2置入随机颜色的像素
  29.     .变量循环尾 ()
  30. .变量循环尾 ()
  31. 写到文件 (“bmp1.bmp”, 随机打点图.取位图数据 ())  ' 写图1到bmp1.bmp
  32. 写到文件 (“bmp2.bmp”, 随机打点图2.取位图数据 ())  ' 写图2到bmp2.bmp
  33. 返回 (0)  ' 结束
复制代码

相关帖子

发表于 2017-6-16 20:10:23 | 显示全部楼层
看看神图是怎么产生的:D
发表于 2017-7-10 19:02:46 | 显示全部楼层
感谢分享呀。
发表于 2017-7-10 19:37:04 | 显示全部楼层
等等,得多少秒一帧才看得到啊?表示看不到啊。
 楼主| 发表于 2017-7-11 19:54:18 | 显示全部楼层
demon 发表于 2017-7-10 19:37
等等,得多少秒一帧才看得到啊?表示看不到啊。

需要合成gif图才可以,延时尽量要短。
发表于 2017-7-11 20:33:43 | 显示全部楼层
...没用专业的制作软件,在网页上在线生成,表示0.01秒一帧也看不到什么。可能是单色位图的选择有关?
 楼主| 发表于 2017-7-14 06:00:40 | 显示全部楼层
demon 发表于 2017-7-11 20:33
...没用专业的制作软件,在网页上在线生成,表示0.01秒一帧也看不到什么。可能是单色位图的选择有关?

把它生成出的两张噪点图放入gif生成器即可。
发表于 2017-8-4 14:01:21 | 显示全部楼层
....那这个颜色得多接近啊,看看啥原理
发表于 2017-9-22 17:08:39 来自手机 | 显示全部楼层
我也看看是啥发明了这么新鲜。
发表于 2017-10-16 22:08:20 来自手机 | 显示全部楼层
回复看看是啥神秘发明了。
您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 19:39 , Processed in 0.534030 second(s), 23 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表