.版本 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)