svg图片转换源码

svg图片转换源码

.版本 2

.程序集 窗口程序集1
.程序集变量 点数组, 整数型, , "0"
.程序集变量 画计数, 整数型

.子程序 _按钮1_被单击
.局部变量 起点, 点坐标
.局部变量 控制点, 点坐标
.局部变量 终点坐标, 点坐标
.局部变量 原点, 点坐标
.局部变量 临时文本, 文本型
.局部变量 临时文本1, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 临时文本2, 文本型, , "0"

临时文本 ＝ 子文本替换 (编辑框2.内容, “M”, #换行符 ＋ “M”, , , 真)
临时文本 ＝ 子文本替换 (临时文本, “L”, #换行符 ＋ “L”, , , 真)
临时文本 ＝ 子文本替换 (临时文本, “Q”, #换行符 ＋ “Q”, , , 真)
临时文本 ＝ 子文本替换 (临时文本, “Z”, #换行符 ＋ “Z”, , , 真)
清除数组 (临时文本1)
临时文本1 ＝ 分割文本 (临时文本, #换行符, )
画板1.画笔粗细 ＝ 1
.计次循环首 (取数组成员数 (临时文本1), 计次)
    .判断开始 (取文本左边 (临时文本1 [计次], 1) ＝ “M”)
        清除数组 (临时文本2)
        临时文本 ＝ 子文本替换 (临时文本1 [计次], “M”, “”, , , 真)
        临时文本2 ＝ 分割文本 (临时文本, “ ”, )
        原点.点X ＝ 到数值 (临时文本2 [1])
        原点.点Y ＝ 到数值 (临时文本2 [2])
        起点 ＝ 原点
    .判断 (取文本左边 (临时文本1 [计次], 1) ＝ “L”)
        清除数组 (临时文本2)
        临时文本 ＝ 子文本替换 (临时文本1 [计次], “L”, “”, , , 真)
        临时文本2 ＝ 分割文本 (临时文本, “ ”, )
        终点坐标.点X ＝ 到数值 (临时文本2 [1])
        终点坐标.点Y ＝ 到数值 (临时文本2 [2])
        画板1.画直线 (起点.点X, 起点.点Y, 终点坐标.点X, 终点坐标.点Y)
        起点 ＝ 终点坐标
    .判断 (取文本左边 (临时文本1 [计次], 1) ＝ “Q”)
        清除数组 (临时文本2)
        临时文本 ＝ 子文本替换 (临时文本1 [计次], “Q”, “”, , , 真)
        临时文本2 ＝ 分割文本 (临时文本, “ ”, )
        控制点.点X ＝ 到数值 (临时文本2 [1])
        控制点.点Y ＝ 到数值 (临时文本2 [2])
        终点坐标.点X ＝ 到数值 (临时文本2 [3])
        终点坐标.点Y ＝ 到数值 (临时文本2 [4])
        画二次贝塞尔曲线 (起点, 控制点, 终点坐标)
        起点 ＝ 终点坐标
    .判断 (取文本左边 (临时文本1 [计次], 1) ＝ “Z”)
        画板1.画直线 (起点.点X, 起点.点Y, 原点.点X, 原点.点Y)
    .默认

    .判断结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()
画二次贝塞尔曲线 (起点, 控制点, 终点坐标)

.子程序 画二次贝塞尔曲线, , , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 起点, 点坐标
.参数 控制点, 点坐标
.参数 终点坐标, 点坐标
.局部变量 计次, 整数型
.局部变量 t, 小数型
.局部变量 坐标, 点坐标

t ＝ 0
.计次循环首 (50, 计次)
    t ＝ t ＋ 0.02
    坐标.点X ＝ (1 － t) × (1 － t) × 起点.点X ＋ 2 × t × (1 － t) × 控制点.点X ＋ t × t × 终点坐标.点X
    坐标.点Y ＝ (1 － t) × (1 － t) × 起点.点Y ＋ 2 × t × (1 － t) × 控制点.点Y ＋ t × t × 终点坐标.点Y
    画板1.画点 (坐标.点X, 坐标.点Y, #红色)
.计次循环尾 ()


.子程序 _按钮2_被单击

画板1.清除 (, , , )  ' 本源码来自三叶资源网(www.sanye.cx)
画计数 ＝ 0

.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕

' 本源码来自三叶资源网(www.sanye.cx)