Call 画多边漩涡(400, 200, 50, 7) //五边形
EndScript
Sub 画多边漩涡(x, y, r, n)
//x 圆心横坐标 y 圆心纵坐标
//r 半径 n 多边形的边数
Const PI = 3.1415926
Dim x1, y1 //起点坐标
dim x2, y2 //下一个点坐标
x1 = x
y1 = y - r
Dim t
t = PI
For i = 1 To 30
If i > 1 Then
MoveTo x1, y1
Delay 20
LeftUp 1
End If
MoveTo x1, y1
Delay 20
LeftDown 1
t = t - pi * 2 / n
x2 = x + int(r * sin(t))
y2 = y + int(r * cos(t))
//更新起点坐标
x1 = x2
y1 = y2
r = r + 2
Next
End Sub