Points dans un cercle
La fonction CirclePoints renvoie des coordonnées de points également répartis sur un cercle. Voici quelques exemples de ce qui peut être fait en le combinant avec des primitives graphiques.
Dessinez des flèches pointant sur sept points équidistants sur un cercle.
In[1]:=
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]Out[1]=
Placez les huit premiers polygones réguliers aux sommets d'un octogone.
In[2]:=
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &,
CirclePoints[8]]]Out[2]=
Combinez CirclePoints et 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]=
