画二维码

浪者孤独 · 发表于 2024-5-19 23:50:25

.版本 2
.支持库图片处理

.如果 (单选框半圆.选中＝真)
      .计次循环首 (画板2.宽度, 计次B)
         .计次循环首 (画板2.宽度, 计次A)
            .如果真 (图片处理A.取像素颜色 (计次A － 1, 画板2.宽度－计次B － 1, 真) ＝ 0)
                  数据＝数据＋ “<rect x=” ＋ #引号＋到文本 (计次A × 10 － 10) ＋ #引号＋ “ y=” ＋ #引号＋到文本 (计次B × 10 － 10) ＋ #引号＋ “ width=” ＋ #引号＋ “8” ＋ #引号＋ “ height=” ＋ #引号＋ “8” ＋ #引号＋ “ rx=” ＋ #引号＋ “0.24%” ＋ #引号＋ “ ry=” ＋ #引号＋ “0.18%” ＋ #引号＋ “ fill=” ＋ #引号＋ “black” ＋ #引号＋ “/>” ＋ #换行符
            .如果真结束

         .计次循环尾 ()
      .计次循环尾 ()
.否则

.如果结束

.如果真结束

写到文件 (通用对话框3.文件名, 到字节集 (#SVG前＋数据＋ #SVG后))
QQ图片20240519234454.png