圆上的点
CirclePoints 函数返回等间距分布在圆上的点的坐标. 以下为通过将其与图形基元结合后可完成的一些范例.
画出指向圆上七个等间距点的箭头.
In[1]:=

Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]
Out[1]=

将前八个标准多边形放在八边形的顶点上.
In[2]:=

Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &,
CirclePoints[8]]]
Out[2]=

将 CirclePoints 和 BezierCurve 组合使用.
In[3]:=

Graphics[{
BezierCurve[{{0, 0}, ##, {2, 0}}],
BezierCurve[{{0, 0}, ##, {0, 2}}],
BezierCurve[{{0, 0}, ##, {-2, 0}}],
BezierCurve[{{0, 0}, ##, {0, -2}}]
} & /@ CirclePoints[32]
]
Out[3]=

In[4]:=

Graphics[Table[
Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8],
i], {i, 0, 2 Pi, Pi/16}]]
Out[4]=
