Points on a Circle
The function CirclePoints returns coordinates of points equally distributed on a circle. Here are some examples of what can be done by combining it with graphics primitives.
Draw arrows pointing at seven equidistant points on a circle.
In[1]:=
![Click for copyable input](assets.en/points-on-a-circle/In_60.png)
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]
Out[1]=
![](assets.en/points-on-a-circle/O_53.png)
Place the first eight regular polygons at the vertices of an octagon.
In[2]:=
![Click for copyable input](assets.en/points-on-a-circle/In_61.png)
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &,
CirclePoints[8]]]
Out[2]=
![](assets.en/points-on-a-circle/O_54.png)
Combine CirclePoints and BezierCurve.
In[3]:=
![Click for copyable input](assets.en/points-on-a-circle/In_62.png)
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]=
![](assets.en/points-on-a-circle/O_55.png)
In[4]:=
![Click for copyable input](assets.en/points-on-a-circle/In_63.png)
Graphics[Table[
Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8],
i], {i, 0, 2 Pi, Pi/16}]]
Out[4]=
![](assets.en/points-on-a-circle/O_56.png)