运动点线连接例程

易语言 2020-12-04 11:44:03

运动点线连接例程

圆的数量最大数量,建议不要超过100。

.如果真 (c ≥ a + 1) ' 两两筛选
距离 = 求次方 (求次方 (点数组x [a] - 点数组x [c], 2) + 求次方 (点数组y [a] - 点数组y [c], 2), 0.5) ' 勾股定理
' 调试输出 (距离)
.如果真 (距离 ≤ 60 且 距离 > 0) ' 连线最大距离
画板1.画直线 (点数组x [a], 点数组y [a], 点数组x [c], 点数组y [c])