Bezier贝塞尔三阶计算模块

.子程序 获取贝塞尔, , 公开
.参数 起始点, 贝塞尔
.参数 控制点1, 贝塞尔
.参数 控制点2, 贝塞尔
.参数 终止点, 贝塞尔
.参数 线条精度, 小数型, 可空, 用来获取返回数据的数量例如：10则把曲线划分成10段返回10段贝塞尔的xy坐标，为空时=100
.参数 储存变量, 贝塞尔, 参考 数组, 储存返回数据的变量
.局部变量 p, 小数型, , , 绘制精度
.局部变量 t, 小数型, , , 时间
.局部变量 i, 整数型, , , 循环次数
.局部变量 s, 小数型, , "0", 储存返回数据的变量
.局部变量 d, 贝塞尔, , , 坐标

重定义数组 (储存变量, 假, 到整数 (线条精度))
.判断开始 (线条精度 ＝ 0)
p ＝ 100
.默认
p ＝ 线条精度
.判断结束
t ＝ 1 ÷ (p － 1)
i ＝ 0
.判断循环首 (i ＜ p)
d ＝ GetBezierPoint (起始点, 控制点1, 控制点2, 终止点, i, t)
储存变量 [i ＋ 1].左边 ＝ d.左边
储存变量 [i ＋ 1].顶边 ＝ d.顶边
i ＝ i ＋ 1
.判断循环尾 ()