GIF图片转换文字图片工具

易语言 2020-04-05 14:18:03

GIF图片转换文字图片工具

.变量循环首 (1, 高度, 1, 当前行)
行首点 = 当前行 × 实际数宽 - 实际数宽 + 54
.变量循环首 (1, 宽度 × 3, 3, 当前列)
灰度值 = (源图像 [行首点 + 当前列] + 源图像 [行首点 + 当前列 + 1] + 源图像 [行首点 + 当前列 + 2]) ÷ 3
新图像 [行首点 + 当前列] = 灰度值
新图像 [行首点 + 当前列 + 1] = 灰度值
新图像 [行首点 + 当前列 + 2] = 灰度值

灰度值对应符号 = 64 - 四舍五入 (灰度值 ÷ 4, 1) - 1
.如果真 (灰度值对应符号 < 0)
灰度值对应符号 = 0
.如果真结束
字母位图.复制到 (灰度值对应符号 × 14 + 1, 0, 12, 13, 图像位图, (取整 (当前列 ÷ 3) - 1) × 12 + 6, (高度 - 当前行 - 1) × 13 + 6, )
.变量循环尾 ()
.变量循环尾 ()
' 写到文件 (取运行目录 () + “\text1.bmp”, 图像位图.取位图数据 ())