Puntos en un círculo
La función CirclePoints regresa coordinadas de puntos distribuidos uniformemente en un círculo. Aquí hay varios ejemplos de lo que se puede hacer combinándolo con primitivos de gráfico.
Trace flechas apuntando a siete puntos equidistantes en un círculo.
In[1]:=
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]Out[1]=
Coloque los primeros ocho polígonos en los vértices de un octágono.
In[2]:=
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &,
CirclePoints[8]]]Out[2]=
Combine CirclePoints y 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]=
