|
- .版本 2
- .支持库 BmpOperate
- .程序集 程序集1
- .程序集变量 原位图, 位图
- .程序集变量 随机打点图, 位图
- .程序集变量 随机打点图2, 位图
- .程序集变量 位图宽度
- .程序集变量 位图高度
- .程序集变量 X, 整数型
- .程序集变量 Y, 整数型
- .程序集变量 颜色值, 整数型
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- ' 载入一个单色位图,并且生成两个像素随机颜色的图,两张图不停的快速切换即可看到内容。
- ' 可使用GIF制作软件生成这种图片。
- 置随机数种子 ()
- 原位图.载入文件 (“bmp.bmp”) ' 必须是单色位图否则会出错
- 位图宽度 = 原位图.取宽度 () ' 取得位图宽度
- 位图高度 = 原位图.取高度 () ' 取得位图高度
- 随机打点图.创建 (位图宽度, 位图高度, 24, #白色) ' 图1生成24位位图
- 随机打点图2.创建 (位图宽度, 位图高度, 24, #白色) ' 图2生成24位位图
- .变量循环首 (0, 位图宽度 - 1, 1, X) ' X坐标累加
- .变量循环首 (0, 位图宽度 - 1, 1, Y) ' Y坐标累加
- 颜色值 = 取颜色值 (取随机数 (, ), 取随机数 (, ), 取随机数 (, )) ' 随机颜色
- 随机打点图.置某点颜色 (X, Y, 颜色值) ' 图1置入随机颜色的像素
- .如果真 (原位图.取某点颜色 (X, Y) = 0) ' 原位图取到黑色
- 颜色值 = 取颜色值 (取随机数 (, ), 取随机数 (, ), 取随机数 (, )) ' 重新生成随机颜色
- .如果真结束
- 随机打点图2.置某点颜色 (X, Y, 颜色值) ' 图2置入随机颜色的像素
- .变量循环尾 ()
- .变量循环尾 ()
- 写到文件 (“bmp1.bmp”, 随机打点图.取位图数据 ()) ' 写图1到bmp1.bmp
- 写到文件 (“bmp2.bmp”, 随机打点图2.取位图数据 ()) ' 写图2到bmp2.bmp
- 返回 (0) ' 结束
复制代码
|
|